00001 ***** 08/08/12 00002 * DTSIT040 00003 * DTSIT040 ESTABLISH AUDIT CHANGES FROM WEB LV001 00004 * TRANSACTION RECORD. DTSIT040 00005 * DTSIT040 00006 * DTSIT040 00007 * 03/15/2012 INITIAL DEVELOPMENT. ZL1 DTSIT040 00008 * DTSIT040 00009 * DTSIT040 00010 ***** DTSIT040 00011 DTSIT040 00012 10 T040-LENGTH PIC S9(04) COMP. DTSIT040 00013 DTSIT040 00014 10 T040-COMMON-AREA. DTSIT040 00015 * 15 T040-REC-TYPE PIC X(03) VALUE '040'. DTSIT040 RCODE 15 T040-REC-TYPE PIC X(03). DTSIT040 00016 15 T040-EMP-NO PIC S9(07) COMP-3. DTSIT040 00017 15 T040-ORIGIN PIC X(10). DTSIT040 00018 15 FILLER REDEFINES T040-ORIGIN. DTSIT040 00019 20 T040-OP-ID PIC X(08). DTSIT040 00020 20 T040-SCR-ID PIC X(02). DTSIT040 00021 15 T040-SYS-DATE PIC S9(09) COMP-3. DTSIT040 00022 15 T040-SYS-TIME PIC S9(07) COMP-3. DTSIT040 00023 DTSIT040 00024 10 T040-DATA-AREA. DTSIT040 00025 15 T040-TRN-CD PIC X(02). DTSIT040 00026 88 T040-MFAS-88 VALUE '01'. DTSIT040 00027 88 T040-MAUR-88 VALUE '02'. DTSIT040 00028 88 T040-MAUY-88 VALUE '03'. DTSIT040 00029 DTSIT040 00030 15 T040-ASSIGN-NO PIC S9(09) COMP-3. DTSIT040 00031 DTSIT040 00032 15 T040-COMPLETED-DATE PIC S9(09) COMP-3. DTSIT040 00033 DTSIT040 00034 15 T040-PROCESSED-DATE PIC S9(09) COMP-3. DTSIT040 00035 DTSIT040 00036 15 T040-FLD-REP-ID PIC X(02). DTSIT040 00037 DTSIT040 00038 15 T040-FIRST-YRQ PIC S9(05) COMP-3. DTSIT040 00039 DTSIT040 00040 15 T040-LAST-YRQ PIC S9(05) COMP-3. DTSIT040 00041 DTSIT040 00042 15 T040-QTRS-AUDITED-CNT PIC S9(03) COMP-3. DTSIT040 00043 DTSIT040 00044 15 T040-EMP-SIZE-IND PIC X(01). DTSIT040 00045 DTSIT040 00046 15 T040-ERR-TYPE OCCURS 5 TIMES PIC X(02). DTSIT040 00047 DTSIT040 00048 15 T040-MONEY-DUE-AMT PIC S9(09)V9(02) COMP-3. DTSIT040 00049 DTSIT040 00050 15 T040-MONEY-COLLECT-AMT PIC S9(09)V9(02) COMP-3. DTSIT040 00051 DTSIT040 00052 15 T040-MONEY-REASON-CD PIC X(01). DTSIT040 00053 DTSIT040 00054 15 T040-PEN-WAIVE-IND PIC X(01). DTSIT040 00055 DTSIT040 00056 15 T040-INT-WAIVE-IND PIC X(01). DTSIT040 00057 DTSIT040 00058 15 T040-AUDIT-HRS PIC S9(04)V9(01) COMP-3. DTSIT040 00059 DTSIT040 00060 15 T040-NEW-EMPLOYEE-CNT PIC S9(05) COMP-3. DTSIT040 00061 DTSIT040 00062 15 T040-INDCON-TO-EMPL-CNT PIC S9(05) COMP-3. DTSIT040 00063 DTSIT040 00064 15 T040-CALENDAR-YEAR PIC 9(04). DTSIT040 00065 DTSIT040 00066 15 T040-MUAY-DATA. DTSIT040 00067 20 T040-MAUY-YR. DTSIT040 00068 25 T040-MAUY-QTR OCCURS 4 DTSIT040 00069 INDEXED BY T040-QTR-IDX. DTSIT040 00070 30 T040-QTR-AUDITED-IND DTSIT040 00071 PIC X(01). DTSIT040 00072 88 T040-QTR-AUDITED-88 VALUE 'Y'. DTSIT040 00073 88 T040-QTR-NOT-AUDITED-88 VALUE 'N'. DTSIT040 00074 DTSIT040 00075 30 T040-QTR-GROSS-PAYROLL DTSIT040 00076 PIC S9(11)V9(02) COMP-3. DTSIT040 00077 DTSIT040 00078 30 T040-QTR-UNDER-TOT-WAGE DTSIT040 00079 PIC S9(11)V9(02) COMP-3. DTSIT040 00080 DTSIT040 00081 DTSIT040 00082 30 T040-QTR-UNDER-TAX-WAGE DTSIT040 00083 PIC S9(11)V9(02) COMP-3. DTSIT040 00084 DTSIT040 00085 30 T040-QTR-UNDER-CONTRIB DTSIT040 00086 PIC S9(09)V9(02) COMP-3. DTSIT040 00087 DTSIT040 00088 30 T040-QTR-OVER-TOT-WAGE DTSIT040 00089 PIC S9(11)V9(02) COMP-3. DTSIT040 00090 DTSIT040 00091 30 T040-QTR-OVER-TAX-WAGE DTSIT040 00092 PIC S9(11)V9(02) COMP-3. DTSIT040 00093 DTSIT040 00094 30 T040-QTR-OVER-CONTRIB DTSIT040 00095 PIC S9(09)V9(02) COMP-3. DTSIT040 00096 DTSIT040 00097 15 T040-STATUS-CD PIC X(01). DTSIT040 00098 15 FILLER PIC X(47). DTSIT040