DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
871
Copybook/DTSIC032.cpy
Normal file
871
Copybook/DTSIC032.cpy
Normal file
@ -0,0 +1,871 @@
|
||||
00001 ***** 08/19/13
|
||||
00002 * DTSIC032
|
||||
00003 * DTSIC032 ACCOUNTING CODES VALUES AND DESCRIPTIONS. LV012
|
||||
00004 * DTSIC032
|
||||
00005 * DTSIC032
|
||||
00006 * 11/05/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIC032
|
||||
00007 * DTSIC032
|
||||
00008 * 05/27/1999 PICKUP MODIFICATIONS. DTSIC032
|
||||
00009 * REFERENCE: PICKUP DIR PROGRAMMER: EHH DTSIC032
|
||||
00010 * DTSIC032
|
||||
00011 * 07/12/2007 ADDED ANNUAL FILER NOT LIABLE TO DTSIC032
|
||||
00012 * QUARTER REPORT TYPES. DTSIC032
|
||||
00013 * REFERENCE: PROGRAMMER: GD DTSIC032
|
||||
00014 * DTSIC032
|
||||
00015 * 03/09/2011 ADDED NP AND NR PAYMENT TYPES FOR DTSIC032
|
||||
00016 * NON-DOES CHECK PROCESSING. DTSIC032
|
||||
00017 * REFERENCE: PROGRAMMER: GD DTSIC032
|
||||
00018 * DTSIC032
|
||||
00019 * 04/12/2011 ADDED NH PAYMENT TYPE FOR NON-DOES DTSIC032
|
||||
00020 * CHECKS RETURNED BY THE BANK. DTSIC032
|
||||
00021 * REFERENCE: PROGRAMMER: GD DTSIC032
|
||||
00022 * DTSIC032
|
||||
00023 * 09/27/2012 REMOVED NH PAYMENT TYPE. DTSIC032
|
||||
00024 * ADDED CLAIMANT WAGE REPORTS: CW AND CZ.DTSIC032
|
||||
00025 * REFERENCE: PROGRAMMER: GD DTSIC032
|
||||
00026 * DTSIC032
|
||||
00027 * 04/05/2013 ADDED TAX WAGE ADJUSTMENT REPORT TYPE. DTSIC032
|
||||
00028 * REFERENCE: PROGRAMMER: GD DTSIC032
|
||||
00029 * DTSIC032
|
||||
00030 * 07/26/2013 ADDED SUTA DUMPING PAYMENT TYPE. DTSIC032
|
||||
00031 * REFERENCE: TICKET 1969 PROGRAMMER: GD DTSIC032
|
||||
00032 * DTSIC032
|
||||
00033 ***** DTSIC032
|
||||
00034 DTSIC032
|
||||
00035 ***** DTSIC032
|
||||
00036 * OPTION 01 = MQTR-CURR-RPT-TYPE DTSIC032
|
||||
00037 ***** DTSIC032
|
||||
00038 10 C032-01-AREA. DTSIC032
|
||||
00039 15 FILLER PIC X(01) VALUE 'N'. DTSIC032
|
||||
00040 15 FILLER PIC X(10) VALUE 'NOT LIABLE'. DTSIC032
|
||||
00041 15 FILLER PIC X(40) DTSIC032
|
||||
00042 VALUE 'NOT LIABLE'. DTSIC032
|
||||
00043 15 FILLER PIC X(01) VALUE 'L'. DTSIC032
|
||||
00044 15 FILLER PIC X(10) VALUE 'LBL NOT DU'. DTSIC032
|
||||
00045 15 FILLER PIC X(40) DTSIC032
|
||||
00046 VALUE 'LIABLE (NOT YET DUE)'. DTSIC032
|
||||
00047 15 FILLER PIC X(01) VALUE 'D'. DTSIC032
|
||||
00048 15 FILLER PIC X(10) VALUE 'DELINQUENT'. DTSIC032
|
||||
00049 15 FILLER PIC X(40) DTSIC032
|
||||
00050 VALUE 'DELINQUENT'. DTSIC032
|
||||
00051 15 FILLER PIC X(01) VALUE 'E'. DTSIC032
|
||||
00052 15 FILLER PIC X(10) VALUE 'ESTIMATED'. DTSIC032
|
||||
00053 15 FILLER PIC X(40) DTSIC032
|
||||
00054 VALUE 'ESTIMATED'. DTSIC032
|
||||
00055 15 FILLER PIC X(01) VALUE 'O'. DTSIC032
|
||||
00056 15 FILLER PIC X(10) VALUE 'ORIGINAL'. DTSIC032
|
||||
00057 15 FILLER PIC X(40) DTSIC032
|
||||
00058 VALUE 'ORIGINAL'. DTSIC032
|
||||
00059 15 FILLER PIC X(01) VALUE 'M'. DTSIC032
|
||||
00060 15 FILLER PIC X(10) VALUE 'AMENDED'. DTSIC032
|
||||
00061 15 FILLER PIC X(40) DTSIC032
|
||||
00062 VALUE 'AMENDED'. DTSIC032
|
||||
00063 15 FILLER PIC X(01) VALUE 'A'. DTSIC032
|
||||
00064 15 FILLER PIC X(10) VALUE 'AUDIT'. DTSIC032
|
||||
00065 15 FILLER PIC X(40) DTSIC032
|
||||
00066 VALUE 'AUDIT'. DTSIC032
|
||||
00067 15 FILLER PIC X(01) VALUE 'F'. DTSIC032
|
||||
00068 15 FILLER PIC X(10) VALUE 'FIELD (NA)'. DTSIC032
|
||||
00069 15 FILLER PIC X(40) DTSIC032
|
||||
00070 VALUE 'FIELD (NOT AUDIT)'. DTSIC032
|
||||
00071 15 FILLER PIC X(01) VALUE 'C'. DTSIC032
|
||||
00072 15 FILLER PIC X(10) VALUE 'ADMIN CORR'. DTSIC032
|
||||
00073 15 FILLER PIC X(40) DTSIC032
|
||||
00074 VALUE 'ADMINISTRATIVE CORRECTION'. DTSIC032
|
||||
00075 15 FILLER PIC X(01) VALUE 'P'. DTSIC032
|
||||
00076 15 FILLER PIC X(10) VALUE 'PICKUP '. DTSIC032
|
||||
00077 15 FILLER PIC X(40) DTSIC032
|
||||
00078 VALUE 'PICKUP'. DTSIC032
|
||||
00079 15 FILLER PIC X(01) VALUE 'H'. DTSIC032
|
||||
00080 15 FILLER PIC X(10) VALUE 'ANN NOT LB'. DTSIC032
|
||||
00081 15 FILLER PIC X(40) DTSIC032
|
||||
00082 VALUE 'ANNUAL FILER NOT LIABLE'. DTSIC032
|
||||
00083 15 FILLER PIC X(01) VALUE 'B'. DTSIC032
|
||||
00084 15 FILLER PIC X(10) VALUE 'CLMT WAGE '. DTSIC032
|
||||
00085 15 FILLER PIC X(40) DTSIC032
|
||||
00086 VALUE 'CLAIMANT WAGE REPORT '. DTSIC032
|
||||
00087 15 FILLER PIC X(01) VALUE 'T'. DTSIC032
|
||||
00088 15 FILLER PIC X(10) VALUE 'TAX WG ADJ'. DTSIC032
|
||||
00089 15 FILLER PIC X(40) DTSIC032
|
||||
00090 VALUE 'TAX WAGE ADJUSTMENT '. DTSIC032
|
||||
00091 DTSIC032
|
||||
00092 10 FILLER REDEFINES C032-01-AREA. DTSIC032
|
||||
00093 15 C032-01-ENTRY OCCURS 13 TIMES DTSIC032
|
||||
00094 INDEXED BY C032-01-IDX. DTSIC032
|
||||
00095 20 C032-01-CD PIC X(01). DTSIC032
|
||||
00096 20 C032-01-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00097 20 C032-01-LONG-DSCR PIC X(40). DTSIC032
|
||||
00098 SKIP3 DTSIC032
|
||||
00099 ***** DTSIC032
|
||||
00100 * OPTION 02 = MQTR-MISS-RPT-CUOFF-CD DTSIC032
|
||||
00101 ***** DTSIC032
|
||||
00102 10 C032-02-AREA. DTSIC032
|
||||
00103 15 FILLER PIC X(01) VALUE '0'. DTSIC032
|
||||
00104 15 FILLER PIC X(10) VALUE 'NOT LIABLE'. DTSIC032
|
||||
00105 15 FILLER PIC X(40) DTSIC032
|
||||
00106 VALUE 'NOT LIABLE'. DTSIC032
|
||||
00107 15 FILLER PIC X(01) VALUE '1'. DTSIC032
|
||||
00108 15 FILLER PIC X(10) VALUE 'TIMELY'. DTSIC032
|
||||
00109 15 FILLER PIC X(40) DTSIC032
|
||||
00110 VALUE 'LIABLE AND TIMELY ORIGINAL REPORT'. DTSIC032
|
||||
00111 15 FILLER PIC X(01) VALUE '2'. DTSIC032
|
||||
00112 15 FILLER PIC X(10) VALUE 'UNTIMELY'. DTSIC032
|
||||
00113 15 FILLER PIC X(40) DTSIC032
|
||||
00114 VALUE 'LIABLE AND UNTIMELY ORIGINAL REPORT'. DTSIC032
|
||||
00115 15 FILLER PIC X(01) VALUE '3'. DTSIC032
|
||||
00116 15 FILLER PIC X(10) VALUE 'EXTEN DATE'. DTSIC032
|
||||
00117 15 FILLER PIC X(40) DTSIC032
|
||||
00118 VALUE 'NO DELINQ NOTICE - EXTENDED DUE DATE'. DTSIC032
|
||||
00119 15 FILLER PIC X(01) VALUE '4'. DTSIC032
|
||||
00120 15 FILLER PIC X(10) VALUE 'NO ADDRESS'. DTSIC032
|
||||
00121 15 FILLER PIC X(40) DTSIC032
|
||||
00122 VALUE 'NO DELINQ NOTICE - NO TAX ADDRESS'. DTSIC032
|
||||
00123 15 FILLER PIC X(01) VALUE '8'. DTSIC032
|
||||
00124 15 FILLER PIC X(10) VALUE 'NO DELINQ'. DTSIC032
|
||||
00125 15 FILLER PIC X(40) DTSIC032
|
||||
00126 VALUE 'NO DELINQ NOTICE - OTHER'. DTSIC032
|
||||
00127 15 FILLER PIC X(01) VALUE '9'. DTSIC032
|
||||
00128 15 FILLER PIC X(10) VALUE 'DELINQ'. DTSIC032
|
||||
00129 15 FILLER PIC X(40) DTSIC032
|
||||
00130 VALUE 'DELINQUENCY NOTICE SENT'. DTSIC032
|
||||
00131 15 FILLER PIC X(01) VALUE 'C'. DTSIC032
|
||||
00132 15 FILLER PIC X(10) VALUE 'CONVERSION'. DTSIC032
|
||||
00133 15 FILLER PIC X(40) DTSIC032
|
||||
00134 VALUE 'CODE UNDETERMINABLE AT CONVERSION'. DTSIC032
|
||||
00135 15 FILLER PIC X(01) VALUE 'Z'. DTSIC032
|
||||
00136 15 FILLER PIC X(10) VALUE 'NOT YET '. DTSIC032
|
||||
00137 15 FILLER PIC X(40) DTSIC032
|
||||
00138 VALUE 'MISSING REPORT RUN HAS NOT YET OCCURRED'. DTSIC032
|
||||
00139 DTSIC032
|
||||
00140 10 FILLER REDEFINES C032-02-AREA. DTSIC032
|
||||
00141 15 C032-02-ENTRY OCCURS 9 TIMES DTSIC032
|
||||
00142 INDEXED BY C032-02-IDX. DTSIC032
|
||||
00143 20 C032-02-CD PIC X(01). DTSIC032
|
||||
00144 20 C032-02-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00145 20 C032-02-LONG-DSCR PIC X(40). DTSIC032
|
||||
00146 SKIP3 DTSIC032
|
||||
00147 ***** DTSIC032
|
||||
00148 * OPTION 03 = MQTR-TAX-DUE-DATE-IND DTSIC032
|
||||
00149 ***** DTSIC032
|
||||
00150 10 C032-03-AREA. DTSIC032
|
||||
00151 15 FILLER PIC X(01) VALUE 'M'. DTSIC032
|
||||
00152 15 FILLER PIC X(10) VALUE 'MANUAL'. DTSIC032
|
||||
00153 15 FILLER PIC X(40) DTSIC032
|
||||
00154 VALUE 'TAX DUE DATE - MANUAL (USER) CONTROL'. DTSIC032
|
||||
00155 15 FILLER PIC X(01) VALUE 'A'. DTSIC032
|
||||
00156 15 FILLER PIC X(10) VALUE 'AUTOMATIC'. DTSIC032
|
||||
00157 15 FILLER PIC X(40) DTSIC032
|
||||
00158 VALUE 'TAX DUE DT - AUTOMATIC (SYSTEM) CONTROL'. DTSIC032
|
||||
00159 DTSIC032
|
||||
00160 10 FILLER REDEFINES C032-03-AREA. DTSIC032
|
||||
00161 15 C032-03-ENTRY OCCURS 2 TIMES DTSIC032
|
||||
00162 INDEXED BY C032-03-IDX. DTSIC032
|
||||
00163 20 C032-03-CD PIC X(01). DTSIC032
|
||||
00164 20 C032-03-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00165 20 C032-03-LONG-DSCR PIC X(40). DTSIC032
|
||||
00166 SKIP3 DTSIC032
|
||||
00167 ***** DTSIC032
|
||||
00168 * OPTION 04 = MQTR-RPT-DUE-DATE-IND DTSIC032
|
||||
00169 ***** DTSIC032
|
||||
00170 10 C032-04-AREA. DTSIC032
|
||||
00171 15 FILLER PIC X(01) VALUE 'M'. DTSIC032
|
||||
00172 15 FILLER PIC X(10) VALUE 'MANUAL'. DTSIC032
|
||||
00173 15 FILLER PIC X(40) DTSIC032
|
||||
00174 VALUE 'RPT DUE DATE - MANUAL (USER) CONTROL'. DTSIC032
|
||||
00175 15 FILLER PIC X(01) VALUE 'A'. DTSIC032
|
||||
00176 15 FILLER PIC X(10) VALUE 'AUTOMATIC'. DTSIC032
|
||||
00177 15 FILLER PIC X(40) DTSIC032
|
||||
00178 VALUE 'RPT DUE DT - AUTOMATIC (SYSTEM) CONTROL'. DTSIC032
|
||||
00179 DTSIC032
|
||||
00180 10 FILLER REDEFINES C032-04-AREA. DTSIC032
|
||||
00181 15 C032-04-ENTRY OCCURS 2 TIMES DTSIC032
|
||||
00182 INDEXED BY C032-04-IDX. DTSIC032
|
||||
00183 20 C032-04-CD PIC X(01). DTSIC032
|
||||
00184 20 C032-04-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00185 20 C032-04-LONG-DSCR PIC X(40). DTSIC032
|
||||
00186 SKIP3 DTSIC032
|
||||
00187 ***** DTSIC032
|
||||
00188 * OPTION 05 = MQTR-INT-CHARGE-IND DTSIC032
|
||||
00189 ***** DTSIC032
|
||||
00190 10 C032-05-AREA. DTSIC032
|
||||
00191 15 FILLER PIC X(01) VALUE 'A'. DTSIC032
|
||||
00192 15 FILLER PIC X(10) VALUE 'AUTOMATIC'. DTSIC032
|
||||
00193 15 FILLER PIC X(40) DTSIC032
|
||||
00194 VALUE 'AUTOMATIC INTEREST CHARGING'. DTSIC032
|
||||
00195 15 FILLER PIC X(01) VALUE 'M'. DTSIC032
|
||||
00196 15 FILLER PIC X(10) VALUE 'MANUAL'. DTSIC032
|
||||
00197 15 FILLER PIC X(40) DTSIC032
|
||||
00198 VALUE 'MANUAL INTEREST CHARGING'. DTSIC032
|
||||
00199 DTSIC032
|
||||
00200 10 FILLER REDEFINES C032-05-AREA. DTSIC032
|
||||
00201 15 C032-05-ENTRY OCCURS 2 TIMES DTSIC032
|
||||
00202 INDEXED BY C032-05-IDX. DTSIC032
|
||||
00203 20 C032-05-CD PIC X(01). DTSIC032
|
||||
00204 20 C032-05-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00205 20 C032-05-LONG-DSCR PIC X(40). DTSIC032
|
||||
00206 SKIP3 DTSIC032
|
||||
00207 ***** DTSIC032
|
||||
00208 * OPTION 06 = MQTR-PEN-CHARGE-IND DTSIC032
|
||||
00209 ***** DTSIC032
|
||||
00210 10 C032-06-AREA. DTSIC032
|
||||
00211 15 FILLER PIC X(01) VALUE 'A'. DTSIC032
|
||||
00212 15 FILLER PIC X(10) VALUE 'AUTOMATIC'. DTSIC032
|
||||
00213 15 FILLER PIC X(40) DTSIC032
|
||||
00214 VALUE 'AUTOMATIC PENALTY CHARGING'. DTSIC032
|
||||
00215 15 FILLER PIC X(01) VALUE 'M'. DTSIC032
|
||||
00216 15 FILLER PIC X(10) VALUE 'MANUAL'. DTSIC032
|
||||
00217 15 FILLER PIC X(40) DTSIC032
|
||||
00218 VALUE 'MANUAL PENALTY CHARGING'. DTSIC032
|
||||
00219 DTSIC032
|
||||
00220 10 FILLER REDEFINES C032-06-AREA. DTSIC032
|
||||
00221 15 C032-06-ENTRY OCCURS 2 TIMES DTSIC032
|
||||
00222 INDEXED BY C032-06-IDX. DTSIC032
|
||||
00223 20 C032-06-CD PIC X(01). DTSIC032
|
||||
00224 20 C032-06-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00225 20 C032-06-LONG-DSCR PIC X(40). DTSIC032
|
||||
00226 SKIP3 DTSIC032
|
||||
00227 ***** DTSIC032
|
||||
00228 * OPTION 11 = MQTR-ACCT-IND DTSIC032
|
||||
00229 ***** DTSIC032
|
||||
00230 10 C032-11-AREA. DTSIC032
|
||||
00231 15 FILLER PIC X(02) VALUE 'UI'. DTSIC032
|
||||
00232 15 FILLER PIC X(10) VALUE 'UI TAX'. DTSIC032
|
||||
00233 15 FILLER PIC X(40) DTSIC032
|
||||
00234 VALUE 'UI TAX'. DTSIC032
|
||||
00235 15 FILLER PIC X(02) VALUE 'SU'. DTSIC032
|
||||
00236 15 FILLER PIC X(10) VALUE 'SUR TAX'. DTSIC032
|
||||
00237 15 FILLER PIC X(40) DTSIC032
|
||||
00238 VALUE 'SUR TAX'. DTSIC032
|
||||
00239 15 FILLER PIC X(02) VALUE 'I '. DTSIC032
|
||||
00240 15 FILLER PIC X(10) VALUE 'INTEREST'. DTSIC032
|
||||
00241 15 FILLER PIC X(40) DTSIC032
|
||||
00242 VALUE 'INTEREST'. DTSIC032
|
||||
00243 15 FILLER PIC X(02) VALUE 'LP'. DTSIC032
|
||||
00244 15 FILLER PIC X(10) VALUE 'LT PAY PEN'. DTSIC032
|
||||
00245 15 FILLER PIC X(40) DTSIC032
|
||||
00246 VALUE 'LATE PAYMENT PENALTY'. DTSIC032
|
||||
00247 15 FILLER PIC X(02) VALUE 'NP'. DTSIC032
|
||||
00248 15 FILLER PIC X(10) VALUE 'NSF PEN'. DTSIC032
|
||||
00249 15 FILLER PIC X(40) DTSIC032
|
||||
00250 VALUE 'NSF CHECK PENALTY'. DTSIC032
|
||||
00251 15 FILLER PIC X(02) VALUE 'MP'. DTSIC032
|
||||
00252 15 FILLER PIC X(10) VALUE 'MISC PEN'. DTSIC032
|
||||
00253 15 FILLER PIC X(40) DTSIC032
|
||||
00254 VALUE 'MISCELLANEOUS PENALTY'. DTSIC032
|
||||
00255 DTSIC032
|
||||
00256 10 FILLER REDEFINES C032-11-AREA. DTSIC032
|
||||
00257 15 C032-11-ENTRY OCCURS 6 TIMES DTSIC032
|
||||
00258 INDEXED BY C032-11-IDX. DTSIC032
|
||||
00259 20 C032-11-CD PIC X(02). DTSIC032
|
||||
00260 20 C032-11-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00261 20 C032-11-LONG-DSCR PIC X(40). DTSIC032
|
||||
00262 SKIP3 DTSIC032
|
||||
00263 ***** DTSIC032
|
||||
00264 * OPTION 12 = MDST-ACCT-IND DTSIC032
|
||||
00265 ***** DTSIC032
|
||||
00266 10 C032-12-AREA. DTSIC032
|
||||
00267 15 FILLER PIC X(02) VALUE 'UI'. DTSIC032
|
||||
00268 15 FILLER PIC X(10) VALUE 'UI TAX'. DTSIC032
|
||||
00269 15 FILLER PIC X(40) DTSIC032
|
||||
00270 VALUE 'UI TAX'. DTSIC032
|
||||
00271 15 FILLER PIC X(02) VALUE 'SU'. DTSIC032
|
||||
00272 15 FILLER PIC X(10) VALUE 'SUR TAX'. DTSIC032
|
||||
00273 15 FILLER PIC X(40) DTSIC032
|
||||
00274 VALUE 'SUR TAX'. DTSIC032
|
||||
00275 15 FILLER PIC X(02) VALUE 'I '. DTSIC032
|
||||
00276 15 FILLER PIC X(10) VALUE 'INTEREST'. DTSIC032
|
||||
00277 15 FILLER PIC X(40) DTSIC032
|
||||
00278 VALUE 'INTEREST'. DTSIC032
|
||||
00279 15 FILLER PIC X(02) VALUE 'LP'. DTSIC032
|
||||
00280 15 FILLER PIC X(10) VALUE 'LT PAY PEN'. DTSIC032
|
||||
00281 15 FILLER PIC X(40) DTSIC032
|
||||
00282 VALUE 'LATE PAYMENT PENALTY'. DTSIC032
|
||||
00283 15 FILLER PIC X(02) VALUE 'NP'. DTSIC032
|
||||
00284 15 FILLER PIC X(10) VALUE 'NSF PEN'. DTSIC032
|
||||
00285 15 FILLER PIC X(40) DTSIC032
|
||||
00286 VALUE 'NSF CHECK PENALTY'. DTSIC032
|
||||
00287 15 FILLER PIC X(02) VALUE 'MP'. DTSIC032
|
||||
00288 15 FILLER PIC X(10) VALUE 'MISC PEN'. DTSIC032
|
||||
00289 15 FILLER PIC X(40) DTSIC032
|
||||
00290 VALUE 'MISCELLANEOUS PENALTY'. DTSIC032
|
||||
00291 15 FILLER PIC X(02) VALUE 'CA'. DTSIC032
|
||||
00292 15 FILLER PIC X(10) VALUE 'CREDIT'. DTSIC032
|
||||
00293 15 FILLER PIC X(40) DTSIC032
|
||||
00294 VALUE 'CREDIT AVAILABLE'. DTSIC032
|
||||
00295 15 FILLER PIC X(02) VALUE 'CT'. DTSIC032
|
||||
00296 15 FILLER PIC X(10) VALUE 'CR TOLERAN'. DTSIC032
|
||||
00297 15 FILLER PIC X(40) DTSIC032
|
||||
00298 VALUE 'CREDIT TOLERANCE'. DTSIC032
|
||||
00299 15 FILLER PIC X(02) VALUE 'CW'. DTSIC032
|
||||
00300 15 FILLER PIC X(10) VALUE 'CR WRT OFF'. DTSIC032
|
||||
00301 15 FILLER PIC X(40) DTSIC032
|
||||
00302 VALUE 'CREDIT WRITTEN OFF'. DTSIC032
|
||||
00303 DTSIC032
|
||||
00304 10 FILLER REDEFINES C032-12-AREA. DTSIC032
|
||||
00305 15 C032-12-ENTRY OCCURS 9 TIMES DTSIC032
|
||||
00306 INDEXED BY C032-12-IDX. DTSIC032
|
||||
00307 20 C032-12-CD PIC X(02). DTSIC032
|
||||
00308 20 C032-12-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00309 20 C032-12-LONG-DSCR PIC X(40). DTSIC032
|
||||
00310 SKIP3 DTSIC032
|
||||
00311 ***** DTSIC032
|
||||
00312 * OPTION 16 = MREV-FATE DTSIC032
|
||||
00313 ***** DTSIC032
|
||||
00314 10 C032-16-AREA. DTSIC032
|
||||
00315 15 FILLER PIC X(02) VALUE 'RF'. DTSIC032
|
||||
00316 15 FILLER PIC X(10) VALUE 'REFUNDED'. DTSIC032
|
||||
00317 15 FILLER PIC X(40) DTSIC032
|
||||
00318 VALUE 'REFUNDED'. DTSIC032
|
||||
00319 15 FILLER PIC X(02) VALUE 'RV'. DTSIC032
|
||||
00320 15 FILLER PIC X(10) VALUE 'REVERSED'. DTSIC032
|
||||
00321 15 FILLER PIC X(40) DTSIC032
|
||||
00322 VALUE 'REVERSED'. DTSIC032
|
||||
00323 15 FILLER PIC X(02) VALUE 'PU'. DTSIC032
|
||||
00324 15 FILLER PIC X(10) VALUE 'PURGED'. DTSIC032
|
||||
00325 15 FILLER PIC X(40) DTSIC032
|
||||
00326 VALUE 'PURGED'. DTSIC032
|
||||
00327 15 FILLER PIC X(02) VALUE 'NR'. DTSIC032
|
||||
00328 15 FILLER PIC X(10) VALUE 'NONDOES RV'. DTSIC032
|
||||
00329 15 FILLER PIC X(40) DTSIC032
|
||||
00330 VALUE 'NON-DOES CHECK REVERSED'. DTSIC032
|
||||
00331 15 FILLER PIC X(02) VALUE 'NH'. DTSIC032
|
||||
00332 15 FILLER PIC X(10) VALUE 'NONDOES NF'. DTSIC032
|
||||
00333 15 FILLER PIC X(40) DTSIC032
|
||||
00334 VALUE 'NON-DOES CHECK - NSF '. DTSIC032
|
||||
00335 DTSIC032
|
||||
00336 10 FILLER REDEFINES C032-16-AREA. DTSIC032
|
||||
00337 15 C032-16-ENTRY OCCURS 5 TIMES DTSIC032
|
||||
00338 INDEXED BY C032-16-IDX. DTSIC032
|
||||
00339 20 C032-16-CD PIC X(02). DTSIC032
|
||||
00340 20 C032-16-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00341 20 C032-16-LONG-DSCR PIC X(40). DTSIC032
|
||||
00342 SKIP3 DTSIC032
|
||||
00343 ***** DTSIC032
|
||||
00344 * OPTION 17 = ASKL-REC-TYPE DTSIC032
|
||||
00345 ***** DTSIC032
|
||||
00346 10 C032-17-AREA. DTSIC032
|
||||
00347 15 FILLER PIC X(01) VALUE 'A'. DTSIC032
|
||||
00348 15 FILLER PIC X(10) VALUE 'ADJUSTMENT'. DTSIC032
|
||||
00349 15 FILLER PIC X(40) DTSIC032
|
||||
00350 VALUE 'ADJUSTMENT'. DTSIC032
|
||||
00351 15 FILLER PIC X(01) VALUE 'H'. DTSIC032
|
||||
00352 15 FILLER PIC X(10) VALUE 'HEADER'. DTSIC032
|
||||
00353 15 FILLER PIC X(40) DTSIC032
|
||||
00354 VALUE 'HEADER'. DTSIC032
|
||||
00355 15 FILLER PIC X(01) VALUE 'P'. DTSIC032
|
||||
00356 15 FILLER PIC X(10) VALUE 'PAYMENT'. DTSIC032
|
||||
00357 15 FILLER PIC X(40) DTSIC032
|
||||
00358 VALUE 'PAYMENT'. DTSIC032
|
||||
00359 15 FILLER PIC X(01) VALUE 'R'. DTSIC032
|
||||
00360 15 FILLER PIC X(10) VALUE 'REPORT'. DTSIC032
|
||||
00361 15 FILLER PIC X(40) DTSIC032
|
||||
00362 VALUE 'REPORT'. DTSIC032
|
||||
00363 DTSIC032
|
||||
00364 10 FILLER REDEFINES C032-17-AREA. DTSIC032
|
||||
00365 15 C032-17-ENTRY OCCURS 4 TIMES DTSIC032
|
||||
00366 INDEXED BY C032-17-IDX. DTSIC032
|
||||
00367 20 C032-17-CD PIC X(01). DTSIC032
|
||||
00368 20 C032-17-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00369 20 C032-17-LONG-DSCR PIC X(40). DTSIC032
|
||||
00370 SKIP3 DTSIC032
|
||||
00371 ***** DTSIC032
|
||||
00372 * OPTIONS 21 = ARPT-RPT-TYPE, DTSIC032
|
||||
00373 * 22 = MRPT-RPT-TYPE DTSIC032
|
||||
00374 ***** DTSIC032
|
||||
00375 10 C032-21-22-AREA. DTSIC032
|
||||
00376 15 FILLER PIC X(02) VALUE 'OR'. DTSIC032
|
||||
00377 15 FILLER PIC X(10) VALUE 'ORIGINAL'. DTSIC032
|
||||
00378 15 FILLER PIC X(40) DTSIC032
|
||||
00379 VALUE 'ORIGINAL EMPLOYER REPORT'. DTSIC032
|
||||
00380 15 FILLER PIC X(02) VALUE 'EA'. DTSIC032
|
||||
00381 15 FILLER PIC X(10) VALUE 'EMP AMEND'. DTSIC032
|
||||
00382 15 FILLER PIC X(40) DTSIC032
|
||||
00383 VALUE 'EMPLOYER AMENDMENT'. DTSIC032
|
||||
00384 15 FILLER PIC X(02) VALUE 'AU'. DTSIC032
|
||||
00385 15 FILLER PIC X(10) VALUE 'AUDIT'. DTSIC032
|
||||
00386 15 FILLER PIC X(40) DTSIC032
|
||||
00387 VALUE 'AUDIT ADJUSTMENT'. DTSIC032
|
||||
00388 15 FILLER PIC X(02) VALUE 'FS'. DTSIC032
|
||||
00389 15 FILLER PIC X(10) VALUE 'FIELD SUP'. DTSIC032
|
||||
00390 15 FILLER PIC X(40) DTSIC032
|
||||
00391 VALUE 'FIELD SUPPORT (NON-AUDIT) ADJUSTMENT'. DTSIC032
|
||||
00392 15 FILLER PIC X(02) VALUE 'AC'. DTSIC032
|
||||
00393 15 FILLER PIC X(10) VALUE 'ADMN CORR'. DTSIC032
|
||||
00394 15 FILLER PIC X(40) DTSIC032
|
||||
00395 VALUE 'ADMINISTRATIVE CORRECTION'. DTSIC032
|
||||
00396 15 FILLER PIC X(02) VALUE 'ES'. DTSIC032
|
||||
00397 15 FILLER PIC X(10) VALUE 'ESTIMATED'. DTSIC032
|
||||
00398 15 FILLER PIC X(40) DTSIC032
|
||||
00399 VALUE 'REPORT ESTIMATED BY THE DEPARTMENT'. DTSIC032
|
||||
00400 15 FILLER PIC X(02) VALUE 'WD'. DTSIC032
|
||||
00401 15 FILLER PIC X(10) VALUE 'WITHDRAWAL'. DTSIC032
|
||||
00402 15 FILLER PIC X(40) DTSIC032
|
||||
00403 VALUE 'WITHDRAWAL - WITHDRAWS ALL PREVIOUS RPTS'. DTSIC032
|
||||
00404 15 FILLER PIC X(02) VALUE 'CW'. DTSIC032
|
||||
00405 15 FILLER PIC X(10) VALUE 'CLAIMNT WG'. DTSIC032
|
||||
00406 15 FILLER PIC X(40) DTSIC032
|
||||
00407 VALUE 'CLAIMANT WAGE REPORT - BLOCKED CLAIM '. DTSIC032
|
||||
00408 15 FILLER PIC X(02) VALUE 'CZ'. DTSIC032
|
||||
00409 15 FILLER PIC X(10) VALUE 'CW REVERSE'. DTSIC032
|
||||
00410 15 FILLER PIC X(40) DTSIC032
|
||||
00411 VALUE 'CLAIMANT WAGE REPORT - REVERSAL '. DTSIC032
|
||||
00412 15 FILLER PIC X(02) VALUE 'TW'. DTSIC032
|
||||
00413 15 FILLER PIC X(10) VALUE 'TAX WG ADJ'. DTSIC032
|
||||
00414 15 FILLER PIC X(40) DTSIC032
|
||||
00415 VALUE 'TAX WAGE ADJUSTMENT '. DTSIC032
|
||||
00416 DTSIC032
|
||||
00417 10 FILLER REDEFINES C032-21-22-AREA. DTSIC032
|
||||
00418 15 C032-21-22-ENTRY OCCURS 10 TIMES DTSIC032
|
||||
00419 INDEXED BY C032-21-22-IDX. DTSIC032
|
||||
00420 20 C032-21-22-CD PIC X(02). DTSIC032
|
||||
00421 20 C032-21-22-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00422 20 C032-21-22-LONG-DSCR PIC X(40). DTSIC032
|
||||
00423 SKIP3 DTSIC032
|
||||
00424 ***** DTSIC032
|
||||
00425 * OPTION 22 --- SEE OPTION 21 DTSIC032
|
||||
00426 ***** DTSIC032
|
||||
00427 SKIP3 DTSIC032
|
||||
00428 ***** DTSIC032
|
||||
00429 * OPTIONS 23 = APAY-PAY-TYPE, DTSIC032
|
||||
00430 ***** DTSIC032
|
||||
00431 10 C032-23-AREA. DTSIC032
|
||||
00432 15 FILLER PIC X(02) VALUE 'PA'. DTSIC032
|
||||
00433 15 FILLER PIC X(10) VALUE 'PA PAYMENT'. DTSIC032
|
||||
00434 15 FILLER PIC X(40) DTSIC032
|
||||
00435 VALUE 'PA PAYMENT'. DTSIC032
|
||||
00436 15 FILLER PIC X(02) VALUE 'NP'. DTSIC032
|
||||
00437 15 FILLER PIC X(10) VALUE 'NON-DOES P'. DTSIC032
|
||||
00438 15 FILLER PIC X(40) DTSIC032
|
||||
00439 VALUE 'NON-DOES CHECK '. DTSIC032
|
||||
00440 15 FILLER PIC X(02) VALUE 'PR'. DTSIC032
|
||||
00441 15 FILLER PIC X(10) VALUE 'PAY REV'. DTSIC032
|
||||
00442 15 FILLER PIC X(40) DTSIC032
|
||||
00443 VALUE 'PAYMENT REVERSAL'. DTSIC032
|
||||
00444 15 FILLER PIC X(02) VALUE 'NG'. DTSIC032
|
||||
00445 15 FILLER PIC X(10) VALUE 'NG CHECK'. DTSIC032
|
||||
00446 15 FILLER PIC X(40) DTSIC032
|
||||
00447 VALUE 'NO GOOD CHECK'. DTSIC032
|
||||
00448 15 FILLER PIC X(02) VALUE 'RF'. DTSIC032
|
||||
00449 15 FILLER PIC X(10) VALUE 'REFUND'. DTSIC032
|
||||
00450 15 FILLER PIC X(40) DTSIC032
|
||||
00451 VALUE 'REFUND'. DTSIC032
|
||||
00452 15 FILLER PIC X(02) VALUE 'RR'. DTSIC032
|
||||
00453 15 FILLER PIC X(10) VALUE 'REF REV'. DTSIC032
|
||||
00454 15 FILLER PIC X(40) DTSIC032
|
||||
00455 VALUE 'REFUND REVERSAL'. DTSIC032
|
||||
00456 15 FILLER PIC X(02) VALUE 'NR'. DTSIC032
|
||||
00457 15 FILLER PIC X(10) VALUE 'NONDOES RV'. DTSIC032
|
||||
00458 15 FILLER PIC X(40) DTSIC032
|
||||
00459 VALUE 'NON-DOES CHECK REVERSAL'. DTSIC032
|
||||
00460 DTSIC032
|
||||
00461 10 FILLER REDEFINES C032-23-AREA. DTSIC032
|
||||
00462 15 C032-23-ENTRY OCCURS 7 TIMES DTSIC032
|
||||
00463 INDEXED BY C032-23-IDX. DTSIC032
|
||||
00464 20 C032-23-CD PIC X(02). DTSIC032
|
||||
00465 20 C032-23-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00466 20 C032-23-LONG-DSCR PIC X(40). DTSIC032
|
||||
00467 SKIP3 DTSIC032
|
||||
00468 ***** DTSIC032
|
||||
00469 * OPTIONS 24 = MPAY-PAY-TYPE, DTSIC032
|
||||
00470 ***** DTSIC032
|
||||
00471 10 C032-24-AREA. DTSIC032
|
||||
00472 15 FILLER PIC X(02) VALUE 'PA'. DTSIC032
|
||||
00473 15 FILLER PIC X(10) VALUE 'PA PAYMENT'. DTSIC032
|
||||
00474 15 FILLER PIC X(40) DTSIC032
|
||||
00475 VALUE 'PA PAYMENT'. DTSIC032
|
||||
00476 15 FILLER PIC X(02) VALUE 'OR'. DTSIC032
|
||||
00477 15 FILLER PIC X(10) VALUE 'OR PAYMENT'. DTSIC032
|
||||
00478 15 FILLER PIC X(40) DTSIC032
|
||||
00479 VALUE 'ORIGINAL REPORT PAYMENT'. DTSIC032
|
||||
00480 15 FILLER PIC X(02) VALUE 'EA'. DTSIC032
|
||||
00481 15 FILLER PIC X(10) VALUE 'EA PAYMENT'. DTSIC032
|
||||
00482 15 FILLER PIC X(40) DTSIC032
|
||||
00483 VALUE 'EMPLOYER AMENDMENT REPORT PAYMENT'. DTSIC032
|
||||
00484 15 FILLER PIC X(02) VALUE 'AU'. DTSIC032
|
||||
00485 15 FILLER PIC X(10) VALUE 'AU PAYMENT'. DTSIC032
|
||||
00486 15 FILLER PIC X(40) DTSIC032
|
||||
00487 VALUE 'AUDIT ADJUSTMENT REPORT PAYMENT'. DTSIC032
|
||||
00488 15 FILLER PIC X(02) VALUE 'FS'. DTSIC032
|
||||
00489 15 FILLER PIC X(10) VALUE 'FS PAYMENT'. DTSIC032
|
||||
00490 15 FILLER PIC X(40) DTSIC032
|
||||
00491 VALUE 'FIELD SUPPORT REPORT PAYMENT'. DTSIC032
|
||||
00492 15 FILLER PIC X(02) VALUE 'AC'. DTSIC032
|
||||
00493 15 FILLER PIC X(10) VALUE 'AC PAYMENT'. DTSIC032
|
||||
00494 15 FILLER PIC X(40) DTSIC032
|
||||
00495 VALUE 'ADMIN CORR REPORT PAYMENT'. DTSIC032
|
||||
00496 15 FILLER PIC X(02) VALUE 'ES'. DTSIC032
|
||||
00497 15 FILLER PIC X(10) VALUE 'ES PAYMENT'. DTSIC032
|
||||
00498 15 FILLER PIC X(40) DTSIC032
|
||||
00499 VALUE 'ESTIMATED REPORT PAYMENT'. DTSIC032
|
||||
00500 15 FILLER PIC X(02) VALUE 'WD'. DTSIC032
|
||||
00501 15 FILLER PIC X(10) VALUE 'WD PAYMENT'. DTSIC032
|
||||
00502 15 FILLER PIC X(40) DTSIC032
|
||||
00503 VALUE 'WITHDRAWAL REPORT PAYMENT'. DTSIC032
|
||||
00504 15 FILLER PIC X(02) VALUE 'NP'. DTSIC032
|
||||
00505 15 FILLER PIC X(10) VALUE 'NON-DOES P'. DTSIC032
|
||||
00506 15 FILLER PIC X(40) DTSIC032
|
||||
00507 VALUE 'NON-DOES CHECK '. DTSIC032
|
||||
00508 15 FILLER PIC X(02) VALUE 'PR'. DTSIC032
|
||||
00509 15 FILLER PIC X(10) VALUE 'PAY REV'. DTSIC032
|
||||
00510 15 FILLER PIC X(40) DTSIC032
|
||||
00511 VALUE 'PAYMENT REVERSAL'. DTSIC032
|
||||
00512 15 FILLER PIC X(02) VALUE 'NG'. DTSIC032
|
||||
00513 15 FILLER PIC X(10) VALUE 'NG CHECK'. DTSIC032
|
||||
00514 15 FILLER PIC X(40) DTSIC032
|
||||
00515 VALUE 'NO GOOD CHECK'. DTSIC032
|
||||
00516 15 FILLER PIC X(02) VALUE 'RF'. DTSIC032
|
||||
00517 15 FILLER PIC X(10) VALUE 'REFUND'. DTSIC032
|
||||
00518 15 FILLER PIC X(40) DTSIC032
|
||||
00519 VALUE 'REFUND'. DTSIC032
|
||||
00520 15 FILLER PIC X(02) VALUE 'RR'. DTSIC032
|
||||
00521 15 FILLER PIC X(10) VALUE 'REF REV'. DTSIC032
|
||||
00522 15 FILLER PIC X(40) DTSIC032
|
||||
00523 VALUE 'REFUND REVERSAL'. DTSIC032
|
||||
00524 15 FILLER PIC X(02) VALUE 'NR'. DTSIC032
|
||||
00525 15 FILLER PIC X(10) VALUE 'NONDOES RV'. DTSIC032
|
||||
00526 15 FILLER PIC X(40) DTSIC032
|
||||
00527 VALUE 'NON-DOES CHECK REVERSAL'. DTSIC032
|
||||
00528 DTSIC032
|
||||
00529 10 FILLER REDEFINES C032-24-AREA. DTSIC032
|
||||
00530 15 C032-24-ENTRY OCCURS 14 TIMES DTSIC032
|
||||
00531 INDEXED BY C032-24-IDX. DTSIC032
|
||||
00532 20 C032-24-CD PIC X(02). DTSIC032
|
||||
00533 20 C032-24-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00534 20 C032-24-LONG-DSCR PIC X(40). DTSIC032
|
||||
00535 SKIP3 DTSIC032
|
||||
00536 ***** DTSIC032
|
||||
00537 * OPTIONS 25 = AADJ-ADJ-TYPE, DTSIC032
|
||||
00538 * 26 = MADJ-ADJ-TYPE DTSIC032
|
||||
00539 ***** DTSIC032
|
||||
00540 10 C032-25-26-AREA. DTSIC032
|
||||
00541 15 FILLER PIC X(02) VALUE 'CH'. DTSIC032
|
||||
00542 15 FILLER PIC X(10) VALUE 'CHARGED'. DTSIC032
|
||||
00543 15 FILLER PIC X(40) DTSIC032
|
||||
00544 VALUE 'CHARGED'. DTSIC032
|
||||
00545 15 FILLER PIC X(02) VALUE 'WV'. DTSIC032
|
||||
00546 15 FILLER PIC X(10) VALUE 'WAIVER'. DTSIC032
|
||||
00547 15 FILLER PIC X(40) DTSIC032
|
||||
00548 VALUE 'WAIVER'. DTSIC032
|
||||
00549 15 FILLER PIC X(02) VALUE 'TL'. DTSIC032
|
||||
00550 15 FILLER PIC X(10) VALUE 'TOLERANCE'. DTSIC032
|
||||
00551 15 FILLER PIC X(40) DTSIC032
|
||||
00552 VALUE 'TOLERANCE'. DTSIC032
|
||||
00553 15 FILLER PIC X(02) VALUE 'CA'. DTSIC032
|
||||
00554 15 FILLER PIC X(10) VALUE 'AUTO CHG'. DTSIC032
|
||||
00555 15 FILLER PIC X(40) DTSIC032
|
||||
00556 VALUE 'AUTOMATIC (PENALTY OR INTEREST) CHARGING'. DTSIC032
|
||||
00557 15 FILLER PIC X(02) VALUE 'CM'. DTSIC032
|
||||
00558 15 FILLER PIC X(10) VALUE 'MANUAL CHG'. DTSIC032
|
||||
00559 15 FILLER PIC X(40) DTSIC032
|
||||
00560 VALUE 'MANUAL (PENALTY OR INTEREST) CHARGING'. DTSIC032
|
||||
00561 15 FILLER PIC X(02) VALUE 'WG'. DTSIC032
|
||||
00562 15 FILLER PIC X(10) VALUE 'WAGE RPT'. DTSIC032
|
||||
00563 15 FILLER PIC X(40) DTSIC032
|
||||
00564 VALUE 'WAGE REPORT RECEIVED INDICATOR'. DTSIC032
|
||||
00565 15 FILLER PIC X(02) VALUE 'QD'. DTSIC032
|
||||
00566 15 FILLER PIC X(10) VALUE 'DUE DATES'. DTSIC032
|
||||
00567 15 FILLER PIC X(40) DTSIC032
|
||||
00568 VALUE 'REPORT DUE DATE AND TAX DUE DATE'. DTSIC032
|
||||
00569 15 FILLER PIC X(02) VALUE 'WD'. DTSIC032
|
||||
00570 15 FILLER PIC X(10) VALUE 'WAIVER DT'. DTSIC032
|
||||
00571 15 FILLER PIC X(40) DTSIC032
|
||||
00572 VALUE 'WAIVER DATE RANGE (PENALTY OR INTEREST)'. DTSIC032
|
||||
00573 15 FILLER PIC X(02) VALUE 'ID'. DTSIC032
|
||||
00574 15 FILLER PIC X(10) VALUE 'INT DATE'. DTSIC032
|
||||
00575 15 FILLER PIC X(40) DTSIC032
|
||||
00576 VALUE 'INTEREST DATE RANGE'. DTSIC032
|
||||
00577 15 FILLER PIC X(02) VALUE 'WO'. DTSIC032
|
||||
00578 15 FILLER PIC X(10) VALUE 'WRITE OFF'. DTSIC032
|
||||
00579 15 FILLER PIC X(40) DTSIC032
|
||||
00580 VALUE 'WRITE OFF RECEIVABLES'. DTSIC032
|
||||
00581 15 FILLER PIC X(02) VALUE 'WR'. DTSIC032
|
||||
00582 15 FILLER PIC X(10) VALUE 'WO REMOVE'. DTSIC032
|
||||
00583 15 FILLER PIC X(40) DTSIC032
|
||||
00584 VALUE 'RESTORE WRITTEN OFF RECEIVABLES'. DTSIC032
|
||||
00585 DTSIC032
|
||||
00586 10 FILLER REDEFINES C032-25-26-AREA. DTSIC032
|
||||
00587 15 C032-25-26-ENTRY OCCURS 11 TIMES DTSIC032
|
||||
00588 INDEXED BY C032-25-26-IDX. DTSIC032
|
||||
00589 20 C032-25-26-CD PIC X(02). DTSIC032
|
||||
00590 20 C032-25-26-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00591 20 C032-25-26-LONG-DSCR PIC X(40). DTSIC032
|
||||
00592 SKIP3 DTSIC032
|
||||
00593 ***** DTSIC032
|
||||
00594 * OPTION 26 --- SEE OPTION 25 DTSIC032
|
||||
00595 ***** DTSIC032
|
||||
00596 SKIP3 DTSIC032
|
||||
00597 ***** DTSIC032
|
||||
00598 * OPTIONS 27 = ARPT-RPT-TYPE-RIGHT DTSIC032
|
||||
00599 * 28 = MRPT-RPT-TYPE-RIGHT DTSIC032
|
||||
00600 ***** DTSIC032
|
||||
00601 10 C032-27-28-AREA. DTSIC032
|
||||
00602 15 FILLER PIC X(02) VALUE 'OR'. DTSIC032
|
||||
00603 15 FILLER PIC X(10) VALUE ' ORIGINAL'. DTSIC032
|
||||
00604 15 FILLER PIC X(40) DTSIC032
|
||||
00605 VALUE ' ORIGINAL EMPLOYER REPORT'. DTSIC032
|
||||
00606 15 FILLER PIC X(02) VALUE 'EA'. DTSIC032
|
||||
00607 15 FILLER PIC X(10) VALUE ' EMP AMEND'. DTSIC032
|
||||
00608 15 FILLER PIC X(40) DTSIC032
|
||||
00609 VALUE ' EMPLOYER AMENDMENT'. DTSIC032
|
||||
00610 15 FILLER PIC X(02) VALUE 'AU'. DTSIC032
|
||||
00611 15 FILLER PIC X(10) VALUE ' AUDIT'. DTSIC032
|
||||
00612 15 FILLER PIC X(40) DTSIC032
|
||||
00613 VALUE ' AUDIT ADJUSTMENT'. DTSIC032
|
||||
00614 15 FILLER PIC X(02) VALUE 'FS'. DTSIC032
|
||||
00615 15 FILLER PIC X(10) VALUE ' FIELD SUP'. DTSIC032
|
||||
00616 15 FILLER PIC X(40) DTSIC032
|
||||
00617 VALUE ' FIELD SUPPORT (NON-AUDIT) ADJUSTMENT'. DTSIC032
|
||||
00618 15 FILLER PIC X(02) VALUE 'AC'. DTSIC032
|
||||
00619 15 FILLER PIC X(10) VALUE ' ADMN CORR'. DTSIC032
|
||||
00620 15 FILLER PIC X(40) DTSIC032
|
||||
00621 VALUE ' ADMINISTRATIVE CORRECTION'. DTSIC032
|
||||
00622 15 FILLER PIC X(02) VALUE 'ES'. DTSIC032
|
||||
00623 15 FILLER PIC X(10) VALUE ' ESTIMATED'. DTSIC032
|
||||
00624 15 FILLER PIC X(40) DTSIC032
|
||||
00625 VALUE ' REPORT ESTIMATED BY THE DEPARTMENT'. DTSIC032
|
||||
00626 15 FILLER PIC X(02) VALUE 'WD'. DTSIC032
|
||||
00627 15 FILLER PIC X(10) VALUE 'WITHDRAWAL'. DTSIC032
|
||||
00628 15 FILLER PIC X(40) DTSIC032
|
||||
00629 VALUE 'WITHDRAWAL - WITHDRAWS ALL PREVIOUS RPTS'. DTSIC032
|
||||
00630 15 FILLER PIC X(02) VALUE 'CW'. DTSIC032
|
||||
00631 15 FILLER PIC X(10) VALUE 'CLAIMNT WG'. DTSIC032
|
||||
00632 15 FILLER PIC X(40) DTSIC032
|
||||
00633 VALUE 'CLAIMANT WAGE REPORT - BLOCKED CLAIM '. DTSIC032
|
||||
00634 15 FILLER PIC X(02) VALUE 'CZ'. DTSIC032
|
||||
00635 15 FILLER PIC X(10) VALUE ' CW REV'. DTSIC032
|
||||
00636 15 FILLER PIC X(40) DTSIC032
|
||||
00637 VALUE 'CLAIMANT WAGE REPORT - REVERSAL '. DTSIC032
|
||||
00638 DTSIC032
|
||||
00639 10 FILLER REDEFINES C032-27-28-AREA. DTSIC032
|
||||
00640 15 C032-27-28-ENTRY OCCURS 9 TIMES DTSIC032
|
||||
00641 INDEXED BY C032-27-28-IDX. DTSIC032
|
||||
00642 20 C032-27-28-CD PIC X(02). DTSIC032
|
||||
00643 20 C032-27-28-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00644 20 C032-27-28-LONG-DSCR PIC X(40). DTSIC032
|
||||
00645 SKIP3 DTSIC032
|
||||
00646 ***** DTSIC032
|
||||
00647 * OPTION 28 --- SEE OPTION 27 DTSIC032
|
||||
00648 ***** DTSIC032
|
||||
00649 SKIP3 DTSIC032
|
||||
00650 ***** DTSIC032
|
||||
00651 * OPTIONS 31 = APAY-APPLIC-IND, DTSIC032
|
||||
00652 * 32 = MPAY-APPLIC-IND, DTSIC032
|
||||
00653 * 36 = MJRN-ACCT-ROW DTSIC032
|
||||
00654 ***** DTSIC032
|
||||
00655 10 C032-31--36-AREA. DTSIC032
|
||||
00656 15 FILLER PIC X(02) VALUE 'UI'. DTSIC032
|
||||
00657 15 FILLER PIC X(10) VALUE 'UI TAX'. DTSIC032
|
||||
00658 15 FILLER PIC X(40) DTSIC032
|
||||
00659 VALUE 'UI TAX'. DTSIC032
|
||||
00660 15 FILLER PIC X(02) VALUE 'SU'. DTSIC032
|
||||
00661 15 FILLER PIC X(10) VALUE 'SUR TAX'. DTSIC032
|
||||
00662 15 FILLER PIC X(40) DTSIC032
|
||||
00663 VALUE 'SUR TAX'. DTSIC032
|
||||
00664 15 FILLER PIC X(02) VALUE 'I '. DTSIC032
|
||||
00665 15 FILLER PIC X(10) VALUE 'INTEREST'. DTSIC032
|
||||
00666 15 FILLER PIC X(40) DTSIC032
|
||||
00667 VALUE 'INTEREST'. DTSIC032
|
||||
00668 15 FILLER PIC X(02) VALUE 'LP'. DTSIC032
|
||||
00669 15 FILLER PIC X(10) VALUE 'LT PAY PEN'. DTSIC032
|
||||
00670 15 FILLER PIC X(40) DTSIC032
|
||||
00671 VALUE 'LATE PAYMENT PENALTY'. DTSIC032
|
||||
00672 15 FILLER PIC X(02) VALUE 'NP'. DTSIC032
|
||||
00673 15 FILLER PIC X(10) VALUE 'NSF PEN'. DTSIC032
|
||||
00674 15 FILLER PIC X(40) DTSIC032
|
||||
00675 VALUE 'NSF CHECK PENALTY'. DTSIC032
|
||||
00676 15 FILLER PIC X(02) VALUE 'MP'. DTSIC032
|
||||
00677 15 FILLER PIC X(10) VALUE 'MISC PEN'. DTSIC032
|
||||
00678 15 FILLER PIC X(40) DTSIC032
|
||||
00679 VALUE 'MISCELLANEOUS PENALTY'. DTSIC032
|
||||
00680 15 FILLER PIC X(02) VALUE 'CR'. DTSIC032
|
||||
00681 15 FILLER PIC X(10) VALUE 'CREDIT'. DTSIC032
|
||||
00682 15 FILLER PIC X(40) DTSIC032
|
||||
00683 VALUE 'CREDIT'. DTSIC032
|
||||
00684 DTSIC032
|
||||
00685 10 FILLER REDEFINES C032-31--36-AREA. DTSIC032
|
||||
00686 15 C032-31--36-ENTRY OCCURS 7 TIMES DTSIC032
|
||||
00687 INDEXED BY C032-31--36-IDX. DTSIC032
|
||||
00688 20 C032-31--36-CD PIC X(02). DTSIC032
|
||||
00689 20 C032-31--36-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00690 20 C032-31--36-LONG-DSCR PIC X(40). DTSIC032
|
||||
00691 SKIP3 DTSIC032
|
||||
00692 ***** DTSIC032
|
||||
00693 * OPTION 32 --- SEE OPTION 31 DTSIC032
|
||||
00694 ***** DTSIC032
|
||||
00695 SKIP3 DTSIC032
|
||||
00696 ***** DTSIC032
|
||||
00697 * OPTIONS 33 = AADJ-APPLIC-IND, DTSIC032
|
||||
00698 * 34 = MADJ-APPLIC-IND DTSIC032
|
||||
00699 ***** DTSIC032
|
||||
00700 10 C032-33--34-AREA. DTSIC032
|
||||
00701 15 FILLER PIC X(02) VALUE 'UI'. DTSIC032
|
||||
00702 15 FILLER PIC X(10) VALUE 'UI TAX'. DTSIC032
|
||||
00703 15 FILLER PIC X(40) DTSIC032
|
||||
00704 VALUE 'UI TAX'. DTSIC032
|
||||
00705 15 FILLER PIC X(02) VALUE 'SU'. DTSIC032
|
||||
00706 15 FILLER PIC X(10) VALUE 'SUR TAX'. DTSIC032
|
||||
00707 15 FILLER PIC X(40) DTSIC032
|
||||
00708 VALUE 'SUR TAX'. DTSIC032
|
||||
00709 15 FILLER PIC X(02) VALUE 'I '. DTSIC032
|
||||
00710 15 FILLER PIC X(10) VALUE 'INTEREST'. DTSIC032
|
||||
00711 15 FILLER PIC X(40) DTSIC032
|
||||
00712 VALUE 'INTEREST'. DTSIC032
|
||||
00713 15 FILLER PIC X(02) VALUE 'LP'. DTSIC032
|
||||
00714 15 FILLER PIC X(10) VALUE 'LT PAY PEN'. DTSIC032
|
||||
00715 15 FILLER PIC X(40) DTSIC032
|
||||
00716 VALUE 'LATE PAYMENT PENALTY'. DTSIC032
|
||||
00717 15 FILLER PIC X(02) VALUE 'NP'. DTSIC032
|
||||
00718 15 FILLER PIC X(10) VALUE 'NSF PEN'. DTSIC032
|
||||
00719 15 FILLER PIC X(40) DTSIC032
|
||||
00720 VALUE 'NSF CHECK PENALTY'. DTSIC032
|
||||
00721 15 FILLER PIC X(02) VALUE 'MP'. DTSIC032
|
||||
00722 15 FILLER PIC X(10) VALUE 'MISC PEN'. DTSIC032
|
||||
00723 15 FILLER PIC X(40) DTSIC032
|
||||
00724 VALUE 'MISCELLANEOUS PENALTY'. DTSIC032
|
||||
00725 15 FILLER PIC X(02) VALUE 'CR'. DTSIC032
|
||||
00726 15 FILLER PIC X(10) VALUE 'CREDIT'. DTSIC032
|
||||
00727 15 FILLER PIC X(40) DTSIC032
|
||||
00728 VALUE 'CREDIT'. DTSIC032
|
||||
00729 15 FILLER PIC X(02) VALUE 'PI'. DTSIC032
|
||||
00730 15 FILLER PIC X(10) VALUE 'PEN & INT'. DTSIC032
|
||||
00731 15 FILLER PIC X(40) DTSIC032
|
||||
00732 VALUE 'LATE PAYMENT PENALTY AND INTEREST'. DTSIC032
|
||||
00733 DTSIC032
|
||||
00734 10 FILLER REDEFINES C032-33--34-AREA. DTSIC032
|
||||
00735 15 C032-33--34-ENTRY OCCURS 8 TIMES DTSIC032
|
||||
00736 INDEXED BY C032-33--34-IDX. DTSIC032
|
||||
00737 20 C032-33--34-CD PIC X(02). DTSIC032
|
||||
00738 20 C032-33--34-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00739 20 C032-33--34-LONG-DSCR PIC X(40). DTSIC032
|
||||
00740 SKIP3 DTSIC032
|
||||
00741 ***** DTSIC032
|
||||
00742 * OPTION 34 --- SEE OPTION 33 DTSIC032
|
||||
00743 ***** DTSIC032
|
||||
00744 SKIP3 DTSIC032
|
||||
00745 ***** DTSIC032
|
||||
00746 * OPTION 36 --- SEE OPTION 31 DTSIC032
|
||||
00747 ***** DTSIC032
|
||||
00748 SKIP3 DTSIC032
|
||||
00749 ***** DTSIC032
|
||||
00750 * OPTION 37 = MJRN-ACCT-COL DTSIC032
|
||||
00751 ***** DTSIC032
|
||||
00752 10 C032-37-AREA. DTSIC032
|
||||
00753 15 FILLER PIC X(02) VALUE 'CH'. DTSIC032
|
||||
00754 15 FILLER PIC X(10) VALUE 'CHARGED'. DTSIC032
|
||||
00755 15 FILLER PIC X(40) DTSIC032
|
||||
00756 VALUE 'CHARGED'. DTSIC032
|
||||
00757 15 FILLER PIC X(02) VALUE 'PD'. DTSIC032
|
||||
00758 15 FILLER PIC X(10) VALUE 'PAID'. DTSIC032
|
||||
00759 15 FILLER PIC X(40) DTSIC032
|
||||
00760 VALUE 'PAID'. DTSIC032
|
||||
00761 15 FILLER PIC X(02) VALUE 'WV'. DTSIC032
|
||||
00762 15 FILLER PIC X(10) VALUE 'WAIVED'. DTSIC032
|
||||
00763 15 FILLER PIC X(40) DTSIC032
|
||||
00764 VALUE 'WAIVED'. DTSIC032
|
||||
00765 15 FILLER PIC X(02) VALUE 'WO'. DTSIC032
|
||||
00766 15 FILLER PIC X(10) VALUE 'WRITE OFF'. DTSIC032
|
||||
00767 15 FILLER PIC X(40) DTSIC032
|
||||
00768 VALUE 'WRITTEN OFF'. DTSIC032
|
||||
00769 15 FILLER PIC X(02) VALUE 'TL'. DTSIC032
|
||||
00770 15 FILLER PIC X(10) VALUE 'TOLERATED'. DTSIC032
|
||||
00771 15 FILLER PIC X(40) DTSIC032
|
||||
00772 VALUE 'TOLERATED'. DTSIC032
|
||||
00773 DTSIC032
|
||||
00774 10 FILLER REDEFINES C032-37-AREA. DTSIC032
|
||||
00775 15 C032-37-ENTRY OCCURS 5 TIMES DTSIC032
|
||||
00776 INDEXED BY C032-37-IDX. DTSIC032
|
||||
00777 20 C032-37-CD PIC X(02). DTSIC032
|
||||
00778 20 C032-37-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00779 20 C032-37-LONG-DSCR PIC X(40). DTSIC032
|
||||
00780 SKIP3 DTSIC032
|
||||
00781 ***** DTSIC032
|
||||
00782 * OPTION 41 = APRT-RESPONSIBLE-ACTIVITY DTSIC032
|
||||
00783 ***** DTSIC032
|
||||
00784 10 C032-41-AREA. DTSIC032
|
||||
00785 15 FILLER PIC X(03) VALUE 'VOL'. DTSIC032
|
||||
00786 15 FILLER PIC X(10) VALUE 'VOLUNTARY'. DTSIC032
|
||||
00787 15 FILLER PIC X(40) DTSIC032
|
||||
00788 VALUE 'VOLUNTARY COMPLIANCE'. DTSIC032
|
||||
00789 15 FILLER PIC X(03) VALUE 'BNK'. DTSIC032
|
||||
00790 15 FILLER PIC X(10) VALUE 'BNKRPT DTS'. DTSIC032
|
||||
00791 15 FILLER PIC X(40) DTSIC032
|
||||
00792 VALUE 'BANKRUPTCY DISTRIBUTION'. DTSIC032
|
||||
00793 15 FILLER PIC X(03) VALUE 'DPC'. DTSIC032
|
||||
00794 15 FILLER PIC X(10) VALUE 'DEF PAY'. DTSIC032
|
||||
00795 15 FILLER PIC X(40) DTSIC032
|
||||
00796 VALUE 'DEFERRED PAYMENT CONTRACT'. DTSIC032
|
||||
00797 15 FILLER PIC X(03) VALUE 'DQ1'. DTSIC032
|
||||
00798 15 FILLER PIC X(10) VALUE 'DLNQ LTR 1'. DTSIC032
|
||||
00799 15 FILLER PIC X(40) DTSIC032
|
||||
00800 VALUE 'DELINQUENCY LETTER ONE'. DTSIC032
|
||||
00801 15 FILLER PIC X(03) VALUE 'DQ2'. DTSIC032
|
||||
00802 15 FILLER PIC X(10) VALUE 'DLNQ LTR 2'. DTSIC032
|
||||
00803 15 FILLER PIC X(40) DTSIC032
|
||||
00804 VALUE 'DELINQUENCY LETTER TWO'. DTSIC032
|
||||
00805 15 FILLER PIC X(03) VALUE 'FIN'. DTSIC032
|
||||
00806 15 FILLER PIC X(10) VALUE 'FINAL NOTE'. DTSIC032
|
||||
00807 15 FILLER PIC X(40) DTSIC032
|
||||
00808 VALUE 'FINAL NOTICE'. DTSIC032
|
||||
00809 15 FILLER PIC X(03) VALUE 'LEV'. DTSIC032
|
||||
00810 15 FILLER PIC X(10) VALUE 'LEVY'. DTSIC032
|
||||
00811 15 FILLER PIC X(40) DTSIC032
|
||||
00812 VALUE 'LEVY'. DTSIC032
|
||||
00813 15 FILLER PIC X(03) VALUE 'LIN'. DTSIC032
|
||||
00814 15 FILLER PIC X(10) VALUE 'LIEN'. DTSIC032
|
||||
00815 15 FILLER PIC X(40) DTSIC032
|
||||
00816 VALUE 'LIEN'. DTSIC032
|
||||
00817 15 FILLER PIC X(03) VALUE 'QB '. DTSIC032
|
||||
00818 15 FILLER PIC X(10) VALUE 'QTRLY BILL'. DTSIC032
|
||||
00819 15 FILLER PIC X(40) DTSIC032
|
||||
00820 VALUE 'QUARTERLY BILL (UC-223)'. DTSIC032
|
||||
00821 15 FILLER PIC X(03) VALUE 'SUB'. DTSIC032
|
||||
00822 15 FILLER PIC X(10) VALUE 'SUBPOENA'. DTSIC032
|
||||
00823 15 FILLER PIC X(40) DTSIC032
|
||||
00824 VALUE 'SUBPOENA'. DTSIC032
|
||||
00825 15 FILLER PIC X(03) VALUE 'TEL'. DTSIC032
|
||||
00826 15 FILLER PIC X(10) VALUE 'PHONE PWR'. DTSIC032
|
||||
00827 15 FILLER PIC X(40) DTSIC032
|
||||
00828 VALUE 'PHONE POWER'. DTSIC032
|
||||
00829 15 FILLER PIC X(03) VALUE 'VIS'. DTSIC032
|
||||
00830 15 FILLER PIC X(10) VALUE 'FLD VISIT'. DTSIC032
|
||||
00831 15 FILLER PIC X(40) DTSIC032
|
||||
00832 VALUE 'FIELD REPRESENTATIVE VISIT'. DTSIC032
|
||||
00833 15 FILLER PIC X(03) VALUE 'TRN'. DTSIC032
|
||||
00834 15 FILLER PIC X(10) VALUE 'AUTO TNSF'. DTSIC032
|
||||
00835 15 FILLER PIC X(40) DTSIC032
|
||||
00836 VALUE 'AUTOMATIC TRANSFER BY SYSTEM'. DTSIC032
|
||||
00837 15 FILLER PIC X(03) VALUE 'SYS'. DTSIC032
|
||||
00838 15 FILLER PIC X(10) VALUE 'SYS GENED'. DTSIC032
|
||||
00839 15 FILLER PIC X(40) DTSIC032
|
||||
00840 VALUE 'AUTOMATICALLY GENERATED BY SYSTEM'. DTSIC032
|
||||
00841 15 FILLER PIC X(03) VALUE 'SDP'. DTSIC032
|
||||
00842 15 FILLER PIC X(10) VALUE 'SUTA DUMP'. DTSIC032
|
||||
00843 15 FILLER PIC X(40) DTSIC032
|
||||
00844 VALUE 'SUTA DUMPING '. DTSIC032
|
||||
00845 DTSIC032
|
||||
00846 10 FILLER REDEFINES C032-41-AREA. DTSIC032
|
||||
00847 15 C032-41-ENTRY OCCURS 15 TIMES DTSIC032
|
||||
00848 INDEXED BY C032-41-IDX. DTSIC032
|
||||
00849 20 C032-41-CD PIC X(03). DTSIC032
|
||||
00850 20 C032-41-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00851 20 C032-41-LONG-DSCR PIC X(40). DTSIC032
|
||||
00852 SKIP3 DTSIC032
|
||||
00853 ***** DTSIC032
|
||||
00854 * OPTION 42 --- SEE OPTION 41 DTSIC032
|
||||
00855 ***** DTSIC032
|
||||
00856 SKIP3 DTSIC032
|
||||
00857 ***** DTSIC032
|
||||
00858 * OPTION 43 --- SEE OPTION 41 DTSIC032
|
||||
00859 ***** DTSIC032
|
||||
00860 SKIP3 DTSIC032
|
||||
00861 ***** DTSIC032
|
||||
00862 * OPTION 44 --- SEE OPTION 41 DTSIC032
|
||||
00863 ***** DTSIC032
|
||||
00864 SKIP3 DTSIC032
|
||||
00865 ***** DTSIC032
|
||||
00866 * OPTION 45 --- SEE OPTION 41 DTSIC032
|
||||
00867 ***** DTSIC032
|
||||
00868 SKIP3 DTSIC032
|
||||
00869 ***** DTSIC032
|
||||
00870 * OPTION 46 --- SEE OPTION 41 DTSIC032
|
||||
00871 ***** DTSIC032
|
||||
Reference in New Issue
Block a user