872 lines
69 KiB
COBOL
872 lines
69 KiB
COBOL
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
|