00001 ***** 07/28/99 00002 * MODIFIED 11/20/98 D.SHEPPERSON DTSIR606 00003 * LV008 00004 * DTSIR606 ASSIGNMENT SUMMARY EXPORT REPORT RECORD. CL**5 00005 * DTSIR606 00006 * NOTE: THERE IS EXACTLY ONE REPORT RECORD FOR EVERY DTSIR606 00007 * FIELD ASSIGNMENT COUNTED ON THE REPORT. THE DTSIR606 00008 * EXTRACT MODULE WILL NEED TO SCAN ALL MAUY DTSIR606 00009 * RECORDS FOR A GIVEN ASSIGNMENT TO DETERMINE: DTSIR606 00010 * DTSIR606 00011 * R606-CHANGE-AUDIT-IND DTSIR606 00012 * R606-CATEGORY DTSIR606 00013 * R606-TOT-GROSS-PAYROLL DTSIR606 00014 * R606-TOT-WAGE-CHANGE DTSIR606 00015 * R606-TAX-WAGE-CHANGE DTSIR606 00016 * R606-CONTRIB-CHANGE DTSIR606 00017 * DTSIR606 00018 ***** DTSIR606 00019 SKIP1 DTSIR606 00020 10 R606-LENGTH PIC S9(04) COMP. CL**2 00021 SKIP1 DTSIR606 00022 10 R606-SORT-AREA. DTSIR606 00023 15 R606-REC-TYPE PIC X(03). CL**2 00024 15 R606-FIELD-REP-ID PIC X(02). DTSIR606 00025 15 R606-ASSIGN-NO PIC S9(09) COMP-3. DTSIR606 00026 SKIP1 DTSIR606 00027 10 R606-DATA-AREA. DTSIR606 00028 15 R606-PARM-AREA. DTSIR606 00029 20 R606-PARM-COMPL-START PIC S9(09) COMP-3. DTSIR606 00030 20 R606-PARM-COMPL-END PIC S9(09) COMP-3. DTSIR606 00031 20 R606-PARM-PROCESS-START PIC S9(09) COMP-3. DTSIR606 00032 20 R606-PARM-PROCESS-END PIC S9(09) COMP-3. DTSIR606 00033 20 R606-PARM-ASSIGN-CNT PIC S9(04) COMP. DTSIR606 00034 20 R606-PARM-ASSIGN-TYPE OCCURS 5 DTSIR606 00035 INDEXED BY R606-PARM-ASSIGN-IDX DTSIR606 00036 PIC X(02). DTSIR606 00037 15 R606-EMP-SIZE-IND PIC X(01). DTSIR606 00038 15 R606-MONEY-DUE-AMT PIC S9(09)V99 COMP-3. DTSIR606 00039 15 R606-MONEY-COLLECT-AMT PIC S9(09)V99 COMP-3. DTSIR606 00040 15 R606-CHANGE-AUDIT-IND PIC X(01). DTSIR606 00041 88 R606-CHANGE-AUDIT-YES-88 VALUE 'R' 'V'. CL**8 00042 88 R606-CHANGE-AUDIT-VERIF-88 VALUE 'V'. CL**4 00043 88 R606-CHANGE-AUDIT-NO-88 VALUE 'N'. DTSIR606 00044 15 R606-PEN-WAIVE-IND PIC X(01). CL**6 00045 15 R606-INT-WAIVE-IND PIC X(01). CL**6 00046 15 R606-CATEGORY PIC X(01). DTSIR606 00047 88 R606-CATEGORY-INCREASE-88 VALUE '1'. DTSIR606 00048 88 R606-CATEGORY-DECREASE-88 VALUE '2'. DTSIR606 00049 88 R606-CATEGORY-NOCHANGE-88 VALUE '3'. DTSIR606 00050 15 R606-CATEGORY-9 REDEFINES R606-CATEGORY DTSIR606 00051 PIC 9(01). DTSIR606 00052 15 R606-QTRS-AUDITED-CNT PIC S9(03) COMP-3. DTSIR606 00053 15 R606-AUDIT-HRS PIC S9(04)V9 COMP-3. DTSIR606 00054 15 R606-START-DATE PIC S9(09) COMP-3. DTSIR606 00055 15 R606-COMPLETED-DATE PIC S9(09) COMP-3. DTSIR606 00056 15 R606-TOT-GROSS-PAYROLL PIC S9(11)V99 COMP-3. DTSIR606 00057 15 R606-TOT-WAGE-CHANGE PIC S9(11)V99 COMP-3. DTSIR606 00058 15 R606-TAX-WAGE-CHANGE PIC S9(11)V99 COMP-3. DTSIR606 00059 15 R606-CONTRIB-CHANGE PIC S9(09)V99 COMP-3. DTSIR606 00060 15 R606-NEW-EMPLOYEE-CNT PIC S9(05) COMP-3. DTSIR606