16 lines
1.2 KiB
COBOL
16 lines
1.2 KiB
COBOL
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
|