DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
15
Copybook/DTSIR717.cpy
Normal file
15
Copybook/DTSIR717.cpy
Normal file
@ -0,0 +1,15 @@
|
||||
00001 ***** 04/01/99
|
||||
00002 * DTSIR717
|
||||
00003 * DTSIR717 RQC COLLECTIONS UNIVERSE REPORT RECORD. LV002
|
||||
00004 * D.SHEPPERSON MODIFIED FOR DC 04/01/99 CL**2
|
||||
00005 ***** DTSIR717
|
||||
00006 SKIP1 DTSIR717
|
||||
00007 10 R717-LENGTH PIC S9(04) COMP. CL**2
|
||||
00008 SKIP1 DTSIR717
|
||||
00009 10 R717-SORT-AREA. DTSIR717
|
||||
00010 15 R717-REC-TYPE PIC X(03) VALUE '717'. DTSIR717
|
||||
00011 15 R717-AMT-DUE PIC S9(09)V99 COMP-3. DTSIR717
|
||||
00012 15 R717-EMP-NO PIC S9(07) COMP-3. DTSIR717
|
||||
00013 SKIP1 DTSIR717
|
||||
00014 10 R717-DATA-AREA. DTSIR717
|
||||
00015 15 R717-RUN-DATE PIC S9(09) COMP-3. DTSIR717
|
||||
Reference in New Issue
Block a user