giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
Copybook/DTSIL935.cpy Normal file
View File

@ -0,0 +1,46 @@
00001 ***** 08/28/02
00002 * DTSIL935
00003 * DTSIL935 BATCH ELECTRONIC MEDIA FILE I/O LINKAGE. LV001
00004 * DTSIL935
00005 * DTSIL935 AND DTSIESKL DEFINE THE LINKAGE AREAS TO DTSIL935
00006 * DTSBU935 (ELECTONIC MEDIA FILE INPUT/OUTPUT). DTSIL935
00007 * DTSIL935
00008 * CREATED FOR DC 01/17/2001 GD DTSIL935
00009 * ADDED L935-WRITE-CHK-DUP-KEY-88 AND L935-DUP-KEY-88. DTSIL935
00010 * WHEN L935-WRITE-CHK-DUP-KEY-88 IS SET, THE I-O MODULE DTSIL935
00011 * WILL TEST FOR A DUPLICATE KEY CONDITION WHEN PERFORMING A DTSIL935
00012 * WRITE COMMAND, WILL SET L935-DUP-KEY-88 WHEN AN ATTEMPT TO DTSIL935
00013 * WRITE RETURNS A DUPLICATE KEY. THIS TEST IS NEEDED FOR DTSIL935
00014 * EEMH PROCESSING. WAGE RECORDS ARE NOT IN EMPLOYER NUMBER DTSIL935
00015 * ORDER, AND EMPLOYERS MAY BE DUPLICATED. 03/26/2001 GD. DTSIL935
00016 ***** DTSIL935
00017 SKIP1 DTSIL935
00018 10 L935-TRACE-IND PIC X(01). DTSIL935
00019 88 L935-TRACE-88 VALUE 'T'. DTSIL935
00020 SKIP1 DTSIL935
00021 10 L935-MOD-NAME PIC X(08). DTSIL935
00022 SKIP1 DTSIL935
00023 10 L935-CMND-CD PIC X(03). DTSIL935
00024 88 L935-OPEN-READ-88 VALUE 'OPR'. DTSIL935
00025 88 L935-OPEN-UPDATE-88 VALUE 'OPU'. DTSIL935
00026 88 L935-OPEN-UPDATE-HDR-88 VALUE 'OPH'. DTSIL935
00027 88 L935-OPEN-UPDATE-NO-AIX-88 VALUE 'OPA'. DTSIL935
00028 88 L935-READ-88 VALUE 'RD '. DTSIL935
00029 88 L935-START-BROWSE-88 VALUE 'STB'. DTSIL935
00030 88 L935-READ-NEXT-88 VALUE 'RDN'. DTSIL935
00031 88 L935-WRITE-88 VALUE 'WR '. DTSIL935
00032 88 L935-WRITE-CHK-DUP-KEY-88 VALUE 'WRD'. DTSIL935
00033 88 L935-REWRITE-88 VALUE 'RWR'. DTSIL935
00034 88 L935-DELETE-88 VALUE 'DEL'. DTSIL935
00035 88 L935-CLOSE-88 VALUE 'CL '. DTSIL935
00036 10 FILLER REDEFINES L935-CMND-CD. DTSIL935
00037 15 L935-CMND-CD-2 PIC X(02). DTSIL935
00038 88 L935-OPEN-88 VALUE 'OP'. DTSIL935
00039 15 FILLER PIC X(01). DTSIL935
00040 SKIP1 DTSIL935
00041 10 FILLER PIC X(51). DTSIL935
00042 SKIP1 DTSIL935
00043 10 L935-RESULT-IND PIC X(01). DTSIL935
00044 88 L935-OK-88 VALUE '0'. DTSIL935
00045 88 L935-NO-REC-88 VALUE '1'. DTSIL935
00046 88 L935-DUP-KEY-88 VALUE '2'. DTSIL935