00001 ***** 11/11/02 00002 * DTSIS41 COLLECTIONS INQUIRY SEND/RECEIVE AREA DTSIS41 00003 ***** LV011 00004 10 FILLER PIC X(12). DTSIS41 00005 DTSIS41 00006 10 MAP-SCR-TYPE-AREA. DTSIS41 00007 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS41 00008 15 MAP-SCR-TYPE-A PIC X(01). DTSIS41 00009 15 MAP-SCR-TYPE PIC X(02). DTSIS41 00010 DTSIS41 00011 10 MAP-CICS-REGION-NAME-AREA. DTSIS41 00012 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS41 00013 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS41 00014 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS41 00015 DTSIS41 00016 10 MAP-SYS-DATE-AREA. DTSIS41 00017 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS41 00018 15 MAP-SYS-DATE-A PIC X(01). DTSIS41 00019 15 MAP-SYS-DATE PIC X(08). DTSIS41 00020 SKIP3 DTSIS41 00021 10 MAP-EMP-NO-AREA. DTSIS41 00022 15 MAP-EMP-NO-1-AREA. DTSIS41 00023 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS41 00024 20 MAP-EMP-NO-1-A PIC X(01). DTSIS41 00025 20 MAP-EMP-NO-1 PIC X(03). DTSIS41 00026 15 MAP-EMP-NO-2-AREA. DTSIS41 00027 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS41 00028 20 MAP-EMP-NO-2-A PIC X(01). DTSIS41 00029 20 MAP-EMP-NO-2 PIC X(03). DTSIS41 00030 DTSIS41 00031 10 MAP-PRIMARY-NAME-AREA. DTSIS41 00032 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. DTSIS41 00033 15 MAP-PRIMARY-NAME-A PIC X(01). DTSIS41 00034 15 MAP-PRIMARY-NAME PIC X(40). DTSIS41 00035 DTSIS41 00036 10 MAP-NOTE-AREA. DTSIS41 00037 15 MAP-NOTE-L PIC S9(04) COMP. DTSIS41 00038 15 MAP-NOTE-A PIC X(01). DTSIS41 00039 15 MAP-NOTE PIC X(01). DTSIS41 00040 DTSIS41 00041 10 MAP-SYS-TIME-AREA. DTSIS41 00042 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS41 00043 15 MAP-SYS-TIME-A PIC X(01). DTSIS41 00044 15 MAP-SYS-TIME PIC X(08). DTSIS41 00045 SKIP3 DTSIS41 00046 10 MAP-COMP-DATE-AREA. DTSIS41 00047 15 MAP-COMP-MO-L PIC S9(04) COMP. DTSIS41 00048 15 MAP-COMP-MO-A PIC X(01). DTSIS41 00049 15 MAP-COMP-MO PIC X(02). DTSIS41 00050 DTSIS41 00051 15 MAP-COMP-DA-L PIC S9(04) COMP. DTSIS41 00052 15 MAP-COMP-DA-A PIC X(01). DTSIS41 00053 15 MAP-COMP-DA PIC X(02). DTSIS41 00054 DTSIS41 00055 15 MAP-COMP-YR-L PIC S9(04) COMP. DTSIS41 00056 15 MAP-COMP-YR-A PIC X(01). DTSIS41 00057 15 MAP-COMP-YR PIC X(02). DTSIS41 00058 DTSIS41 00059 10 MAP-FLD-REP-ID-AREA. DTSIS41 00060 15 MAP-FLD-REP-ID-L PIC S9(04) COMP. DTSIS41 00061 15 MAP-FLD-REP-ID-A PIC X(01). DTSIS41 00062 15 MAP-FLD-REP-ID PIC X(02). DTSIS41 00063 DTSIS41 00064 10 MAP-EMP-CLASS-AREA. DTSIS41 00065 15 MAP-EMP-CLASS-L PIC S9(04) COMP. DTSIS41 00066 15 MAP-EMP-CLASS-A PIC X(01). DTSIS41 00067 15 MAP-EMP-CLASS PIC X(01). DTSIS41 00068 DTSIS41 00069 10 MAP-RECENT-SOL-AREA. DTSIS41 00070 15 MAP-RECENT-SOL-L PIC S9(04) COMP. DTSIS41 00071 15 MAP-RECENT-SOL-A PIC X(01). DTSIS41 00072 15 MAP-RECENT-SOL PIC X(09). DTSIS41 00073 DTSIS41 00074 10 MAP-SOL-CNT-AREA. DTSIS41 00075 15 MAP-SOL-CNT-L PIC S9(04) COMP. DTSIS41 00076 15 MAP-SOL-CNT-A PIC X(01). DTSIS41 00077 15 MAP-SOL-CNT PIC Z9. DTSIS41 00078 DTSIS41 00079 10 MAP-CURR-PAGE-AREA. DTSIS41 00080 15 MAP-CURR-PAGE-L PIC S9(04) COMP. DTSIS41 00081 15 MAP-CURR-PAGE-A PIC X(01). DTSIS41 00082 15 MAP-CURR-PAGE PIC Z9. DTSIS41 00083 DTSIS41 00084 10 MAP-LAST-PAGE-AREA. DTSIS41 00085 15 MAP-LAST-PAGE-L PIC S9(04) COMP. DTSIS41 00086 15 MAP-LAST-PAGE-A PIC X(01). DTSIS41 00087 15 MAP-LAST-PAGE PIC Z9. DTSIS41 00088 SKIP3 DTSIS41 00089 10 MAP-PHONE-NUMBER-AREA. DTSIS41 00090 15 MAP-VOICE-1-AREA-L PIC S9(04) COMP. DTSIS41 00091 15 MAP-VOICE-1-AREA-A PIC X(01). DTSIS41 00092 15 MAP-VOICE-1-AREA PIC X(03). DTSIS41 00093 DTSIS41 00094 15 MAP-VOICE-1-PREFIX-L PIC S9(04) COMP. DTSIS41 00095 15 MAP-VOICE-1-PREFIX-A PIC X(01). DTSIS41 00096 15 MAP-VOICE-1-PREFIX PIC X(03). DTSIS41 00097 DTSIS41 00098 15 MAP-VOICE-1-SUFFIX-L PIC S9(04) COMP. DTSIS41 00099 15 MAP-VOICE-1-SUFFIX-A PIC X(01). DTSIS41 00100 15 MAP-VOICE-1-SUFFIX PIC X(04). DTSIS41 00101 DTSIS41 00102 15 MAP-VOICE-1-EXT-L PIC S9(04) COMP. DTSIS41 00103 15 MAP-VOICE-1-EXT-A PIC X(01). DTSIS41 00104 15 MAP-VOICE-1-EXT PIC X(05). DTSIS41 00105 DTSIS41 00106 10 MAP-EMP-STATUS-AREA. DTSIS41 00107 15 MAP-EMP-STATUS-L PIC S9(04) COMP. DTSIS41 00108 15 MAP-EMP-STATUS-A PIC X(01). DTSIS41 00109 15 MAP-EMP-STATUS PIC X(01). DTSIS41 00110 DTSIS41 00111 10 MAP-TOT-WAIVE-AMT-PROJ-AREA. DTSIS41 00112 15 MAP-TOT-WAIVE-AMT-PROJ-L PIC S9(04) COMP. DTSIS41 00113 15 MAP-TOT-WAIVE-AMT-PROJ-A PIC X(01). DTSIS41 00114 15 MAP-TOT-WAIVE-AMT-PROJ PIC X(10). DTSIS41 00115 15 MAP-TOT-WAIVE-AMT-PROJ-9 REDEFINES DTSIS41 00116 MAP-TOT-WAIVE-AMT-PROJ PIC ZZZ,ZZ9.99. DTSIS41 00117 DTSIS41 00118 10 MAP-TOT-DUE-AMT-AREA. DTSIS41 00119 15 MAP-TOT-DUE-AMT-L PIC S9(04) COMP. DTSIS41 00120 15 MAP-TOT-DUE-AMT-A PIC X(01). DTSIS41 00121 15 MAP-TOT-DUE-AMT PIC X(13). DTSIS41 00122 15 MAP-TOT-DUE-AMT-9 REDEFINES DTSIS41 00123 MAP-TOT-DUE-AMT PIC ------,--9.99. DTSIS41 00124 SKIP3 DTSIS41 00125 10 MAP-SUBPOENA-CD-AREA. DTSIS41 00126 15 MAP-SUBPOENA-CD-L PIC S9(04) COMP. DTSIS41 00127 15 MAP-SUBPOENA-CD-A PIC X(01). DTSIS41 00128 15 MAP-SUBPOENA-CD PIC X(01). DTSIS41 00129 DTSIS41 00130 10 MAP-SUBPOENA-DATE-AREA. DTSIS41 00131 15 MAP-SUBPOENA-DATE-L PIC S9(04) COMP. DTSIS41 00132 15 MAP-SUBPOENA-DATE-A PIC X(01). DTSIS41 00133 15 MAP-SUBPOENA-DATE PIC X(08). DTSIS41 00134 DTSIS41 00135 10 MAP-WRITE-OFF-IND-AREA. DTSIS41 00136 15 MAP-WRITE-OFF-IND-L PIC S9(04) COMP. DTSIS41 00137 15 MAP-WRITE-OFF-IND-A PIC X(01). DTSIS41 00138 15 MAP-WRITE-OFF-IND PIC X(01). DTSIS41 00139 DTSIS41 00140 10 MAP-BNK-OPEN-IND-AREA. DTSIS41 00141 15 MAP-BNK-OPEN-IND-L PIC S9(04) COMP. DTSIS41 00142 15 MAP-BNK-OPEN-IND-A PIC X(01). DTSIS41 00143 15 MAP-BNK-OPEN-IND PIC X(01). DTSIS41 00144 DTSIS41 00145 10 MAP-INT-PER-MONTH-AMT-AREA. DTSIS41 00146 15 MAP-INT-PER-MONTH-AMT-L PIC S9(04) COMP. DTSIS41 00147 15 MAP-INT-PER-MONTH-AMT-A PIC X(01). DTSIS41 00148 15 MAP-INT-PER-MONTH-AMT PIC X(09). DTSIS41 00149 15 MAP-INT-PER-MONTH-AMT-9 REDEFINES DTSIS41 00150 MAP-INT-PER-MONTH-AMT PIC ZZ,ZZ9.99. DTSIS41 00151 DTSIS41 00152 10 MAP-PURSUED-RPT-CNT-AREA. DTSIS41 00153 15 MAP-PURSUED-RPT-CNT-L PIC S9(04) COMP. DTSIS41 00154 15 MAP-PURSUED-RPT-CNT-A PIC X(01). DTSIS41 00155 15 MAP-PURSUED-RPT-CNT PIC X(03). DTSIS41 00156 15 MAP-PURSUED-RPT-CNT-9 REDEFINES DTSIS41 00157 MAP-PURSUED-RPT-CNT PIC ZZ9. DTSIS41 00158 SKIP3 DTSIS41 00159 10 MAP-YRQ-AREA OCCURS 5. DTSIS41 00160 15 MAP-YRQ-DISPLAY-L PIC S9(04) COMP. DTSIS41 00161 15 MAP-YRQ-DISPLAY-A PIC X(01). DTSIS41 00162 15 MAP-YRQ-DISPLAY PIC X(08) DTSIS41 00163 JUST RIGHT. DTSIS41 00164 DTSIS41 00165 10 MAP-TOT-WAGE-AREA OCCURS 5. DTSIS41 00166 15 MAP-TOT-WAGE-L PIC S9(04) COMP. DTSIS41 00167 15 MAP-TOT-WAGE-A PIC X(01). DTSIS41 00168 15 MAP-TOT-WAGE PIC X(13). DTSIS41 00169 15 MAP-TOT-WAGE-9 REDEFINES DTSIS41 00170 MAP-TOT-WAGE PIC ZZ,ZZZ,ZZ9.99. DTSIS41 00171 DTSIS41 00172 10 MAP-TAX-WAGE-AREA OCCURS 5. DTSIS41 00173 15 MAP-TAX-WAGE-L PIC S9(04) COMP. DTSIS41 00174 15 MAP-TAX-WAGE-A PIC X(01). DTSIS41 00175 15 MAP-TAX-WAGE PIC X(13). DTSIS41 00176 15 MAP-TAX-WAGE-9 REDEFINES DTSIS41 00177 MAP-TAX-WAGE PIC ZZ,ZZZ,ZZ9.99. DTSIS41 00178 DTSIS41 00179 10 MAP-UI-RATE-AREA OCCURS 5. DTSIS41 00180 15 MAP-UI-RATE-L PIC S9(04) COMP. DTSIS41 00181 15 MAP-UI-RATE-A PIC X(01). DTSIS41 00182 15 MAP-UI-RATE PIC X(05) DTSIS41 00183 JUST RIGHT. DTSIS41 00184 DTSIS41 00185 10 MAP-TAX-CHARGED-AREA OCCURS 5. DTSIS41 00186 15 MAP-TAX-CHARGED-L PIC S9(04) COMP. DTSIS41 00187 15 MAP-TAX-CHARGED-A PIC X(01). DTSIS41 00188 15 MAP-TAX-CHARGED PIC X(13). DTSIS41 00189 15 MAP-TAX-CHARGED-9 REDEFINES DTSIS41 00190 MAP-TAX-CHARGED PIC ZZ,ZZZ,ZZ9.99. DTSIS41 00191 DTSIS41 00192 10 MAP-INT-CHARGED-AREA OCCURS 5. DTSIS41 00193 15 MAP-INT-CHARGED-L PIC S9(04) COMP. DTSIS41 00194 15 MAP-INT-CHARGED-A PIC X(01). DTSIS41 00195 15 MAP-INT-CHARGED PIC X(13). DTSIS41 00196 15 MAP-INT-CHARGED-9 REDEFINES DTSIS41 00197 MAP-INT-CHARGED PIC ZZ,ZZZ,ZZ9.99. DTSIS41 00198 DTSIS41 00199 10 MAP-PEN-CHARGED-AREA OCCURS 5. DTSIS41 00200 15 MAP-PEN-CHARGED-L PIC S9(04) COMP. DTSIS41 00201 15 MAP-PEN-CHARGED-A PIC X(01). DTSIS41 00202 15 MAP-PEN-CHARGED PIC X(13). DTSIS41 00203 15 MAP-PEN-CHARGED-9 REDEFINES DTSIS41 00204 MAP-PEN-CHARGED PIC ZZ,ZZZ,ZZ9.99. DTSIS41 00205 DTSIS41 00206 10 MAP-TAX-PAID-AREA OCCURS 5. DTSIS41 00207 15 MAP-TAX-PAID-L PIC S9(04) COMP. DTSIS41 00208 15 MAP-TAX-PAID-A PIC X(01). DTSIS41 00209 15 MAP-TAX-PAID PIC X(13). DTSIS41 00210 15 MAP-TAX-PAID-9 REDEFINES DTSIS41 00211 MAP-TAX-PAID PIC ZZ,ZZZ,ZZ9.99. DTSIS41 00212 DTSIS41 00213 10 MAP-INT-PAID-AREA OCCURS 5. DTSIS41 00214 15 MAP-INT-PAID-L PIC S9(04) COMP. DTSIS41 00215 15 MAP-INT-PAID-A PIC X(01). DTSIS41 00216 15 MAP-INT-PAID PIC X(13). DTSIS41 00217 15 MAP-INT-PAID-9 REDEFINES DTSIS41 00218 MAP-INT-PAID PIC ZZ,ZZZ,ZZ9.99. DTSIS41 00219 DTSIS41 00220 10 MAP-PEN-PAID-AREA OCCURS 5. DTSIS41 00221 15 MAP-PEN-PAID-L PIC S9(04) COMP. DTSIS41 00222 15 MAP-PEN-PAID-A PIC X(01). DTSIS41 00223 15 MAP-PEN-PAID PIC X(13). DTSIS41 00224 15 MAP-PEN-PAID-9 REDEFINES DTSIS41 00225 MAP-PEN-PAID PIC ZZ,ZZZ,ZZ9.99. DTSIS41 00226 DTSIS41 00227 10 MAP-TAX-BALANCE-AREA OCCURS 5. DTSIS41 00228 15 MAP-TAX-BALANCE-L PIC S9(04) COMP. DTSIS41 00229 15 MAP-TAX-BALANCE-A PIC X(01). DTSIS41 00230 15 MAP-TAX-BALANCE PIC X(13). DTSIS41 00231 15 MAP-TAX-BALANCE-9 REDEFINES DTSIS41 00232 MAP-TAX-BALANCE PIC ZZ,ZZZ,ZZ9.99. DTSIS41 00233 DTSIS41 00234 10 MAP-INT-BALANCE-AREA OCCURS 5. DTSIS41 00235 15 MAP-INT-BALANCE-L PIC S9(04) COMP. DTSIS41 00236 15 MAP-INT-BALANCE-A PIC X(01). DTSIS41 00237 15 MAP-INT-BALANCE PIC X(13). DTSIS41 00238 15 MAP-INT-BALANCE-9 REDEFINES DTSIS41 00239 MAP-INT-BALANCE PIC ZZ,ZZZ,ZZ9.99. DTSIS41 00240 DTSIS41 00241 10 MAP-PEN-BALANCE-AREA OCCURS 5. DTSIS41 00242 15 MAP-PEN-BALANCE-L PIC S9(04) COMP. DTSIS41 00243 15 MAP-PEN-BALANCE-A PIC X(01). DTSIS41 00244 15 MAP-PEN-BALANCE PIC X(13). DTSIS41 00245 15 MAP-PEN-BALANCE-9 REDEFINES DTSIS41 00246 MAP-PEN-BALANCE PIC ZZ,ZZZ,ZZ9.99. DTSIS41 00247 DTSIS41 00248 10 MAP-TOT-BALANCE-AREA OCCURS 5. DTSIS41 00249 15 MAP-TOT-BALANCE-L PIC S9(04) COMP. DTSIS41 00250 15 MAP-TOT-BALANCE-A PIC X(01). DTSIS41 00251 15 MAP-TOT-BALANCE PIC X(13). DTSIS41 00252 15 MAP-TOT-BALANCE-9 REDEFINES DTSIS41 00253 MAP-TOT-BALANCE PIC ZZ,ZZZ,ZZ9.99. DTSIS41 00254 DTSIS41 00255 10 MAP-ALD-AREA OCCURS 5. DTSIS41 00256 15 MAP-ALD-L PIC S9(04) COMP. DTSIS41 00257 15 MAP-ALD-A PIC X(01). DTSIS41 00258 15 MAP-ALD PIC X(05). DTSIS41 00259 DTSIS41 00260 10 MAP-PEN-INT-WAIVE-IND-AREA OCCURS 5. DTSIS41 00261 15 MAP-PEN-INT-WAIVE-IND-L PIC S9(04) COMP. DTSIS41 00262 15 MAP-PEN-INT-WAIVE-IND-A PIC X(01). DTSIS41 00263 15 MAP-PEN-INT-WAIVE-IND PIC X(03). DTSIS41 00264 DTSIS41 00265 10 MAP-REPORT-AREA OCCURS 5. DTSIS41 00266 15 MAP-REPORT-L PIC S9(04) COMP. DTSIS41 00267 15 MAP-REPORT-A PIC X(01). DTSIS41 00268 15 MAP-REPORT PIC X(10). DTSIS41 00269 SKIP3 DTSIS41 00270 10 F412303. DTSIS41 00271 15 MAP-KEY-FIRST-L PIC S9(04) COMP. DTSIS41 00272 15 MAP-KEY-FIRST-A PIC X(01). DTSIS41 00273 15 MAP-KEY-FIRST PIC X(08). DTSIS41 00274 DTSIS41 00275 10 F412313. DTSIS41 00276 15 MAP-KEY-LAST-L PIC S9(04) COMP. DTSIS41 00277 15 MAP-KEY-LAST-A PIC X(01). DTSIS41 00278 15 MAP-KEY-LAST PIC X(07). DTSIS41 00279 DTSIS41 00280 10 F412322. DTSIS41 00281 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS41 00282 15 MAP-KEY-BACK-A PIC X(01). DTSIS41 00283 15 MAP-KEY-BACK PIC X(07). DTSIS41 00284 DTSIS41 00285 10 F412331. DTSIS41 00286 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS41 00287 15 MAP-KEY-FWRD-A PIC X(01). DTSIS41 00288 15 MAP-KEY-FWRD PIC X(07). DTSIS41 00289 DTSIS41 00290 SKIP3 DTSIS41 00291 10 MAP-MSG-AREA. DTSIS41 00292 15 MAP-MSG-ID-AREA. DTSIS41 00293 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS41 00294 20 MAP-MSG-ID-A PIC X(01). DTSIS41 00295 20 MAP-MSG-ID PIC X(08). DTSIS41 00296 DTSIS41 00297 15 MAP-MSG-TEXT-AREA. DTSIS41 00298 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS41 00299 20 MAP-MSG-TEXT-A PIC X(01). DTSIS41 00300 20 MAP-MSG-TEXT PIC X(58). DTSIS41 00301 DTSIS41 00302 10 MAP-GOTO-AREA. DTSIS41 00303 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS41 00304 15 MAP-GOTO-A PIC X(01). DTSIS41 00305 15 MAP-GOTO PIC X(02). DTSIS41