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

23
Copybook/DTSIR612.cpy Normal file
View File

@ -0,0 +1,23 @@
00001 ***** 12/17/98
00002 * REVIEWED BY D.SHEPPERSON 12/17/98 DTSIR612
00003 * LV003
00004 * DTSIR612 PROCESSED ASSIGNMENTS WITHOUT QUARTER RESULTS CL**3
00005 * RECORDED REPORT RECORD. DTSIR612
00006 * DTSIR612
00007 ***** DTSIR612
00008 SKIP1 DTSIR612
00009 10 R612-LENGTH PIC S9(04) COMP. CL**2
00010 SKIP1 DTSIR612
00011 10 R612-SORT-AREA. DTSIR612
00012 15 R612-REC-TYPE PIC X(03). CL**2
00013 15 R612-ASSIGN-NO PIC S9(09) COMP-3. DTSIR612
00014 SKIP1 DTSIR612
00015 10 R612-DATA-AREA. DTSIR612
00016 15 R612-PARM-AREA. DTSIR612
00017 20 R612-PARM-START-DATE PIC S9(09) COMP-3. DTSIR612
00018 20 R612-PARM-END-DATE PIC S9(09) COMP-3. DTSIR612
00019 15 R612-EMP-NO PIC S9(07) COMP-3. DTSIR612
00020 15 R612-FIRST-YRQ PIC S9(05) COMP-3. DTSIR612
00021 15 R612-LAST-YRQ PIC S9(05) COMP-3. DTSIR612
00022 15 R612-MISSING-YRQ-CNT PIC S9(04) COMP. DTSIR612
00023 15 R612-MISSING-YRQ OCCURS 24 PIC S9(05) COMP-3. DTSIR612