00001 ***** 12/09/04 00002 * DTSIS31 00003 * DTSIS31 QUARTER INQUIRY SEND/RECEIVE AREA LV008 00004 * DTSIS31 00005 * DTSIS31 00006 * 05/17/1999 ADDED MAP-PICKUP-DUE-IND-AREA. DTSIS31 00007 * REFERENCE: PICKUP DIR PROGRAMMER: EHH DTSIS31 00008 * DTSIS31 00009 ***** DTSIS31 00010 10 FILLER PIC X(12). DTSIS31 00011 DTSIS31 00012 10 MAP-SCR-TYPE-AREA. DTSIS31 00013 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS31 00014 15 MAP-SCR-TYPE-A PIC X(01). DTSIS31 00015 15 MAP-SCR-TYPE PIC X(02). DTSIS31 00016 DTSIS31 00017 10 MAP-SCREEN-TITLE-AREA. DTSIS31 00018 15 MAP-SCREEN-TITLE-L PIC S9(04) COMP. DTSIS31 00019 15 MAP-SCREEN-TITLE-A PIC X(01). DTSIS31 00020 15 MAP-SCREEN-TITLE PIC X(30). DTSIS31 00021 DTSIS31 00022 10 MAP-CICS-REGION-NAME-AREA. DTSIS31 00023 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS31 00024 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS31 00025 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS31 00026 DTSIS31 00027 10 MAP-SYS-DATE-AREA. DTSIS31 00028 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS31 00029 15 MAP-SYS-DATE-A PIC X(01). DTSIS31 00030 15 MAP-SYS-DATE PIC X(08). DTSIS31 00031 DTSIS31 00032 10 MAP-EMP-NO-AREA. DTSIS31 00033 15 F310210. DTSIS31 00034 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS31 00035 20 MAP-EMP-NO-1-A PIC X(01). DTSIS31 00036 20 MAP-EMP-NO-1 PIC X(03). DTSIS31 00037 15 F310214. DTSIS31 00038 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS31 00039 20 MAP-EMP-NO-2-A PIC X(01). DTSIS31 00040 20 MAP-EMP-NO-2 PIC X(03). DTSIS31 00041 DTSIS31 00042 10 F310223. DTSIS31 00043 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. DTSIS31 00044 15 MAP-PRIMARY-NAME-A PIC X(01). DTSIS31 00045 15 MAP-PRIMARY-NAME PIC X(40). DTSIS31 00046 DTSIS31 00047 10 MAP-SYS-TIME-AREA. DTSIS31 00048 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS31 00049 15 MAP-SYS-TIME-A PIC X(01). DTSIS31 00050 15 MAP-SYS-TIME PIC X(08). DTSIS31 00051 DTSIS31 00052 10 MAP-FROM-YRQ-AREA. DTSIS31 00053 15 MAP-FROM-YRQ-YR-L PIC S9(04) COMP. DTSIS31 00054 15 MAP-FROM-YRQ-YR-A PIC X(01). DTSIS31 00055 15 MAP-FROM-YRQ-YR PIC X(02). DTSIS31 00056 DTSIS31 00057 15 MAP-FROM-YRQ-Q-L PIC S9(04) COMP. DTSIS31 00058 15 MAP-FROM-YRQ-Q-A PIC X(01). DTSIS31 00059 15 MAP-FROM-YRQ-Q PIC X(01). DTSIS31 00060 DTSIS31 00061 10 MAP-TO-YRQ-AREA. DTSIS31 00062 15 MAP-TO-YRQ-YR-L PIC S9(04) COMP. DTSIS31 00063 15 MAP-TO-YRQ-YR-A PIC X(01). DTSIS31 00064 15 MAP-TO-YRQ-YR PIC X(02). DTSIS31 00065 DTSIS31 00066 15 MAP-TO-YRQ-Q-L PIC S9(04) COMP. DTSIS31 00067 15 MAP-TO-YRQ-Q-A PIC X(01). DTSIS31 00068 15 MAP-TO-YRQ-Q PIC X(01). DTSIS31 00069 DTSIS31 00070 10 F310330. DTSIS31 00071 15 MAP-EMP-CLASS-DSCR-L PIC S9(04) COMP. DTSIS31 00072 15 MAP-EMP-CLASS-DSCR-A PIC X(01). DTSIS31 00073 15 MAP-EMP-CLASS-DSCR PIC X(10). DTSIS31 00074 DTSIS31 00075 10 F310348. DTSIS31 00076 15 MAP-BANKRUPTCY-OPEN-IND-L PIC S9(04) COMP. DTSIS31 00077 15 MAP-BANKRUPTCY-OPEN-IND-A PIC X(01). DTSIS31 00078 15 MAP-BANKRUPTCY-OPEN-IND PIC X(01). DTSIS31 00079 DTSIS31 00080 10 MAP-PICKUP-DUE-IND-AREA. DTSIS31 00081 15 MAP-PICKUP-DUE-IND-L PIC S9(04) COMP. DTSIS31 00082 15 MAP-PICKUP-DUE-IND-A PIC X(01). DTSIS31 00083 15 MAP-PICKUP-DUE-IND PIC X(01). DTSIS31 00084 DTSIS31 00085 10 F310372. DTSIS31 00086 15 MAP-CURR-PAGE-L PIC S9(04) COMP. DTSIS31 00087 15 MAP-CURR-PAGE-A PIC X(01). DTSIS31 00088 15 MAP-CURR-PAGE PIC Z(02). DTSIS31 00089 DTSIS31 00090 10 F310378. DTSIS31 00091 15 MAP-LAST-PAGE-L PIC S9(04) COMP. DTSIS31 00092 15 MAP-LAST-PAGE-A PIC X(01). DTSIS31 00093 15 MAP-LAST-PAGE PIC Z(02). DTSIS31 00094 DTSIS31 00095 10 MAP-COMP-DATE-AREA. DTSIS31 00096 15 MAP-COMP-MO-L PIC S9(04) COMP. DTSIS31 00097 15 MAP-COMP-MO-A PIC X(01). DTSIS31 00098 15 MAP-COMP-MO PIC X(02). DTSIS31 00099 DTSIS31 00100 15 MAP-COMP-DA-L PIC S9(04) COMP. DTSIS31 00101 15 MAP-COMP-DA-A PIC X(01). DTSIS31 00102 15 MAP-COMP-DA PIC X(02). DTSIS31 00103 DTSIS31 00104 15 MAP-COMP-YR-L PIC S9(04) COMP. DTSIS31 00105 15 MAP-COMP-YR-A PIC X(01). DTSIS31 00106 15 MAP-COMP-YR PIC X(02). DTSIS31 00107 DTSIS31 00108 10 F310430. DTSIS31 00109 15 MAP-EMP-STATUS-DSCR-L PIC S9(04) COMP. DTSIS31 00110 15 MAP-EMP-STATUS-DSCR-A PIC X(01). DTSIS31 00111 15 MAP-EMP-STATUS-DSCR PIC X(10). DTSIS31 00112 DTSIS31 00113 10 F310448. DTSIS31 00114 15 MAP-WRITEOFF-DATE-L PIC S9(04) COMP. DTSIS31 00115 15 MAP-WRITEOFF-DATE-A PIC X(01). DTSIS31 00116 15 MAP-WRITEOFF-DATE PIC X(08). DTSIS31 00117 DTSIS31 00118 10 F310466. DTSIS31 00119 15 MAP-TOT-DUE-AMT-L PIC S9(04) COMP. DTSIS31 00120 15 MAP-TOT-DUE-AMT-A PIC X(01). DTSIS31 00121 15 MAP-TOT-DUE-AMT PIC X(14). DTSIS31 00122 15 MAP-TOT-DUE-AMT-Z REDEFINES DTSIS31 00123 MAP-TOT-DUE-AMT PIC ---,---,--9.99. DTSIS31 00124 DTSIS31 00125 10 F310501. DTSIS31 00126 15 MAP-COMPROMISE-L PIC S9(04) COMP. DTSIS31 00127 15 MAP-COMPROMISE-A PIC X(01). DTSIS31 00128 15 MAP-COMPROMISE PIC X(16). DTSIS31 00129 DTSIS31 00130 10 F310530. DTSIS31 00131 15 MAP-RECENT-SOL-L PIC S9(04) COMP. DTSIS31 00132 15 MAP-RECENT-SOL-A PIC X(01). DTSIS31 00133 15 MAP-RECENT-SOL PIC X(09). DTSIS31 00134 DTSIS31 00135 10 F310548. DTSIS31 00136 15 MAP-ALD-INDS-L PIC S9(04) COMP. DTSIS31 00137 15 MAP-ALD-INDS-A PIC X(01). DTSIS31 00138 15 MAP-ALD-INDS PIC X(05). DTSIS31 00139 15 FILLER REDEFINES MAP-ALD-INDS. DTSIS31 00140 20 MAP-MAPL-IND PIC X(01). DTSIS31 00141 20 MAP-ALD-SLASH-1 PIC X(01). DTSIS31 00142 20 MAP-MLIN-IND PIC X(01). DTSIS31 00143 20 MAP-ALD-SLASH-2 PIC X(01). DTSIS31 00144 20 MAP-MDPC-IND PIC X(01). DTSIS31 00145 DTSIS31 00146 10 F310570. DTSIS31 00147 15 MAP-INT-MONTH-L PIC S9(04) COMP. DTSIS31 00148 15 MAP-INT-MONTH-A PIC X(01). DTSIS31 00149 15 MAP-INT-MONTH PIC X(09). DTSIS31 00150 15 MAP-INT-MONTH-Z REDEFINES DTSIS31 00151 MAP-INT-MONTH PIC ZZ,ZZ9.99. DTSIS31 00152 DTSIS31 00153 10 F310610. DTSIS31 00154 15 MAP-FLD-REP-ID-L PIC S9(04) COMP. DTSIS31 00155 15 MAP-FLD-REP-ID-A PIC X(01). DTSIS31 00156 15 MAP-FLD-REP-ID PIC X(02). DTSIS31 00157 DTSIS31 00158 10 F310630. DTSIS31 00159 15 MAP-SOL-CNT-L PIC S9(04) COMP. DTSIS31 00160 15 MAP-SOL-CNT-A PIC X(01). DTSIS31 00161 15 MAP-SOL-CNT PIC Z9. DTSIS31 00162 DTSIS31 00163 10 F310648. DTSIS31 00164 15 MAP-SUBPOENA-CD-L PIC S9(04) COMP. DTSIS31 00165 15 MAP-SUBPOENA-CD-A PIC X(01). DTSIS31 00166 15 MAP-SUBPOENA-CD PIC X(01). DTSIS31 00167 DTSIS31 00168 10 F310651. DTSIS31 00169 15 MAP-SUBPOENA-DATE-L PIC S9(04) COMP. DTSIS31 00170 15 MAP-SUBPOENA-DATE-A PIC X(01). DTSIS31 00171 15 MAP-SUBPOENA-DATE PIC X(08). DTSIS31 00172 DTSIS31 00173 10 F310676. DTSIS31 00174 15 MAP-PURSUED-RPT-CNT-L PIC S9(04) COMP. DTSIS31 00175 15 MAP-PURSUED-RPT-CNT-A PIC X(01). DTSIS31 00176 15 MAP-PURSUED-RPT-CNT-Z PIC ZZ9. DTSIS31 00177 DTSIS31 00178 10 F310753. DTSIS31 00179 15 MAP-SUSP-TOL-COL-LIT-L PIC S9(04) COMP. DTSIS31 00180 15 MAP-SUSP-TOL-COL-LIT-A PIC X(01). DTSIS31 00181 15 MAP-SUSP-TOL-COL-LIT PIC X(13). DTSIS31 00182 DTSIS31 00183 10 MAP-DATA-LINES OCCURS 9 TIMES. DTSIS31 00184 15 MAP-LBL-L PIC S9(04) COMP. DTSIS31 00185 15 MAP-LBL-A PIC X(01). DTSIS31 00186 15 MAP-LBL PIC X(03). DTSIS31 00187 15 MAP-LINE-L PIC S9(04) COMP. DTSIS31 00188 15 MAP-LINE-A PIC X(01). DTSIS31 00189 15 MAP-LINE PIC X(75). DTSIS31 00190 15 FILLER REDEFINES MAP-LINE. DTSIS31 00191 20 MAP-AMTS-TBL OCCURS 5 TIMES. DTSIS31 00192 25 FILLER PIC X(02). DTSIS31 00193 25 MAP-AMT-Z PIC ZZ,ZZZ,ZZ9.99. DTSIS31 00194 DTSIS31 00195 10 F311814. DTSIS31 00196 15 MAP-RPT-DUE-DATE-L PIC S9(04) COMP. DTSIS31 00197 15 MAP-RPT-DUE-DATE-A PIC X(01). DTSIS31 00198 15 MAP-RPT-DUE-DATE PIC X(08). DTSIS31 00199 DTSIS31 00200 10 F311833. DTSIS31 00201 15 MAP-TOT-WAGE-L PIC S9(04) COMP. DTSIS31 00202 15 MAP-TOT-WAGE-A PIC X(01). DTSIS31 00203 15 MAP-TOT-WAGE PIC X(15). DTSIS31 00204 15 MAP-TOT-WAGE-Z REDEFINES DTSIS31 00205 MAP-TOT-WAGE PIC ZZZZ,ZZZ,ZZ9.99. DTSIS31 00206 DTSIS31 00207 10 F311914. DTSIS31 00208 15 MAP-TAX-DUE-DATE-L PIC S9(04) COMP. DTSIS31 00209 15 MAP-TAX-DUE-DATE-A PIC X(01). DTSIS31 00210 15 MAP-TAX-DUE-DATE PIC X(08). DTSIS31 00211 DTSIS31 00212 10 F311933. DTSIS31 00213 15 MAP-EXCESS-WAGE-L PIC S9(04) COMP. DTSIS31 00214 15 MAP-EXCESS-WAGE-A PIC X(01). DTSIS31 00215 15 MAP-EXCESS-WAGE PIC X(15). DTSIS31 00216 15 MAP-EXCESS-WAGE-Z REDEFINES DTSIS31 00217 MAP-EXCESS-WAGE PIC ZZZZ,ZZZ,ZZ9.99. DTSIS31 00218 DTSIS31 00219 10 F311957. DTSIS31 00220 15 MAP-WAIVE-PEN-START-DATE-L PIC S9(04) COMP. DTSIS31 00221 15 MAP-WAIVE-PEN-START-DATE-A PIC X(01). DTSIS31 00222 15 MAP-WAIVE-PEN-START-DATE PIC X(08). DTSIS31 00223 DTSIS31 00224 10 F311966. DTSIS31 00225 15 MAP-WAIVE-PEN-END-DATE-L PIC S9(04) COMP. DTSIS31 00226 15 MAP-WAIVE-PEN-END-DATE-A PIC X(01). DTSIS31 00227 15 MAP-WAIVE-PEN-END-DATE PIC X(08). DTSIS31 00228 DTSIS31 00229 10 F312014. DTSIS31 00230 15 MAP-CURR-RPT-TYPE-DSCR-L PIC S9(04) COMP. DTSIS31 00231 15 MAP-CURR-RPT-TYPE-DSCR-A PIC X(01). DTSIS31 00232 15 MAP-CURR-RPT-TYPE-DSCR PIC X(10). DTSIS31 00233 DTSIS31 00234 10 F312033. DTSIS31 00235 15 MAP-TAX-WAGE-L PIC S9(04) COMP. DTSIS31 00236 15 MAP-TAX-WAGE-A PIC X(01). DTSIS31 00237 15 MAP-TAX-WAGE PIC X(15). DTSIS31 00238 15 MAP-TAX-WAGE-Z REDEFINES DTSIS31 00239 MAP-TAX-WAGE PIC ZZZZ,ZZZ,ZZ9.99. DTSIS31 00240 DTSIS31 00241 10 F312057. DTSIS31 00242 15 MAP-WAIVE-INT-START-DATE-L PIC S9(04) COMP. DTSIS31 00243 15 MAP-WAIVE-INT-START-DATE-A PIC X(01). DTSIS31 00244 15 MAP-WAIVE-INT-START-DATE PIC X(08). DTSIS31 00245 DTSIS31 00246 10 F312066. DTSIS31 00247 15 MAP-WAIVE-INT-END-DATE-L PIC S9(04) COMP. DTSIS31 00248 15 MAP-WAIVE-INT-END-DATE-A PIC X(01). DTSIS31 00249 15 MAP-WAIVE-INT-END-DATE PIC X(08). DTSIS31 00250 DTSIS31 00251 10 F312114. DTSIS31 00252 15 MAP-MISS-RPT-CUTOFF-CD-DSCR-L PIC S9(04) COMP. DTSIS31 00253 15 MAP-MISS-RPT-CUTOFF-CD-DSCR-A PIC X(01). DTSIS31 00254 15 MAP-MISS-RPT-CUTOFF-CD-DSCR PIC X(10). DTSIS31 00255 DTSIS31 00256 10 F312135. DTSIS31 00257 15 MAP-UI-RATE-L PIC S9(04) COMP. DTSIS31 00258 15 MAP-UI-RATE-A PIC X(01). DTSIS31 00259 15 MAP-UI-RATE PIC X(05) DTSIS31 00260 JUST RIGHT. DTSIS31 00261 DTSIS31 00262 10 F312157. DTSIS31 00263 15 MAP-INT-START-DATE-1-L PIC S9(04) COMP. DTSIS31 00264 15 MAP-INT-START-DATE-1-A PIC X(01). DTSIS31 00265 15 MAP-INT-START-DATE-1 PIC X(08). DTSIS31 00266 DTSIS31 00267 10 F312166. DTSIS31 00268 15 MAP-INT-END-DATE-1-L PIC S9(04) COMP. DTSIS31 00269 15 MAP-INT-END-DATE-1-A PIC X(01). DTSIS31 00270 15 MAP-INT-END-DATE-1 PIC X(08). DTSIS31 00271 DTSIS31 00272 10 F312175. DTSIS31 00273 15 MAP-INT-RATE-1-L PIC S9(04) COMP. DTSIS31 00274 15 MAP-INT-RATE-1-A PIC X(01). DTSIS31 00275 15 MAP-INT-RATE-1 PIC X(05). DTSIS31 00276 DTSIS31 00277 10 F312214. DTSIS31 00278 15 MAP-INTPEN-INDS-L PIC S9(04) COMP. DTSIS31 00279 15 MAP-INTPEN-INDS-A PIC X(01). DTSIS31 00280 15 MAP-INTPEN-INDS PIC X(03). DTSIS31 00281 15 FILLER REDEFINES MAP-INTPEN-INDS. DTSIS31 00282 20 MAP-INT-CHARGE-IND PIC X(01). DTSIS31 00283 20 MAP-INTPEN-SLASH PIC X(01). DTSIS31 00284 20 MAP-PEN-CHARGE-IND PIC X(01). DTSIS31 00285 DTSIS31 00286 10 F312243. DTSIS31 00287 15 MAP-QTR-ALD-L PIC S9(04) COMP. DTSIS31 00288 15 MAP-QTR-ALD-A PIC X(01). DTSIS31 00289 15 MAP-QTR-ALD PIC X(05). DTSIS31 00290 DTSIS31 00291 10 F312248. DTSIS31 00292 15 MAP-WAGE-RPT-L PIC S9(04) COMP. DTSIS31 00293 15 MAP-WAGE-RPT-A PIC X(01). DTSIS31 00294 15 MAP-WAGE-RPT PIC X(01). DTSIS31 00295 DTSIS31 00296 10 F312257. DTSIS31 00297 15 MAP-INT-START-DATE-2-L PIC S9(04) COMP. DTSIS31 00298 15 MAP-INT-START-DATE-2-A PIC X(01). DTSIS31 00299 15 MAP-INT-START-DATE-2 PIC X(08). DTSIS31 00300 DTSIS31 00301 10 F312266. DTSIS31 00302 15 MAP-INT-END-DATE-2-L PIC S9(04) COMP. DTSIS31 00303 15 MAP-INT-END-DATE-2-A PIC X(01). DTSIS31 00304 15 MAP-INT-END-DATE-2 PIC X(08). DTSIS31 00305 DTSIS31 00306 10 F312275. DTSIS31 00307 15 MAP-INT-RATE-2-L PIC S9(04) COMP. DTSIS31 00308 15 MAP-INT-RATE-2-A PIC X(01). DTSIS31 00309 15 MAP-INT-RATE-2 PIC X(05). DTSIS31 00310 DTSIS31 00311 10 F312301. DTSIS31 00312 15 MAP-KEY-FIRST-L PIC S9(04) COMP. DTSIS31 00313 15 MAP-KEY-FIRST-A PIC X(01). DTSIS31 00314 15 MAP-KEY-FIRST PIC X(07). DTSIS31 00315 DTSIS31 00316 10 F312309. DTSIS31 00317 15 MAP-KEY-LAST-L PIC S9(04) COMP. DTSIS31 00318 15 MAP-KEY-LAST-A PIC X(01). DTSIS31 00319 15 MAP-KEY-LAST PIC X(07). DTSIS31 00320 DTSIS31 00321 10 F312317. DTSIS31 00322 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS31 00323 15 MAP-KEY-BACK-A PIC X(01). DTSIS31 00324 15 MAP-KEY-BACK PIC X(07). DTSIS31 00325 DTSIS31 00326 10 F312325. DTSIS31 00327 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS31 00328 15 MAP-KEY-FWRD-A PIC X(01). DTSIS31 00329 15 MAP-KEY-FWRD PIC X(07). DTSIS31 00330 DTSIS31 00331 10 MAP-MSG-AREA. DTSIS31 00332 15 MAP-MSG-ID-AREA. DTSIS31 00333 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS31 00334 20 MAP-MSG-ID-A PIC X(01). DTSIS31 00335 20 MAP-MSG-ID PIC X(08). DTSIS31 00336 15 MAP-MSG-TEXT-AREA. DTSIS31 00337 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS31 00338 20 MAP-MSG-TEXT-A PIC X(01). DTSIS31 00339 20 MAP-MSG-TEXT PIC X(58). DTSIS31 00340 DTSIS31 00341 10 MAP-GOTO-AREA. DTSIS31 00342 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS31 00343 15 MAP-GOTO-A PIC X(01). DTSIS31 00344 15 MAP-GOTO PIC X(02). DTSIS31