00001 ***** 12/09/04 00002 * DTSIC034 00003 * DTSIC034 COLLECTIONS CODES VALUES AND DESCRIPTIONS. LV007 00004 * DTSIC034 00005 ***** DTSIC034 00006 SKIP1 DTSIC034 00007 ***** DTSIC034 00008 * OPTION 01 = MAPL-STATUS-CD DTSIC034 00009 ***** DTSIC034 00010 10 C034-01-AREA. DTSIC034 00011 15 FILLER PIC X(01) VALUE 'O'. DTSIC034 00012 15 FILLER PIC X(10) VALUE 'OPEN'. DTSIC034 00013 15 FILLER PIC X(40) DTSIC034 00014 VALUE 'OPEN'. DTSIC034 00015 15 FILLER PIC X(01) VALUE 'C'. DTSIC034 00016 15 FILLER PIC X(10) VALUE 'CLOSED'. DTSIC034 00017 15 FILLER PIC X(40) DTSIC034 00018 VALUE 'CLOSED'. DTSIC034 00019 SKIP1 DTSIC034 00020 10 FILLER REDEFINES C034-01-AREA. DTSIC034 00021 15 C034-01-ENTRY OCCURS 2 TIMES DTSIC034 00022 INDEXED BY C034-01-IDX. DTSIC034 00023 20 C034-01-CD PIC X(01). DTSIC034 00024 20 C034-01-SHORT-DSCR PIC X(10). DTSIC034 00025 20 C034-01-LONG-DSCR PIC X(40). DTSIC034 00026 SKIP3 DTSIC034 00027 ***** DTSIC034 00028 * OPTION 02 = MAPL-TYPE DTSIC034 00029 ***** DTSIC034 00030 10 C034-02-AREA. DTSIC034 00031 15 FILLER PIC X(01) VALUE 'A'. DTSIC034 00032 15 FILLER PIC X(10) VALUE 'AUDIT'. DTSIC034 00033 15 FILLER PIC X(40) DTSIC034 00034 VALUE 'AUDIT'. DTSIC034 00035 15 FILLER PIC X(01) VALUE 'S'. DTSIC034 00036 15 FILLER PIC X(10) VALUE 'STATUS DTR'. DTSIC034 00037 15 FILLER PIC X(40) DTSIC034 00038 VALUE 'STATUS DETERMINATION'. DTSIC034 00039 15 FILLER PIC X(01) VALUE 'R'. DTSIC034 00040 15 FILLER PIC X(10) VALUE 'RATE'. DTSIC034 00041 15 FILLER PIC X(40) DTSIC034 00042 VALUE 'RATE'. DTSIC034 00043 15 FILLER PIC X(01) VALUE 'B'. DTSIC034 00044 15 FILLER PIC X(10) VALUE 'BILL'. DTSIC034 00045 15 FILLER PIC X(40) DTSIC034 00046 VALUE 'BILL'. DTSIC034 00047 15 FILLER PIC X(01) VALUE 'O'. DTSIC034 00048 15 FILLER PIC X(10) VALUE 'OTHER'. DTSIC034 00049 15 FILLER PIC X(40) DTSIC034 00050 VALUE 'OTHER'. DTSIC034 00051 SKIP1 DTSIC034 00052 10 FILLER REDEFINES C034-02-AREA. DTSIC034 00053 15 C034-02-ENTRY OCCURS 5 TIMES DTSIC034 00054 INDEXED BY C034-02-IDX. DTSIC034 00055 20 C034-02-CD PIC X(01). DTSIC034 00056 20 C034-02-SHORT-DSCR PIC X(10). DTSIC034 00057 20 C034-02-LONG-DSCR PIC X(40). DTSIC034 00058 SKIP3 DTSIC034 00059 ***** DTSIC034 00060 * OPTION 05 = MCOL-SUBPOENA-ACTIVITY-CD DTSIC034 00061 ***** DTSIC034 00062 10 C034-05-AREA. DTSIC034 00063 15 FILLER PIC X(01) VALUE ' '. DTSIC034 00064 15 FILLER PIC X(10) VALUE 'NONE'. DTSIC034 00065 15 FILLER PIC X(40) DTSIC034 00066 VALUE 'NO SUBPOENA ACTIVITY RECORDED'. DTSIC034 00067 15 FILLER PIC X(01) VALUE 'I'. DTSIC034 00068 15 FILLER PIC X(10) VALUE 'ISSUED'. DTSIC034 00069 15 FILLER PIC X(40) DTSIC034 00070 VALUE 'ISSUED'. DTSIC034 00071 15 FILLER PIC X(01) VALUE 'S'. DTSIC034 00072 15 FILLER PIC X(10) VALUE 'SERVED'. DTSIC034 00073 15 FILLER PIC X(40) DTSIC034 00074 VALUE 'SERVED'. DTSIC034 00075 15 FILLER PIC X(01) VALUE 'A'. DTSIC034 00076 15 FILLER PIC X(10) VALUE 'APPEARED'. DTSIC034 00077 15 FILLER PIC X(40) DTSIC034 00078 VALUE 'APPEARED'. DTSIC034 00079 15 FILLER PIC X(01) VALUE 'N'. DTSIC034 00080 15 FILLER PIC X(10) VALUE 'NO SHOW'. DTSIC034 00081 15 FILLER PIC X(40) DTSIC034 00082 VALUE 'NO SHOW'. DTSIC034 00083 15 FILLER PIC X(01) VALUE 'C'. DTSIC034 00084 15 FILLER PIC X(10) VALUE 'CANCELLED'. DTSIC034 00085 15 FILLER PIC X(40) DTSIC034 00086 VALUE 'CANCELLED'. DTSIC034 00087 15 FILLER PIC X(01) VALUE 'O'. DTSIC034 00088 15 FILLER PIC X(10) VALUE 'COURT ORD'. DTSIC034 00089 15 FILLER PIC X(40) DTSIC034 00090 VALUE 'COURT ORDER ISSUED'. DTSIC034 00091 SKIP1 DTSIC034 00092 10 FILLER REDEFINES C034-05-AREA. DTSIC034 00093 15 C034-05-ENTRY OCCURS 7 TIMES DTSIC034 00094 INDEXED BY C034-05-IDX. DTSIC034 00095 20 C034-05-CD PIC X(01). DTSIC034 00096 20 C034-05-SHORT-DSCR PIC X(10). DTSIC034 00097 20 C034-05-LONG-DSCR PIC X(40). DTSIC034 00098 SKIP3 DTSIC034 00099 ***** DTSIC034 00100 * OPTION 06 = MCOL-BNK-CHAPTER DTSIC034 00101 ***** DTSIC034 00102 10 C034-06-AREA. DTSIC034 00103 15 FILLER PIC X(02) VALUE ' '. DTSIC034 00104 15 FILLER PIC X(10) VALUE 'NOT BANKRP'. DTSIC034 00105 15 FILLER PIC X(40) DTSIC034 00106 VALUE 'NO BANKRUPTCY ASSOCIATED WITH EMPLOYER'. DTSIC034 00107 15 FILLER PIC X(02) VALUE '07'. DTSIC034 00108 15 FILLER PIC X(10) VALUE 'CHAPTER 7'. DTSIC034 00109 15 FILLER PIC X(40) DTSIC034 00110 VALUE 'CHAPTER 7'. DTSIC034 00111 15 FILLER PIC X(02) VALUE '11'. DTSIC034 00112 15 FILLER PIC X(10) VALUE 'CHAPTER 11'. DTSIC034 00113 15 FILLER PIC X(40) DTSIC034 00114 VALUE 'CHAPTER 11'. DTSIC034 00115 15 FILLER PIC X(02) VALUE '12'. DTSIC034 00116 15 FILLER PIC X(10) VALUE 'CHAPTER 12'. DTSIC034 00117 15 FILLER PIC X(40) DTSIC034 00118 VALUE 'CHAPTER 12'. DTSIC034 00119 15 FILLER PIC X(02) VALUE '13'. DTSIC034 00120 15 FILLER PIC X(10) VALUE 'CHAPTER 13'. DTSIC034 00121 15 FILLER PIC X(40) DTSIC034 00122 VALUE 'CHAPTER 13'. DTSIC034 00123 SKIP1 DTSIC034 00124 10 FILLER REDEFINES C034-06-AREA. DTSIC034 00125 15 C034-06-ENTRY OCCURS 5 TIMES DTSIC034 00126 INDEXED BY C034-06-IDX. DTSIC034 00127 20 C034-06-CD PIC X(02). DTSIC034 00128 20 C034-06-SHORT-DSCR PIC X(10). DTSIC034 00129 20 C034-06-LONG-DSCR PIC X(40). DTSIC034 00130 SKIP3 DTSIC034 00131 ***** DTSIC034 00132 * OPTION 08 = MDPC-STATUS-CD DTSIC034 00133 ***** DTSIC034 00134 10 C034-08-AREA. DTSIC034 00135 15 FILLER PIC X(01) VALUE 'O'. DTSIC034 00136 15 FILLER PIC X(10) VALUE 'OPEN'. DTSIC034 00137 15 FILLER PIC X(40) DTSIC034 00138 VALUE 'DPC MONITORED BY SYSTEM FOR SATISFACTION'. DTSIC034 00139 15 FILLER PIC X(01) VALUE 'M'. DTSIC034 00140 15 FILLER PIC X(10) VALUE 'MANUAL'. DTSIC034 00141 15 FILLER PIC X(40) DTSIC034 00142 VALUE 'MANUAL - DPC NOT MONITORED BY THE SYSTEM'. DTSIC034 00143 15 FILLER PIC X(01) VALUE 'P'. DTSIC034 00144 15 FILLER PIC X(10) VALUE 'PENDING'. DTSIC034 00145 15 FILLER PIC X(40) DTSIC034 00146 VALUE 'PENDING - WAITING FOR EMPLOYER SIGNATURE'. DTSIC034 00147 15 FILLER PIC X(01) VALUE 'S'. DTSIC034 00148 15 FILLER PIC X(10) VALUE 'SATISFIED'. DTSIC034 00149 15 FILLER PIC X(40) DTSIC034 00150 VALUE 'DPC HAS BEEN SATISFIED'. DTSIC034 00151 15 FILLER PIC X(01) VALUE 'W'. DTSIC034 00152 15 FILLER PIC X(10) VALUE 'WITHDRAWN'. DTSIC034 00153 15 FILLER PIC X(40) DTSIC034 00154 VALUE 'DPC HAS BEEN WITHDRAWN'. DTSIC034 00155 SKIP1 DTSIC034 00156 10 FILLER REDEFINES C034-08-AREA. DTSIC034 00157 15 C034-08-ENTRY OCCURS 5 TIMES DTSIC034 00158 INDEXED BY C034-08-IDX. DTSIC034 00159 20 C034-08-CD PIC X(01). DTSIC034 00160 20 C034-08-SHORT-DSCR PIC X(10). DTSIC034 00161 20 C034-08-LONG-DSCR PIC X(40). DTSIC034 00162 SKIP3 DTSIC034 00163 ***** DTSIC034 00164 * OPTION 09 = MDPC-PMT-FREQUENCY DTSIC034 00165 ***** DTSIC034 00166 10 C034-09-AREA. DTSIC034 00167 15 FILLER PIC X(01) VALUE 'W'. DTSIC034 00168 15 FILLER PIC X(10) VALUE 'WEEKLY'. DTSIC034 00169 15 FILLER PIC X(40) DTSIC034 00170 VALUE 'WEEKLY'. DTSIC034 00171 15 FILLER PIC X(01) VALUE 'B'. DTSIC034 00172 15 FILLER PIC X(10) VALUE 'BI-WEEKLY'. DTSIC034 00173 15 FILLER PIC X(40) DTSIC034 00174 VALUE 'BI-WEEKLY'. DTSIC034 00175 15 FILLER PIC X(01) VALUE 'M'. DTSIC034 00176 15 FILLER PIC X(10) VALUE 'MONTHLY'. DTSIC034 00177 15 FILLER PIC X(40) DTSIC034 00178 VALUE 'MONTHLY'. DTSIC034 00179 15 FILLER PIC X(01) VALUE 'O'. DTSIC034 00180 15 FILLER PIC X(10) VALUE 'OTHER'. DTSIC034 00181 15 FILLER PIC X(40) DTSIC034 00182 VALUE 'OTHER'. DTSIC034 00183 SKIP1 DTSIC034 00184 10 FILLER REDEFINES C034-09-AREA. DTSIC034 00185 15 C034-09-ENTRY OCCURS 4 TIMES DTSIC034 00186 INDEXED BY C034-09-IDX. DTSIC034 00187 20 C034-09-CD PIC X(01). DTSIC034 00188 20 C034-09-SHORT-DSCR PIC X(10). DTSIC034 00189 20 C034-09-LONG-DSCR PIC X(40). DTSIC034 00190 SKIP3 DTSIC034 00191 ***** DTSIC034 00192 * OPTION 10 = MLEV-STATUS-CD DTSIC034 00193 ***** DTSIC034 00194 10 C034-10-AREA. DTSIC034 00195 15 FILLER PIC X(01) VALUE 'I'. DTSIC034 00196 15 FILLER PIC X(10) VALUE 'INACTIVE'. DTSIC034 00197 15 FILLER PIC X(40) DTSIC034 00198 VALUE 'INACTIVE - NO LEVY ISSUED'. DTSIC034 00199 15 FILLER PIC X(01) VALUE 'O'. DTSIC034 00200 15 FILLER PIC X(10) VALUE 'OPEN'. DTSIC034 00201 15 FILLER PIC X(40) DTSIC034 00202 VALUE 'OPEN - LEVY ISSUED'. DTSIC034 00203 15 FILLER PIC X(01) VALUE 'C'. DTSIC034 00204 15 FILLER PIC X(10) VALUE 'CLOSED'. DTSIC034 00205 15 FILLER PIC X(40) DTSIC034 00206 VALUE 'CLOSED - LEVY NO LONGER ACTIVE'. DTSIC034 00207 SKIP1 DTSIC034 00208 10 FILLER REDEFINES C034-10-AREA. DTSIC034 00209 15 C034-10-ENTRY OCCURS 3 TIMES DTSIC034 00210 INDEXED BY C034-10-IDX. DTSIC034 00211 20 C034-10-CD PIC X(01). DTSIC034 00212 20 C034-10-SHORT-DSCR PIC X(10). DTSIC034 00213 20 C034-10-LONG-DSCR PIC X(40). DTSIC034 00214 SKIP3 DTSIC034 00215 ***** DTSIC034 00216 * OPTION 11 = MLIN-STATUS-CD DTSIC034 00217 ***** DTSIC034 00218 10 C034-11-AREA. DTSIC034 00219 15 FILLER PIC X(01) VALUE 'O'. DTSIC034 00220 15 FILLER PIC X(10) VALUE 'OPEN'. DTSIC034 00221 15 FILLER PIC X(40) DTSIC034 00222 VALUE 'OPEN - LIEN PACKAGE PRINTED'. DTSIC034 00223 15 FILLER PIC X(01) VALUE 'C'. DTSIC034 00224 15 FILLER PIC X(10) VALUE 'CONVERTED'. DTSIC034 00225 15 FILLER PIC X(40) DTSIC034 00226 VALUE 'PACKAGE NOT PRINTED, FUNCTIONS PERFORMED'. DTSIC034 00227 15 FILLER PIC X(01) VALUE 'M'. DTSIC034 00228 15 FILLER PIC X(10) VALUE 'MANUAL'. DTSIC034 00229 15 FILLER PIC X(40) DTSIC034 00230 VALUE 'PKG NOT PRINTED, FUNCTIONS NOT PERFORMED'. DTSIC034 00231 15 FILLER PIC X(01) VALUE 'R'. DTSIC034 00232 15 FILLER PIC X(10) VALUE 'RELEASED'. DTSIC034 00233 15 FILLER PIC X(40) DTSIC034 00234 VALUE 'RELEASED'. DTSIC034 00235 15 FILLER PIC X(01) VALUE 'W'. DTSIC034 00236 15 FILLER PIC X(10) VALUE 'WITHDRAWN'. DTSIC034 00237 15 FILLER PIC X(40) DTSIC034 00238 VALUE 'WITHDRAWN'. DTSIC034 00239 SKIP1 DTSIC034 00240 10 FILLER REDEFINES C034-11-AREA. DTSIC034 00241 15 C034-11-ENTRY OCCURS 5 TIMES DTSIC034 00242 INDEXED BY C034-11-IDX. DTSIC034 00243 20 C034-11-CD PIC X(01). DTSIC034 00244 20 C034-11-SHORT-DSCR PIC X(10). DTSIC034 00245 20 C034-11-LONG-DSCR PIC X(40). DTSIC034 00246 SKIP3 DTSIC034 00247 ***** DTSIC034 00248 * OPTION 12 = MRPT-RESPONSIBLE-ACTIVITY DTSIC034 00249 ***** DTSIC034 00250 10 C034-12-AREA. DTSIC034 00251 15 FILLER PIC X(03) VALUE 'BNK'. DTSIC034 00252 15 FILLER PIC X(10) VALUE 'BNKRPT DST'. DTSIC034 00253 15 FILLER PIC X(40) DTSIC034 00254 VALUE 'BANKRUPTCY DISTRIBUTION '. DTSIC034 00255 15 FILLER PIC X(03) VALUE 'DPC'. DTSIC034 00256 15 FILLER PIC X(10) VALUE 'DPC'. DTSIC034 00257 15 FILLER PIC X(40) DTSIC034 00258 VALUE 'DEFERRED PAYMENT CONTRACT'. DTSIC034 00259 15 FILLER PIC X(03) VALUE 'DQ1'. DTSIC034 00260 15 FILLER PIC X(10) VALUE 'DEL LTR 1'. DTSIC034 00261 15 FILLER PIC X(40) DTSIC034 00262 VALUE 'DELINQUENCY LETTER 1'. DTSIC034 00263 15 FILLER PIC X(03) VALUE 'DQ2'. DTSIC034 00264 15 FILLER PIC X(10) VALUE 'DEL LTR 2'. DTSIC034 00265 15 FILLER PIC X(40) DTSIC034 00266 VALUE 'DELINQUENCY LETTER 2'. DTSIC034 00267 15 FILLER PIC X(03) VALUE 'FIN'. DTSIC034 00268 15 FILLER PIC X(10) VALUE 'FIN NOT'. DTSIC034 00269 15 FILLER PIC X(40) DTSIC034 00270 VALUE 'FINAL NOTICE'. DTSIC034 00271 15 FILLER PIC X(03) VALUE 'LEV'. DTSIC034 00272 15 FILLER PIC X(10) VALUE 'LEVY'. DTSIC034 00273 15 FILLER PIC X(40) DTSIC034 00274 VALUE 'LEVY'. DTSIC034 00275 15 FILLER PIC X(03) VALUE 'LIN'. DTSIC034 00276 15 FILLER PIC X(10) VALUE 'LIEN'. DTSIC034 00277 15 FILLER PIC X(40) DTSIC034 00278 VALUE 'LIEN'. DTSIC034 00279 15 FILLER PIC X(03) VALUE ' QB'. DTSIC034 00280 15 FILLER PIC X(10) VALUE 'QTRLY BILL'. DTSIC034 00281 15 FILLER PIC X(40) DTSIC034 00282 VALUE 'QUARTERLY BILL (UC-223)'. DTSIC034 00283 15 FILLER PIC X(03) VALUE 'SUB'. DTSIC034 00284 15 FILLER PIC X(10) VALUE 'SUBPOENA'. DTSIC034 00285 15 FILLER PIC X(40) DTSIC034 00286 VALUE 'SUBPOENA'. DTSIC034 00287 15 FILLER PIC X(03) VALUE 'TEL'. DTSIC034 00288 15 FILLER PIC X(10) VALUE 'TELEPHONE'. DTSIC034 00289 15 FILLER PIC X(40) DTSIC034 00290 VALUE 'PHONE POWER'. DTSIC034 00291 15 FILLER PIC X(03) VALUE 'VIS'. DTSIC034 00292 15 FILLER PIC X(10) VALUE 'FLD REP VI'. DTSIC034 00293 15 FILLER PIC X(40) DTSIC034 00294 VALUE 'FIELD REP. VISIT'. DTSIC034 00295 15 FILLER PIC X(03) VALUE 'VOL'. DTSIC034 00296 15 FILLER PIC X(10) VALUE 'VOL COMP'. DTSIC034 00297 15 FILLER PIC X(40) DTSIC034 00298 VALUE 'VOLUNTARY COMPLIANCE'. DTSIC034 00299 SKIP1 DTSIC034 00300 10 FILLER REDEFINES C034-12-AREA. DTSIC034 00301 15 C034-12-ENTRY OCCURS 12 TIMES DTSIC034 00302 INDEXED BY C034-12-IDX. DTSIC034 00303 20 C034-12-CD PIC X(03). DTSIC034 00304 20 C034-12-SHORT-DSCR PIC X(10). DTSIC034 00305 20 C034-12-LONG-DSCR PIC X(40). DTSIC034 00306 ***** DTSIC034 00307 * OPTION 13 = MCMP-STATUS-CD DTSIC034 00308 ***** DTSIC034 00309 10 C034-13-AREA. DTSIC034 00310 15 FILLER PIC X(01) VALUE 'P'. DTSIC034 00311 15 FILLER PIC X(10) VALUE 'PENDING '. DTSIC034 00312 15 FILLER PIC X(40) DTSIC034 00313 VALUE 'PENDING '. DTSIC034 00314 15 FILLER PIC X(01) VALUE 'F'. DTSIC034 00315 15 FILLER PIC X(10) VALUE 'FINAL '. DTSIC034 00316 15 FILLER PIC X(40) DTSIC034 00317 VALUE 'FINAL '. DTSIC034 00318 15 FILLER PIC X(01) VALUE 'W'. DTSIC034 00319 15 FILLER PIC X(10) VALUE 'WITHDRAWN '. DTSIC034 00320 15 FILLER PIC X(40) DTSIC034 00321 VALUE 'WITHDRAWN '. DTSIC034 00322 SKIP1 DTSIC034 00323 10 FILLER REDEFINES C034-13-AREA. DTSIC034 00324 15 C034-13-ENTRY OCCURS 03 TIMES DTSIC034 00325 INDEXED BY C034-13-IDX. DTSIC034 00326 20 C034-13-CD PIC X(01). DTSIC034 00327 20 C034-13-SHORT-DSCR PIC X(10). DTSIC034 00328 20 C034-13-LONG-DSCR PIC X(40). DTSIC034