00001 ***** 12/17/98 00002 * 12/06/98 REVIEWED BY D.SHEPPPERSON DTSIR607 00003 * LV017 00004 * DTSIR607 ASSIGNMENT DETAIL EXPORT REPORT RECORD. CL**2 00005 * DTSIR607 00006 * NOTE: THERE IS EXACTLY ONE REPORT RECORD FOR EVERY DTSIR607 00007 * FIELD ASSIGNMENT COUNTED ON THE REPORT. THE DTSIR607 00008 * EXTRACT MODULE WILL NEED TO SCAN ALL MAUY DTSIR607 00009 * RECORDS FOR A GIVEN ASSIGNMENT TO DETERMINE: DTSIR607 00010 * DTSIR607 00011 * R607-TOT-GROSS-PAYROLL DTSIR607 00012 * R607-CHANGE-AUDIT-IND DTSIR607 00013 * R607-TOT-UNDER-TOT-WAGE DTSIR607 00014 * R607-TOT-UNDER-TAX-WAGE DTSIR607 00015 * R607-TOT-UNDER-CONTRIB DTSIR607 00016 * R607-TOT-OVER-TOT-WAGE DTSIR607 00017 * R607-TOT-OVER-TAX-WAGE DTSIR607 00018 * R607-TOT-OVER-CONTRIB DTSIR607 00019 * DTSIR607 00020 ***** DTSIR607 00021 SKIP1 DTSIR607 00022 10 R607-LENGTH PIC S9(04) COMP. CL**2 00023 SKIP1 DTSIR607 00024 10 R607-SORT-AREA. DTSIR607 00025 15 R607-REC-TYPE PIC X(03). CL**2 00026 15 R607-FIELD-REP-ID PIC X(02). DTSIR607 00027 15 R607-ASSIGN-NO PIC S9(09) COMP-3. DTSIR607 00028 SKIP1 CL**6 00029 10 R607-DATA-AREA. DTSIR607 00030 15 R607-PARM-AREA. CL**7 00031 20 R607-PARM-COMPL-START PIC S9(09) COMP-3. CL**7 00032 20 R607-PARM-COMPL-END PIC S9(09) COMP-3. CL**7 00033 20 R607-PARM-PROCESS-START PIC S9(09) COMP-3. CL**7 00034 20 R607-PARM-PROCESS-END PIC S9(09) COMP-3. CL**7 00035 20 R607-PARM-ASSIGN-CNT PIC S9(04) COMP. CL**7 00036 20 R607-PARM-ASSIGN-TYPE OCCURS 5 CL**7 00037 INDEXED BY R607-PARM-ASSIGN-IDX CL**7 00038 PIC X(02). CL**7 00039 20 R607-PARM-FLD-REP-ID-CNT PIC S9(04) COMP. CL*12 00040 20 R607-PARM-FLD-REP-ID OCCURS 5 TIMES CL*12 00041 INDEXED BY R607-PARM-FLD-REP-ID-IDX CL**9 00042 PIC X(02). CL**9 00043 15 R607-STATUS-CD PIC X(01). DTSIR607 00044 15 R607-EMP-NO PIC S9(07) COMP-3. DTSIR607 00045 15 R607-SIC-CD PIC X(04). CL**5 00046 15 R607-OWN-CD PIC X(02). CL**5 00047 15 R607-NAICS-CD PIC 9(06). CL**4 00048 15 R607-ASSIGN-TYPE PIC X(02). DTSIR607 00049 15 R607-START-DATE PIC S9(09) COMP-3. DTSIR607 00050 15 R607-DUE-DATE PIC S9(09) COMP-3. DTSIR607 00051 15 R607-COMPLETED-DATE PIC S9(09) COMP-3. DTSIR607 00052 15 R607-PROCESSED-DATE PIC S9(09) COMP-3. DTSIR607 00053 15 R607-AUDIT-HRS PIC S9(04)V9 COMP-3. DTSIR607 00054 15 R607-QTRS-AUDITED-CNT PIC S9(03) COMP-3. DTSIR607 00055 15 R607-TOT-GROSS-PAYROLL PIC S9(11)V99 COMP-3. DTSIR607 00056 15 R607-AUDIT-IND PIC X(01). CL*15 00057 88 R607-REQUEST-AUDIT-88 VALUE 'R'. CL*15 00058 88 R607-VERIF-AUDIT-88 VALUE 'V'. CL*15 00059 88 R607-AUDIT-88 VALUE 'R' 'V'. CL*15 00060 88 R607-NON-AUDIT-88 VALUE 'N'. CL*15 00061 15 R607-CHANGE-AUDIT-IND PIC X(01). DTSIR607 00062 88 R607-CHANGE-AUDIT-YES-88 VALUE '1'. CL*14 00063 88 R607-CHANGE-AUDIT-NO-88 VALUE '0'. CL*14 00064 15 R607-ERROR-AREA. DTSIR607 00065 20 R607-ERROR-TYPE PIC X(02) DTSIR607 00066 OCCURS 5 TIMES DTSIR607 00067 INDEXED BY R607-ERROR-IDX. DTSIR607 00068 15 R607-AUDIT-SEL-AREA. DTSIR607 00069 20 R607-AUDIT-SEL-REASON DTSIR607 00070 PIC X(02) DTSIR607 00071 OCCURS 5 TIMES DTSIR607 00072 INDEXED BY R607-SEL-IDX. DTSIR607 00073 15 R607-MFAS-EMP-SIZE-IND PIC X(01). DTSIR607 00074 15 R607-MAUR-EMP-SIZE-IND PIC X(01). DTSIR607 00075 15 R607-NEW-EMPLOYEE-CNT PIC S9(05) COMP-3. DTSIR607 00076 15 R607-TOT-UNDER-TOT-WAGE PIC S9(11)V99 COMP-3. DTSIR607 00077 15 R607-TOT-UNDER-TAX-WAGE PIC S9(11)V99 COMP-3. DTSIR607 00078 15 R607-TOT-UNDER-CONTRIB PIC S9(09)V99 COMP-3. DTSIR607 00079 15 R607-TOT-OVER-TOT-WAGE PIC S9(11)V99 COMP-3. DTSIR607 00080 15 R607-TOT-OVER-TAX-WAGE PIC S9(11)V99 COMP-3. DTSIR607 00081 15 R607-TOT-OVER-CONTRIB PIC S9(09)V99 COMP-3. DTSIR607 00082 15 R607-MONEY-DUE-AMT PIC S9(09)V99 COMP-3. DTSIR607 00083 15 R607-MONEY-REASON-CD PIC X(01). DTSIR607 00084 15 R607-MONEY-COLLECT-AMT PIC S9(09)V99 COMP-3. DTSIR607 00085 15 R607-PRIMARY-NAME PIC X(40). CL*17