86 lines
6.7 KiB
COBOL
86 lines
6.7 KiB
COBOL
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
|