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