141 lines
11 KiB
COBOL
141 lines
11 KiB
COBOL
00001 ***** 02/11/08
|
|
00002 * DTSIAATX
|
|
00003 * DTSIAATX ACCOUNTING TRANSACTION FILE 'ANNUAL REPORT' LV005
|
|
00004 * TRANSACTION RECORD DEFINITION. DTSIAATX
|
|
00005 * DTSIAATX
|
|
00006 * DTSIAATX
|
|
00007 * 12/27/2001 INITIAL DEVELOPMENT. GD DTSIAATX
|
|
00008 * 02/06/2008 ADDED STATUS CHANGE IND. GD DTSIAATX
|
|
00009 * DTSIAATX
|
|
00010 ***** DTSIAATX
|
|
00011 DTSIAATX
|
|
00012 10 AATX-KEY-AREA. DTSIAATX
|
|
00013 15 AATX-DOC-NO. DTSIAATX
|
|
00014 20 AATX-BATCH-NO PIC S9(05) COMP-3. DTSIAATX
|
|
00015 20 AATX-ITEM-NO PIC S9(03) COMP-3. DTSIAATX
|
|
00016 DTSIAATX
|
|
00017 10 AATX-DATA-AREA. DTSIAATX
|
|
00018 15 AATX-REC-TYPE PIC X(01). DTSIAATX
|
|
00019 88 AATX-ATX-88 VALUE 'T'. DTSIAATX
|
|
00020 DTSIAATX
|
|
00021 15 AATX-NAME-CHECK PIC X(04). DTSIAATX
|
|
00022 88 AATX-NAME-CHECK-NO-ENTRY-88 VALUE SPACES. DTSIAATX
|
|
00023 DTSIAATX
|
|
00024 15 AATX-EMP-NO PIC S9(07) COMP-3. DTSIAATX
|
|
00025 88 AATX-EMP-NO-NO-ENTRY-88 VALUE +0. DTSIAATX
|
|
00026 DTSIAATX
|
|
00027 15 AATX-RPT-TYPE PIC X(02). DTSIAATX
|
|
00028 88 AATX-ORIG-88 VALUE 'OR'. DTSIAATX
|
|
00029 88 AATX-EMP-AMEND-88 VALUE 'EA'. DTSIAATX
|
|
00030 88 AATX-AUDIT-88 VALUE 'AU'. DTSIAATX
|
|
00031 88 AATX-FLD-SUP-88 VALUE 'FS'. DTSIAATX
|
|
00032 88 AATX-ADMIN-CORR-88 VALUE 'AC'. DTSIAATX
|
|
00033 88 AATX-ESTIM-88 VALUE 'ES'. DTSIAATX
|
|
00034 88 AATX-WITHDRW-88 VALUE 'WD'. DTSIAATX
|
|
00035 88 AATX-TAX-ADJ-88 VALUE 'TA'. DTSIAATX
|
|
00036 88 AATX-CLM-AFF-88 VALUE 'CA'. DTSIAATX
|
|
00037 88 AATX-INTERSTATE-88 VALUE 'IS'. DTSIAATX
|
|
00038 88 AATX-SUPPLEM-88 VALUE 'EA' 'AU' DTSIAATX
|
|
00039 'FS' 'AC'. DTSIAATX
|
|
00040 88 AATX-ADJ-TAX-ONLY-88 VALUE 'ES' 'TA'. DTSIAATX
|
|
00041 DTSIAATX
|
|
00042 15 AATX-YRQ PIC S9(05) COMP-3. DTSIAATX
|
|
00043 88 AATX-YRQ-NO-ENTRY-88 VALUE +0. DTSIAATX
|
|
00044 DTSIAATX
|
|
00045 15 AATX-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSIAATX
|
|
00046 88 AATX-TOT-WAGE-NO-ENTRY-88 DTSIAATX
|
|
00047 VALUE -99999999999.99. DTSIAATX
|
|
00048 DTSIAATX
|
|
00049 15 AATX-EXCESS-WAGE PIC S9(11)V9(02) COMP-3. DTSIAATX
|
|
00050 88 AATX-EXCESS-WAGE-NO-ENTRY-88 DTSIAATX
|
|
00051 VALUE -99999999999.99. DTSIAATX
|
|
00052 DTSIAATX
|
|
00053 15 AATX-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIAATX
|
|
00054 88 AATX-TAX-WAGE-NO-ENTRY-88 DTSIAATX
|
|
00055 VALUE -99999999999.99. DTSIAATX
|
|
00056 DTSIAATX
|
|
00057 15 AATX-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIAATX
|
|
00058 88 AATX-REMIT-AMT-NO-ENTRY-88 DTSIAATX
|
|
00059 VALUE -999999999.99. DTSIAATX
|
|
00060 DTSIAATX
|
|
00061 15 AATX-WAIVE-BOTH-IND PIC X(01). DTSIAATX
|
|
00062 88 AATX-WAIVE-BOTH-YES-88 VALUE 'Y'. DTSIAATX
|
|
00063 88 AATX-WAIVE-BOTH-NO-88 VALUE 'N'. DTSIAATX
|
|
00064 DTSIAATX
|
|
00065 15 AATX-WAIVE-INT-IND PIC X(01). DTSIAATX
|
|
00066 88 AATX-WAIVE-INT-YES-88 VALUE 'Y'. DTSIAATX
|
|
00067 88 AATX-WAIVE-INT-NO-88 VALUE 'N'. DTSIAATX
|
|
00068 DTSIAATX
|
|
00069 15 AATX-WAIVE-LATE-PEN-IND PIC X(01). DTSIAATX
|
|
00070 88 AATX-WAIVE-LATE-PEN-YES-88 VALUE 'Y'. DTSIAATX
|
|
00071 88 AATX-WAIVE-LATE-PEN-NO-88 VALUE 'N'. DTSIAATX
|
|
00072 DTSIAATX
|
|
00073 15 AATX-TOTAL-EMPL-CNT PIC S9(07) COMP-3. DTSIAATX
|
|
00074 88 AATX-TOTAL-NO-ENTRY-88 VALUE +9999999. DTSIAATX
|
|
00075 DTSIAATX
|
|
00076 15 AATX-JAN-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
|
00077 88 AATX-JAN-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
|
00078 DTSIAATX
|
|
00079 15 AATX-FEB-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
|
00080 88 AATX-FEB-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
|
00081 DTSIAATX
|
|
00082 15 AATX-MAR-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
|
00083 88 AATX-MAR-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
|
00084 DTSIAATX
|
|
00085 15 AATX-APR-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
|
00086 88 AATX-APR-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
|
00087 DTSIAATX
|
|
00088 15 AATX-MAY-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
|
00089 88 AATX-MAY-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
|
00090 DTSIAATX
|
|
00091 15 AATX-JUN-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
|
00092 88 AATX-JUN-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
|
00093 DTSIAATX
|
|
00094 15 AATX-JUL-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
|
00095 88 AATX-JUL-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
|
00096 DTSIAATX
|
|
00097 15 AATX-AUG-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
|
00098 88 AATX-AUG-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
|
00099 DTSIAATX
|
|
00100 15 AATX-SEP-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
|
00101 88 AATX-SEP-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
|
00102 DTSIAATX
|
|
00103 15 AATX-OCT-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
|
00104 88 AATX-OCT-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
|
00105 DTSIAATX
|
|
00106 15 AATX-NOV-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
|
00107 88 AATX-NOV-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
|
00108 DTSIAATX
|
|
00109 15 AATX-DEC-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
|
00110 88 AATX-DEC-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
|
00111 DTSIAATX
|
|
00112 15 AATX-VERIFIED-IND PIC X(01). DTSIAATX
|
|
00113 88 AATX-VERIFIED-YES-88 VALUE 'Y'. DTSIAATX
|
|
00114 88 AATX-VERIFIED-NO-88 VALUE ' '. DTSIAATX
|
|
00115 DTSIAATX
|
|
00116 15 AATX-RECEIVED-DATE PIC S9(09) COMP-3. DTSIAATX
|
|
00117 DTSIAATX
|
|
00118 15 AATX-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIAATX
|
|
00119 DTSIAATX
|
|
00120 15 AATX-RESPONSIBLE-ACTIVITY DTSIAATX
|
|
00121 PIC X(03). DTSIAATX
|
|
00122 DTSIAATX
|
|
00123 15 AATX-RESPONSIBLE-OP-ID PIC X(08). DTSIAATX
|
|
00124 DTSIAATX
|
|
00125 15 AATX-DISREGARD-EDITS-IND DTSIAATX
|
|
00126 PIC X(01). DTSIAATX
|
|
00127 DTSIAATX
|
|
00128 15 AATX-PASSED-FULL-EDITS-IND DTSIAATX
|
|
00129 PIC X(01). DTSIAATX
|
|
00130 88 AATX-PASSED-FULL-EDITS-NO-88 VALUE 'N'. DTSIAATX
|
|
00131 88 AATX-PASSED-FULL-EDITS-YES-88 VALUE 'Y'. DTSIAATX
|
|
00132 DTSIAATX
|
|
00133 15 AATX-STATUS-CHANGE-IND PIC X(01). DTSIAATX
|
|
00134 88 AATX-STATUS-CHANGE-NO-88 VALUE 'N'. DTSIAATX
|
|
00135 88 AATX-STATUS-CHANGE-YES-88 VALUE 'Y'. DTSIAATX
|
|
00136 DTSIAATX
|
|
00137 15 FILLER PIC X(09). DTSIAATX
|
|
00138 DTSIAATX
|
|
00139 15 AATX-PROCESSED-DATE PIC S9(09) COMP-3. DTSIAATX
|
|
00140 88 AATX-NOT-PROCESSED-88 VALUE ZERO. DTSIAATX
|