DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
261
Copybook/DTSIC036.cpy
Normal file
261
Copybook/DTSIC036.cpy
Normal file
@ -0,0 +1,261 @@
|
||||
00001 ***** 05/25/07
|
||||
00002 * DTSIC036
|
||||
00003 * DTSIC036 FIELD SUPPORT CODES VALUES AND DESCRIPTIONS. LV006
|
||||
00004 * DTSIC036
|
||||
00005 ***** DTSIC036
|
||||
00006 SKIP3 DTSIC036
|
||||
00007 ***** DTSIC036
|
||||
00008 * OPTION 01 = MFAS-EMP-SIZE-IND DTSIC036
|
||||
00009 ***** DTSIC036
|
||||
00010 10 C036-01-AREA. DTSIC036
|
||||
00011 15 FILLER PIC X(01) VALUE ' '. DTSIC036
|
||||
00012 15 FILLER PIC X(10) VALUE 'NON-AUDIT'. DTSIC036
|
||||
00013 15 FILLER PIC X(40) DTSIC036
|
||||
00014 VALUE 'NOT AN AUDIT ASSIGNMENT'. DTSIC036
|
||||
00015 15 FILLER PIC X(01) VALUE 'L'. DTSIC036
|
||||
00016 15 FILLER PIC X(10) VALUE 'LARGE'. DTSIC036
|
||||
00017 15 FILLER PIC X(40) DTSIC036
|
||||
00018 VALUE 'LARGE'. DTSIC036
|
||||
00019 15 FILLER PIC X(01) VALUE 'S'. DTSIC036
|
||||
00020 15 FILLER PIC X(10) VALUE 'SMALL'. DTSIC036
|
||||
00021 15 FILLER PIC X(40) DTSIC036
|
||||
00022 VALUE 'SMALL'. DTSIC036
|
||||
00023 SKIP1 DTSIC036
|
||||
00024 10 FILLER REDEFINES C036-01-AREA. DTSIC036
|
||||
00025 15 C036-01-ENTRY OCCURS 3 TIMES DTSIC036
|
||||
00026 INDEXED BY C036-01-IDX. DTSIC036
|
||||
00027 20 C036-01-CD PIC X(01). DTSIC036
|
||||
00028 20 C036-01-SHORT-DSCR PIC X(10). DTSIC036
|
||||
00029 20 C036-01-LONG-DSCR PIC X(40). DTSIC036
|
||||
00030 SKIP3 DTSIC036
|
||||
00031 ***** DTSIC036
|
||||
00032 * OPTION 02 = MFAS-STATUS-IND DTSIC036
|
||||
00033 ***** DTSIC036
|
||||
00034 10 C036-02-AREA. DTSIC036
|
||||
00035 15 FILLER PIC X(01) VALUE 'A'. DTSIC036
|
||||
00036 15 FILLER PIC X(10) VALUE 'ACTIVE'. DTSIC036
|
||||
00037 15 FILLER PIC X(40) DTSIC036
|
||||
00038 VALUE 'ACTIVE'. DTSIC036
|
||||
00039 15 FILLER PIC X(01) VALUE 'C'. DTSIC036
|
||||
00040 15 FILLER PIC X(10) VALUE 'COMPLETED'. DTSIC036
|
||||
00041 15 FILLER PIC X(40) DTSIC036
|
||||
00042 VALUE 'COMPLETED'. DTSIC036
|
||||
00043 15 FILLER PIC X(01) VALUE 'P'. DTSIC036
|
||||
00044 15 FILLER PIC X(10) VALUE 'PROCESSED'. DTSIC036
|
||||
00045 15 FILLER PIC X(40) DTSIC036
|
||||
00046 VALUE 'PROCESSED'. DTSIC036
|
||||
00047 15 FILLER PIC X(01) VALUE 'H'. DTSIC036
|
||||
00048 15 FILLER PIC X(10) VALUE 'HELD'. DTSIC036
|
||||
00049 15 FILLER PIC X(40) DTSIC036
|
||||
00050 VALUE 'HELD'. DTSIC036
|
||||
00051 15 FILLER PIC X(01) VALUE 'K'. DTSIC036
|
||||
00052 15 FILLER PIC X(10) VALUE 'KILLED'. DTSIC036
|
||||
00053 15 FILLER PIC X(40) DTSIC036
|
||||
00054 VALUE 'KILLED (CANCELED)'. DTSIC036
|
||||
00055 SKIP1 DTSIC036
|
||||
00056 10 FILLER REDEFINES C036-02-AREA. DTSIC036
|
||||
00057 15 C036-02-ENTRY OCCURS 5 TIMES DTSIC036
|
||||
00058 INDEXED BY C036-02-IDX. DTSIC036
|
||||
00059 20 C036-02-CD PIC X(01). DTSIC036
|
||||
00060 20 C036-02-SHORT-DSCR PIC X(10). DTSIC036
|
||||
00061 20 C036-02-LONG-DSCR PIC X(40). DTSIC036
|
||||
00062 SKIP3 DTSIC036
|
||||
00063 ***** DTSIC036
|
||||
00064 * OPTION 03 = MFAS-AUDIT-SEL-REASON DTSIC036
|
||||
00065 ***** DTSIC036
|
||||
00066 10 C036-03-AREA. DTSIC036
|
||||
00067 15 FILLER PIC X(02) VALUE '01'. DTSIC036
|
||||
00068 15 FILLER PIC X(10) VALUE 'RANDOM'. DTSIC036
|
||||
00069 15 FILLER PIC X(40) DTSIC036
|
||||
00070 VALUE 'RANDOM'. DTSIC036
|
||||
00071 15 FILLER PIC X(02) VALUE '02'. DTSIC036
|
||||
00072 15 FILLER PIC X(10) VALUE 'LARGE EMP '. DTSIC036
|
||||
00073 15 FILLER PIC X(40) DTSIC036
|
||||
00074 VALUE 'LARGE EMPLOYER'. DTSIC036
|
||||
00075 15 FILLER PIC X(02) VALUE '03'. DTSIC036
|
||||
00076 15 FILLER PIC X(10) VALUE 'REQUEST '. DTSIC036
|
||||
00077 15 FILLER PIC X(40) DTSIC036
|
||||
00078 VALUE 'REQUEST'. DTSIC036
|
||||
00079 SKIP1 DTSIC036
|
||||
00080 10 FILLER REDEFINES C036-03-AREA. DTSIC036
|
||||
00081 15 C036-03-ENTRY OCCURS 3 TIMES DTSIC036
|
||||
00082 INDEXED BY C036-03-IDX. DTSIC036
|
||||
00083 20 C036-03-CD PIC X(02). DTSIC036
|
||||
00084 20 C036-03-SHORT-DSCR PIC X(10). DTSIC036
|
||||
00085 20 C036-03-LONG-DSCR PIC X(40). DTSIC036
|
||||
00086 SKIP3 DTSIC036
|
||||
00087 ***** DTSIC036
|
||||
00088 * OPTION 04 = MAUR-EMP-SIZE-IND DTSIC036
|
||||
00089 ***** DTSIC036
|
||||
00090 10 C036-04-AREA. DTSIC036
|
||||
00091 15 FILLER PIC X(01) VALUE 'L'. DTSIC036
|
||||
00092 15 FILLER PIC X(10) VALUE 'LARGE'. DTSIC036
|
||||
00093 15 FILLER PIC X(40) DTSIC036
|
||||
00094 VALUE 'LARGE'. DTSIC036
|
||||
00095 15 FILLER PIC X(01) VALUE 'S'. DTSIC036
|
||||
00096 15 FILLER PIC X(10) VALUE 'SMALL'. DTSIC036
|
||||
00097 15 FILLER PIC X(40) DTSIC036
|
||||
00098 VALUE 'SMALL'. DTSIC036
|
||||
00099 SKIP1 DTSIC036
|
||||
00100 10 FILLER REDEFINES C036-04-AREA. DTSIC036
|
||||
00101 15 C036-04-ENTRY OCCURS 2 TIMES DTSIC036
|
||||
00102 INDEXED BY C036-04-IDX. DTSIC036
|
||||
00103 20 C036-04-CD PIC X(01). DTSIC036
|
||||
00104 20 C036-04-SHORT-DSCR PIC X(10). DTSIC036
|
||||
00105 20 C036-04-LONG-DSCR PIC X(40). DTSIC036
|
||||
00106 SKIP3 DTSIC036
|
||||
00107 ***** DTSIC036
|
||||
00108 * OPTION 05 = MAUR-ERROR-TYPE DTSIC036
|
||||
00109 ***** DTSIC036
|
||||
00110 10 C036-05-AREA. DTSIC036
|
||||
00111 15 FILLER PIC X(02) VALUE '51'. DTSIC036
|
||||
00112 15 FILLER PIC X(10) VALUE 'IND CONTRC'. DTSIC036
|
||||
00113 15 FILLER PIC X(40) DTSIC036
|
||||
00114 VALUE 'INDEPENDENT CONTRACTOR'. DTSIC036
|
||||
00115 15 FILLER PIC X(02) VALUE '52'. DTSIC036
|
||||
00116 15 FILLER PIC X(10) VALUE 'OFFICR WGS'. DTSIC036
|
||||
00117 15 FILLER PIC X(40) DTSIC036
|
||||
00118 VALUE 'CORPORATE OFFICER WAGES'. DTSIC036
|
||||
00119 15 FILLER PIC X(02) VALUE '53'. DTSIC036
|
||||
00120 15 FILLER PIC X(10) VALUE 'TIPS'. DTSIC036
|
||||
00121 15 FILLER PIC X(40) DTSIC036
|
||||
00122 VALUE 'TIPS'. DTSIC036
|
||||
00123 15 FILLER PIC X(02) VALUE '54'. DTSIC036
|
||||
00124 15 FILLER PIC X(10) VALUE 'MEALS'. DTSIC036
|
||||
00125 15 FILLER PIC X(40) DTSIC036
|
||||
00126 VALUE 'MEALS AND LODGING'. DTSIC036
|
||||
00127 15 FILLER PIC X(02) VALUE '55'. DTSIC036
|
||||
00128 15 FILLER PIC X(10) VALUE 'CASUAL LBR'. DTSIC036
|
||||
00129 15 FILLER PIC X(40) DTSIC036
|
||||
00130 VALUE 'CASUAL AND SPOT LABOR'. DTSIC036
|
||||
00131 15 FILLER PIC X(02) VALUE '56'. DTSIC036
|
||||
00132 15 FILLER PIC X(10) VALUE 'BENEFT PLN'. DTSIC036
|
||||
00133 15 FILLER PIC X(40) DTSIC036
|
||||
00134 VALUE 'BENEFIT PLANS'. DTSIC036
|
||||
00135 15 FILLER PIC X(02) VALUE '57'. DTSIC036
|
||||
00136 15 FILLER PIC X(10) VALUE 'EXPNS REIM'. DTSIC036
|
||||
00137 15 FILLER PIC X(40) DTSIC036
|
||||
00138 VALUE 'EXPENSE REIMBURSEMENT'. DTSIC036
|
||||
00139 15 FILLER PIC X(02) VALUE '58'. DTSIC036
|
||||
00140 15 FILLER PIC X(10) VALUE 'EXEMPT EMP'. DTSIC036
|
||||
00141 15 FILLER PIC X(40) DTSIC036
|
||||
00142 VALUE 'EXEMPT EMPLOYEES REPORTED IN ERROR'. DTSIC036
|
||||
00143 15 FILLER PIC X(02) VALUE '59'. DTSIC036
|
||||
00144 15 FILLER PIC X(10) VALUE 'WG BAS ERR'. DTSIC036
|
||||
00145 15 FILLER PIC X(40) DTSIC036
|
||||
00146 VALUE 'WAGE BASE ERROR'. DTSIC036
|
||||
00147 15 FILLER PIC X(02) VALUE '60'. DTSIC036
|
||||
00148 15 FILLER PIC X(10) VALUE 'COMMISSION'. DTSIC036
|
||||
00149 15 FILLER PIC X(40) DTSIC036
|
||||
00150 VALUE 'COMMISSIONS'. DTSIC036
|
||||
00151 15 FILLER PIC X(02) VALUE '61'. DTSIC036
|
||||
00152 15 FILLER PIC X(10) VALUE 'BONUSES'. DTSIC036
|
||||
00153 15 FILLER PIC X(40) DTSIC036
|
||||
00154 VALUE 'BONUSES'. DTSIC036
|
||||
00155 15 FILLER PIC X(02) VALUE '62'. DTSIC036
|
||||
00156 15 FILLER PIC X(10) VALUE 'DOMESTIC'. DTSIC036
|
||||
00157 15 FILLER PIC X(40) DTSIC036
|
||||
00158 VALUE 'DOMESTIC'. DTSIC036
|
||||
00159 15 FILLER PIC X(02) VALUE '63'. DTSIC036
|
||||
00160 15 FILLER PIC X(10) VALUE 'SEVER PAY'. DTSIC036
|
||||
00161 15 FILLER PIC X(40) DTSIC036
|
||||
00162 VALUE 'SEVERANCE PAY'. DTSIC036
|
||||
00163 15 FILLER PIC X(02) VALUE '64'. DTSIC036
|
||||
00164 15 FILLER PIC X(10) VALUE 'ARITH ERR'. DTSIC036
|
||||
00165 15 FILLER PIC X(40) DTSIC036
|
||||
00166 VALUE 'ARITHMETIC ERROR'. DTSIC036
|
||||
00167 15 FILLER PIC X(02) VALUE '65'. DTSIC036
|
||||
00168 15 FILLER PIC X(10) VALUE 'MISCLASS '. DTSIC036
|
||||
00169 15 FILLER PIC X(40) DTSIC036
|
||||
00170 VALUE 'MISC MISCLASSIFIED WORKERS'. DTSIC036
|
||||
00171 15 FILLER PIC X(02) VALUE '66'. DTSIC036
|
||||
00172 15 FILLER PIC X(10) VALUE 'UNRPT MIS'. DTSIC036
|
||||
00173 15 FILLER PIC X(40) DTSIC036
|
||||
00174 VALUE 'OTHER UNREPORTED MISCLASSIFIED WORKERS'. DTSIC036
|
||||
00175 15 FILLER PIC X(02) VALUE '67'. DTSIC036
|
||||
00176 15 FILLER PIC X(10) VALUE 'EMPL OMIT'. DTSIC036
|
||||
00177 15 FILLER PIC X(40) DTSIC036
|
||||
00178 VALUE 'EMPLOYEES OMITTED'. DTSIC036
|
||||
00179 15 FILLER PIC X(02) VALUE '68'. DTSIC036
|
||||
00180 15 FILLER PIC X(10) VALUE 'WGE UNRPT'. DTSIC036
|
||||
00181 15 FILLER PIC X(40) DTSIC036
|
||||
00182 VALUE 'WAGES UNREPORTED'. DTSIC036
|
||||
00183 15 FILLER PIC X(02) VALUE '69'. DTSIC036
|
||||
00184 15 FILLER PIC X(10) VALUE 'INTERNS '. DTSIC036
|
||||
00185 15 FILLER PIC X(40) DTSIC036
|
||||
00186 VALUE 'INTERNS MISCLASSIFIED'. DTSIC036
|
||||
00187 15 FILLER PIC X(02) VALUE '70'. DTSIC036
|
||||
00188 15 FILLER PIC X(10) VALUE 'WRONG ST '. DTSIC036
|
||||
00189 15 FILLER PIC X(40) DTSIC036
|
||||
00190 VALUE 'WAGES REPORTED TO WRONG STATE'. DTSIC036
|
||||
00191 15 FILLER PIC X(02) VALUE '71'. DTSIC036
|
||||
00192 15 FILLER PIC X(10) VALUE 'UNDEFINED'. DTSIC036
|
||||
00193 15 FILLER PIC X(40) DTSIC036
|
||||
00194 VALUE 'UNDEFINED'. DTSIC036
|
||||
00195 15 FILLER PIC X(02) VALUE '72'. DTSIC036
|
||||
00196 15 FILLER PIC X(10) VALUE 'UNDEFINED'. DTSIC036
|
||||
00197 15 FILLER PIC X(40) DTSIC036
|
||||
00198 VALUE 'UNDEFINED'. DTSIC036
|
||||
00199 15 FILLER PIC X(02) VALUE '73'. DTSIC036
|
||||
00200 15 FILLER PIC X(10) VALUE 'UNDEFINED'. DTSIC036
|
||||
00201 15 FILLER PIC X(40) DTSIC036
|
||||
00202 VALUE 'UNDEFINED'. DTSIC036
|
||||
00203 15 FILLER PIC X(02) VALUE '74'. DTSIC036
|
||||
00204 15 FILLER PIC X(10) VALUE 'UNDEFINED'. DTSIC036
|
||||
00205 15 FILLER PIC X(40) DTSIC036
|
||||
00206 VALUE 'UNDEFINED'. DTSIC036
|
||||
00207 15 FILLER PIC X(02) VALUE '75'. DTSIC036
|
||||
00208 15 FILLER PIC X(10) VALUE 'OTHER'. DTSIC036
|
||||
00209 15 FILLER PIC X(40) DTSIC036
|
||||
00210 VALUE 'OTHER'. DTSIC036
|
||||
00211 SKIP1 DTSIC036
|
||||
00212 10 FILLER REDEFINES C036-05-AREA. DTSIC036
|
||||
00213 15 C036-05-ENTRY OCCURS 25 TIMES DTSIC036
|
||||
00214 INDEXED BY C036-05-IDX. DTSIC036
|
||||
00215 20 C036-05-CD PIC X(02). DTSIC036
|
||||
00216 20 C036-05-SHORT-DSCR PIC X(10). DTSIC036
|
||||
00217 20 C036-05-LONG-DSCR PIC X(40). DTSIC036
|
||||
00218 SKIP3 DTSIC036
|
||||
00219 ***** DTSIC036
|
||||
00220 * OPTION 06 = MAUR-MONEY-REASON-CD DTSIC036
|
||||
00221 ***** DTSIC036
|
||||
00222 10 C036-06-AREA. DTSIC036
|
||||
00223 15 FILLER PIC X(01) VALUE '0'. DTSIC036
|
||||
00224 15 FILLER PIC X(10) VALUE 'N/A'. DTSIC036
|
||||
00225 15 FILLER PIC X(40) DTSIC036
|
||||
00226 VALUE 'NOT APPLICABLE: DUE AMT = COLLECT AMT'. DTSIC036
|
||||
00227 15 FILLER PIC X(01) VALUE '1'. DTSIC036
|
||||
00228 15 FILLER PIC X(10) VALUE 'WAIVER '. DTSIC036
|
||||
00229 15 FILLER PIC X(40) DTSIC036
|
||||
00230 VALUE 'WAIVER GRANTED'. DTSIC036
|
||||
00231 15 FILLER PIC X(01) VALUE '2'. DTSIC036
|
||||
00232 15 FILLER PIC X(10) VALUE 'DPC SIGNED'. DTSIC036
|
||||
00233 15 FILLER PIC X(40) DTSIC036
|
||||
00234 VALUE 'DEFERRED PAYMENT CONTRACT SIGNED'. DTSIC036
|
||||
00235 15 FILLER PIC X(01) VALUE '3'. DTSIC036
|
||||
00236 15 FILLER PIC X(10) VALUE 'EMP REFUSE'. DTSIC036
|
||||
00237 15 FILLER PIC X(40) DTSIC036
|
||||
00238 VALUE 'EMP REFUSED TO SIGN AUDIT - WILL APPEAL'. DTSIC036
|
||||
00239 15 FILLER PIC X(01) VALUE '4'. DTSIC036
|
||||
00240 15 FILLER PIC X(10) VALUE 'REFUSE PAY'. DTSIC036
|
||||
00241 15 FILLER PIC X(40) DTSIC036
|
||||
00242 VALUE 'EMP REFUSED TO PAY'. DTSIC036
|
||||
00243 15 FILLER PIC X(01) VALUE '5'. DTSIC036
|
||||
00244 15 FILLER PIC X(10) VALUE 'REQ BILL'. DTSIC036
|
||||
00245 15 FILLER PIC X(40) DTSIC036
|
||||
00246 VALUE 'EMP REQUESTED BILL'. DTSIC036
|
||||
00247 15 FILLER PIC X(01) VALUE '8'. DTSIC036
|
||||
00248 15 FILLER PIC X(10) VALUE 'OTHER'. DTSIC036
|
||||
00249 15 FILLER PIC X(40) DTSIC036
|
||||
00250 VALUE 'OTHER'. DTSIC036
|
||||
00251 15 FILLER PIC X(01) VALUE '9'. DTSIC036
|
||||
00252 15 FILLER PIC X(10) VALUE 'UNKNOWN'. DTSIC036
|
||||
00253 15 FILLER PIC X(40) DTSIC036
|
||||
00254 VALUE 'UNKNOWN'. DTSIC036
|
||||
00255 SKIP1 DTSIC036
|
||||
00256 10 FILLER REDEFINES C036-06-AREA. DTSIC036
|
||||
00257 15 C036-06-ENTRY OCCURS 8 TIMES DTSIC036
|
||||
00258 INDEXED BY C036-06-IDX. DTSIC036
|
||||
00259 20 C036-06-CD PIC X(01). DTSIC036
|
||||
00260 20 C036-06-SHORT-DSCR PIC X(10). DTSIC036
|
||||
00261 20 C036-06-LONG-DSCR PIC X(40). DTSIC036
|
||||
Reference in New Issue
Block a user