DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
140
Copybook/DTSIAATX.cpy
Normal file
140
Copybook/DTSIAATX.cpy
Normal file
@ -0,0 +1,140 @@
|
||||
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
|
||||
Reference in New Issue
Block a user