24 lines
1.8 KiB
COBOL
24 lines
1.8 KiB
COBOL
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
|