99 lines
7.8 KiB
COBOL
99 lines
7.8 KiB
COBOL
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
|
|
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
|