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