00001 ***** 11/11/02 00002 * DTSIS52 FIELD ASSIGNMENT ENTRY SEND/RECEIVE AREA. DTSIS52 00003 * LV015 00004 * DTSIS52 00005 * 01/23/1999 REVIEWED AND MODIFIED FOR DC. EHH DTSIS52 00006 * 07/11/2002 ADDED ESTIMATED WAGE AMOUNT AND DTSIS52 00007 * RATE TYPE FOR HOUSEHOLD. GD DTSIS52 00008 * DTSIS52 00009 ***** DTSIS52 00010 10 FILLER PIC X(12). DTSIS52 00011 DTSIS52 00012 10 MAP-SCR-TYPE-AREA. DTSIS52 00013 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS52 00014 15 MAP-SCR-TYPE-A PIC X(01). DTSIS52 00015 15 MAP-SCR-TYPE PIC X(02). DTSIS52 00016 DTSIS52 00017 10 MAP-CICS-REGION-NAME-AREA. DTSIS52 00018 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS52 00019 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS52 00020 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS52 00021 DTSIS52 00022 10 MAP-SYS-DATE-AREA. DTSIS52 00023 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS52 00024 15 MAP-SYS-DATE-A PIC X(01). DTSIS52 00025 15 MAP-SYS-DATE PIC X(08). DTSIS52 00026 DTSIS52 00027 10 MAP-EMP-NO-AREA. DTSIS52 00028 15 MAP-EMP-NO-1-AREA. DTSIS52 00029 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS52 00030 20 MAP-EMP-NO-1-A PIC X(01). DTSIS52 00031 20 MAP-EMP-NO-1 PIC X(03). DTSIS52 00032 15 MAP-EMP-NO-2-AREA. DTSIS52 00033 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS52 00034 20 MAP-EMP-NO-2-A PIC X(01). DTSIS52 00035 20 MAP-EMP-NO-2 PIC X(03). DTSIS52 00036 DTSIS52 00037 10 MAP-PRIMARY-NAME-AREA. DTSIS52 00038 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. DTSIS52 00039 15 MAP-PRIMARY-NAME-A PIC X(01). DTSIS52 00040 15 MAP-PRIMARY-NAME PIC X(40). DTSIS52 00041 DTSIS52 00042 10 MAP-SYS-TIME-AREA. DTSIS52 00043 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS52 00044 15 MAP-SYS-TIME-A PIC X(01). DTSIS52 00045 15 MAP-SYS-TIME PIC X(08). DTSIS52 00046 DTSIS52 00047 10 MAP-CURR-PAGE-AREA. DTSIS52 00048 15 MAP-CURR-PAGE-L PIC S9(04) COMP. DTSIS52 00049 15 MAP-CURR-PAGE-A PIC X(01). DTSIS52 00050 15 MAP-CURR-PAGE PIC Z(02). DTSIS52 00051 DTSIS52 00052 10 MAP-LAST-PAGE-AREA. DTSIS52 00053 15 MAP-LAST-PAGE-L PIC S9(04) COMP. DTSIS52 00054 15 MAP-LAST-PAGE-A PIC X(01). DTSIS52 00055 15 MAP-LAST-PAGE PIC Z(02). DTSIS52 00056 DTSIS52 00057 10 MAP-EFF-YRQ-AREA. DTSIS52 00058 15 MAP-EFF-QTR-YR-AREA. DTSIS52 00059 20 MAP-EFF-QTR-YR-L PIC S9(04) COMP. DTSIS52 00060 20 MAP-EFF-QTR-YR-A PIC X(01). DTSIS52 00061 20 MAP-EFF-QTR-YR PIC X(02). DTSIS52 00062 15 MAP-EFF-QTR-Q-AREA. DTSIS52 00063 20 MAP-EFF-QTR-Q-L PIC S9(04) COMP. DTSIS52 00064 20 MAP-EFF-QTR-Q-A PIC X(01). DTSIS52 00065 20 MAP-EFF-QTR-Q PIC X(01). DTSIS52 00066 DTSIS52 00067 10 MAP-PERIOD-FROM-AREA. DTSIS52 00068 15 MAP-PERIOD-FROM-L PIC S9(04) COMP. DTSIS52 00069 15 MAP-PERIOD-FROM-A PIC X(01). DTSIS52 00070 15 MAP-PERIOD-FROM PIC X(08). DTSIS52 00071 DTSIS52 00072 10 MAP-PERIOD-TO-AREA. DTSIS52 00073 15 MAP-PERIOD-TO-L PIC S9(04) COMP. DTSIS52 00074 15 MAP-PERIOD-TO-A PIC X(01). DTSIS52 00075 15 MAP-PERIOD-TO PIC X(08). DTSIS52 00076 DTSIS52 00077 10 MAP-EARLIEST-LIAB-DATE-AREA. DTSIS52 00078 15 MAP-EARLIEST-LIAB-MONTH-AREA. DTSIS52 00079 20 MAP-EARLIEST-LIAB-MONTH-L PIC S9(04) COMP. DTSIS52 00080 20 MAP-EARLIEST-LIAB-MONTH-A PIC X(01). DTSIS52 00081 20 MAP-EARLIEST-LIAB-MONTH PIC X(02). DTSIS52 00082 15 MAP-EARLIEST-LIAB-DAY-AREA. DTSIS52 00083 20 MAP-EARLIEST-LIAB-DAY-L PIC S9(04) COMP. DTSIS52 00084 20 MAP-EARLIEST-LIAB-DAY-A PIC X(01). DTSIS52 00085 20 MAP-EARLIEST-LIAB-DAY PIC X(02). DTSIS52 00086 15 MAP-EARLIEST-LIAB-YEAR-AREA. DTSIS52 00087 20 MAP-EARLIEST-LIAB-YEAR-L PIC S9(04) COMP. DTSIS52 00088 20 MAP-EARLIEST-LIAB-YEAR-A PIC X(01). DTSIS52 00089 20 MAP-EARLIEST-LIAB-YEAR PIC X(02). DTSIS52 00090 DTSIS52 00091 10 MAP-ACTIVE-IND-AREA. DTSIS52 00092 15 MAP-ACTIVE-IND-L PIC S9(04) COMP. DTSIS52 00093 15 MAP-ACTIVE-IND-A PIC X(01). DTSIS52 00094 15 MAP-ACTIVE-IND PIC X(01). DTSIS52 00095 DTSIS52 00096 10 MAP-TRNSF-TO-EMP-NO-AREA. DTSIS52 00097 15 MAP-TRNSF-TO-EMP-NO-1-AREA. DTSIS52 00098 20 MAP-TRNSF-TO-EMP-NO-1-L PIC S9(04) COMP. DTSIS52 00099 20 MAP-TRNSF-TO-EMP-NO-1-A PIC X(01). DTSIS52 00100 20 MAP-TRNSF-TO-EMP-NO-1 PIC X(03). DTSIS52 00101 15 MAP-TRNSF-TO-EMP-NO-2-AREA. DTSIS52 00102 20 MAP-TRNSF-TO-EMP-NO-2-L PIC S9(04) COMP. DTSIS52 00103 20 MAP-TRNSF-TO-EMP-NO-2-A PIC X(01). DTSIS52 00104 20 MAP-TRNSF-TO-EMP-NO-2 PIC X(03). DTSIS52 00105 DTSIS52 00106 10 MAP-PRIOR-DATE-AREA. DTSIS52 00107 15 MAP-PRIOR-DATE-L PIC S9(04) COMP. DTSIS52 00108 15 MAP-PRIOR-DATE-A PIC X(01). DTSIS52 00109 15 MAP-PRIOR-DATE-DISP PIC X(10). DTSIS52 00110 15 MAP-PRIOR-DATE-DISPLAY-X REDEFINES DTSIS52 00111 MAP-PRIOR-DATE-DISP. DTSIS52 00112 20 MAP-PRIOR-DATE-LEFT PIC X. DTSIS52 00113 20 MAP-PRIOR-DATE PIC X(8). DTSIS52 00114 20 MAP-PRIOR-DATE-RIGHT PIC X. DTSIS52 00115 DTSIS52 00116 10 MAP-PRIOR-RESERVE-AREA. DTSIS52 00117 15 MAP-PRIOR-RESERVE-L PIC S9(04) COMP. DTSIS52 00118 15 MAP-PRIOR-RESERVE-A PIC X(01). DTSIS52 00119 15 MAP-PRIOR-RESERVE PIC X(15). DTSIS52 00120 15 MAP-PRIOR-RESERVE-N REDEFINES MAP-PRIOR-RESERVE DTSIS52 00121 PIC ----,---,--9.99. DTSIS52 00122 DTSIS52 00123 10 MAP-PRIOR-RESERVE-CHNG-AREA. DTSIS52 00124 15 MAP-PRIOR-RESERVE-CHNG-L PIC S9(04) COMP. DTSIS52 00125 15 MAP-PRIOR-RESERVE-CHNG-A PIC X(01). DTSIS52 00126 15 MAP-PRIOR-RESERVE-CHNG PIC X(15). DTSIS52 00127 15 MAP-PRIOR-RESERVE-CHNG-N DTSIS52 00128 REDEFINES MAP-PRIOR-RESERVE-CHNG DTSIS52 00129 PIC ----,---,--9.99. DTSIS52 00130 DTSIS52 00131 10 MAP-UI-TAX-PAID-AREA. DTSIS52 00132 15 MAP-UI-TAX-PAID-L PIC S9(04) COMP. DTSIS52 00133 15 MAP-UI-TAX-PAID-A PIC X(01). DTSIS52 00134 15 MAP-UI-TAX-PAID PIC X(15). DTSIS52 00135 15 MAP-UI-TAX-PAID-N REDEFINES MAP-UI-TAX-PAID DTSIS52 00136 PIC ----,---,--9.99. DTSIS52 00137 DTSIS52 00138 10 MAP-UI-TAX-PAID-CHNG-AREA. DTSIS52 00139 15 MAP-UI-TAX-PAID-CHNG-L PIC S9(04) COMP. DTSIS52 00140 15 MAP-UI-TAX-PAID-CHNG-A PIC X(01). DTSIS52 00141 15 MAP-UI-TAX-PAID-CHNG PIC X(15). DTSIS52 00142 15 MAP-UI-TAX-PAID-CHNG-N REDEFINES DTSIS52 00143 MAP-UI-TAX-PAID-CHNG PIC ----,---,--9.99. DTSIS52 00144 DTSIS52 00145 10 MAP-TRUST-FUND-INT-AREA. DTSIS52 00146 15 MAP-TRUST-FUND-INT-L PIC S9(04) COMP. DTSIS52 00147 15 MAP-TRUST-FUND-INT-A PIC X(01). DTSIS52 00148 15 MAP-TRUST-FUND-INT PIC X(15). DTSIS52 00149 15 MAP-TRUST-FUND-INT-N REDEFINES MAP-TRUST-FUND-INT DTSIS52 00150 PIC ----,---,--9.99. DTSIS52 00151 DTSIS52 00152 10 MAP-TRUST-FUND-INT-CHNG-AREA. DTSIS52 00153 15 MAP-TRUST-FUND-INT-CHNG-L PIC S9(04) COMP. DTSIS52 00154 15 MAP-TRUST-FUND-INT-CHNG-A PIC X(01). DTSIS52 00155 15 MAP-TRUST-FUND-INT-CHNG PIC X(15). DTSIS52 00156 15 MAP-TRUST-FUND-INT-CHNG-N DTSIS52 00157 REDEFINES MAP-TRUST-FUND-INT-CHNG DTSIS52 00158 PIC ----,---,--9.99. DTSIS52 00159 DTSIS52 00160 10 MAP-UI-BEN-CHRGD-AREA. DTSIS52 00161 15 MAP-UI-BEN-CHRGD-L PIC S9(04) COMP. DTSIS52 00162 15 MAP-UI-BEN-CHRGD-A PIC X(01). DTSIS52 00163 15 MAP-UI-BEN-CHRGD PIC X(15). DTSIS52 00164 15 MAP-UI-BEN-CHRGD-N REDEFINES MAP-UI-BEN-CHRGD DTSIS52 00165 PIC ----,---,--9.99. DTSIS52 00166 DTSIS52 00167 10 MAP-UI-BEN-CHRGD-CHNG-AREA. DTSIS52 00168 15 MAP-UI-BEN-CHRGD-CHNG-L PIC S9(04) COMP. DTSIS52 00169 15 MAP-UI-BEN-CHRGD-CHNG-A PIC X(01). DTSIS52 00170 15 MAP-UI-BEN-CHRGD-CHNG PIC X(15). DTSIS52 00171 15 MAP-UI-BEN-CHRGD-CHNG-N REDEFINES DTSIS52 00172 MAP-UI-BEN-CHRGD-CHNG PIC ----,---,--9.99. DTSIS52 00173 DTSIS52 00174 10 SCREEN-TABLE OCCURS 3 TIMES. DTSIS52 00175 15 MAP-START-YRQ-AREA. DTSIS52 00176 20 MAP-START-YRQ-L PIC S9(04) COMP. DTSIS52 00177 20 MAP-START-YRQ-A PIC X(01). DTSIS52 00178 20 MAP-START-YRQ PIC X(04). DTSIS52 00179 20 FILLER REDEFINES MAP-START-YRQ. DTSIS52 00180 25 MAP-START-YR PIC X(02). DTSIS52 00181 25 MAP-START-SLASH PIC X(01). DTSIS52 00182 25 MAP-START-Q PIC X(01). DTSIS52 00183 DTSIS52 00184 15 MAP-END-YRQ-AREA. DTSIS52 00185 20 MAP-END-YRQ-L PIC S9(04) COMP. DTSIS52 00186 20 MAP-END-YRQ-A PIC X(01). DTSIS52 00187 20 MAP-END-YRQ PIC X(04). DTSIS52 00188 20 FILLER REDEFINES MAP-END-YRQ. DTSIS52 00189 25 MAP-END-YR PIC X(02). DTSIS52 00190 25 MAP-END-SLASH PIC X(01). DTSIS52 00191 25 MAP-END-Q PIC X(01). DTSIS52 00192 DTSIS52 00193 15 MAP-TOT-WAGE-AREA. DTSIS52 00194 20 MAP-TOT-WAGE-L PIC S9(04) COMP. DTSIS52 00195 20 MAP-TOT-WAGE-A PIC X(01). DTSIS52 00196 20 MAP-TOT-WAGE PIC X(16). DTSIS52 00197 20 MAP-TOT-WAGE-N REDEFINES MAP-TOT-WAGE DTSIS52 00198 PIC ZZZZZ,ZZZ,ZZ9.99. DTSIS52 00199 DTSIS52 00200 15 MAP-TOT-WAGE-CHNG-AREA. DTSIS52 00201 20 MAP-TOT-WAGE-CHNG-L PIC S9(04) COMP. DTSIS52 00202 20 MAP-TOT-WAGE-CHNG-A PIC X(01). DTSIS52 00203 20 MAP-TOT-WAGE-CHNG PIC X(16). DTSIS52 00204 20 MAP-TOT-WAGE-CHNG-N REDEFINES MAP-TOT-WAGE-CHNG DTSIS52 00205 PIC -----,---,--9.99. DTSIS52 00206 DTSIS52 00207 15 MAP-TAX-WAGE-AREA. DTSIS52 00208 20 MAP-TAX-WAGE-L PIC S9(04) COMP. DTSIS52 00209 20 MAP-TAX-WAGE-A PIC X(01). DTSIS52 00210 20 MAP-TAX-WAGE PIC X(16). DTSIS52 00211 20 MAP-TAX-WAGE-N REDEFINES MAP-TAX-WAGE DTSIS52 00212 PIC ZZZZZ,ZZZ,ZZ9.99. DTSIS52 00213 DTSIS52 00214 15 MAP-TAX-WAGE-CHNG-AREA. DTSIS52 00215 20 MAP-TAX-WAGE-CHNG-L PIC S9(04) COMP. DTSIS52 00216 20 MAP-TAX-WAGE-CHNG-A PIC X(01). DTSIS52 00217 20 MAP-TAX-WAGE-CHNG PIC X(16). DTSIS52 00218 20 MAP-TAX-WAGE-CHNG-N REDEFINES DTSIS52 00219 MAP-TAX-WAGE-CHNG DTSIS52 00220 PIC -----,---,--9.99. DTSIS52 00221 DTSIS52 00222 10 MAP-CURRENT-RESERVE-AREA. DTSIS52 00223 15 MAP-CURRENT-RESERVE-L PIC S9(04) COMP. DTSIS52 00224 15 MAP-CURRENT-RESERVE-A PIC X(01). DTSIS52 00225 15 MAP-CURRENT-RESERVE PIC X(17). DTSIS52 00226 15 MAP-CURRENT-RESERVE-N REDEFINES MAP-CURRENT-RESERVE DTSIS52 00227 PIC ------,---,--9.99. DTSIS52 00228 DTSIS52 00229 10 MAP-CURRENT-DATE-AREA. DTSIS52 00230 15 MAP-CURRENT-DATE-L PIC S9(04) COMP. DTSIS52 00231 15 MAP-CURRENT-DATE-A PIC X(01). DTSIS52 00232 15 MAP-CURRENT-DATE-DISP PIC X(10). DTSIS52 00233 15 MAP-CURRENT-DATE-DISPLAY-X REDEFINES DTSIS52 00234 MAP-CURRENT-DATE-DISP. DTSIS52 00235 20 MAP-CURRENT-DATE-LEFT PIC X. DTSIS52 00236 20 MAP-CURRENT-DATE PIC X(8). DTSIS52 00237 20 MAP-CURRENT-DATE-RIGHT PIC X. DTSIS52 00238 DTSIS52 00239 10 MAP-MISS-RPT-CNT-AREA. DTSIS52 00240 15 MAP-MISS-RPT-CNT-L PIC S9(04) COMP. DTSIS52 00241 15 MAP-MISS-RPT-CNT-A PIC X(01). DTSIS52 00242 15 MAP-MISS-RPT-CNT PIC X(03). DTSIS52 00243 15 MAP-MISS-RPT-CNT-N DTSIS52 00244 REDEFINES MAP-MISS-RPT-CNT PIC ZZ9. DTSIS52 00245 DTSIS52 00246 10 MAP-ESTB-DATE-AREA. DTSIS52 00247 15 MAP-ESTB-DATE-L PIC S9(04) COMP. DTSIS52 00248 15 MAP-ESTB-DATE-A PIC X(01). DTSIS52 00249 15 MAP-ESTB-DATE PIC X(08). DTSIS52 00250 DTSIS52 00251 10 MAP-AVG-TAX-WAGE-AREA. DTSIS52 00252 15 MAP-AVG-TAX-WAGE-L PIC S9(04) COMP. DTSIS52 00253 15 MAP-AVG-TAX-WAGE-A PIC X(01). DTSIS52 00254 15 MAP-AVG-TAX-WAGE PIC X(17). DTSIS52 00255 15 MAP-AVG-TAX-WAGE-N REDEFINES MAP-AVG-TAX-WAGE DTSIS52 00256 PIC ------,---,--9.99. DTSIS52 00257 DTSIS52 00258 10 MAP-UI-TAX-DUE-AREA. DTSIS52 00259 15 MAP-UI-TAX-DUE-L PIC S9(04) COMP. DTSIS52 00260 15 MAP-UI-TAX-DUE-A PIC X(01). DTSIS52 00261 15 MAP-UI-TAX-DUE PIC X(13). DTSIS52 00262 15 MAP-UI-TAX-DUE-N REDEFINES MAP-UI-TAX-DUE DTSIS52 00263 PIC ZZZZZZ,ZZ9.99. DTSIS52 00264 DTSIS52 00265 10 MAP-CHNG-DATE-AREA. DTSIS52 00266 15 MAP-CHNG-DATE-L PIC S9(04) COMP. DTSIS52 00267 15 MAP-CHNG-DATE-A PIC X(01). DTSIS52 00268 15 MAP-CHNG-DATE PIC X(08). DTSIS52 00269 DTSIS52 00270 10 MAP-RESERVE-RATIO-AREA. DTSIS52 00271 15 MAP-RESERVE-RATIO-L PIC S9(04) COMP. DTSIS52 00272 15 MAP-RESERVE-RATIO-A PIC X(01). DTSIS52 00273 15 MAP-RESERVE-RATIO PIC X(06). DTSIS52 00274 15 MAP-RESERVE-RATIO-N REDEFINES MAP-RESERVE-RATIO DTSIS52 00275 PIC ---9.9. DTSIS52 00276 DTSIS52 00277 10 MAP-PRED-DUE-IND-AREA. DTSIS52 00278 15 MAP-PRED-DUE-IND-L PIC S9(04) COMP. DTSIS52 00279 15 MAP-PRED-DUE-IND-A PIC X(01). DTSIS52 00280 15 MAP-PRED-DUE-IND PIC X(01). DTSIS52 00281 DTSIS52 00282 10 MAP-CHNG-OPID-AREA. DTSIS52 00283 15 MAP-CHNG-OPID-L PIC S9(04) COMP. DTSIS52 00284 15 MAP-CHNG-OPID-A PIC X(01). DTSIS52 00285 15 MAP-CHNG-OPID PIC X(08). DTSIS52 00286 DTSIS52 00287 10 MAP-RATE-A-AREA. DTSIS52 00288 15 MAP-RATE-A-L PIC S9(04) COMP. DTSIS52 00289 15 MAP-RATE-A-A PIC X(01). DTSIS52 00290 15 MAP-RATE-A PIC X(07). DTSIS52 00291 15 FILLER REDEFINES MAP-RATE-A. DTSIS52 00292 20 MAP-RATE-A-LEFT PIC X(01). DTSIS52 00293 20 MAP-RATE-A-DISP PIC X(05). DTSIS52 00294 20 MAP-RATE-A-RIGHT PIC X(01). DTSIS52 00295 DTSIS52 00296 10 MAP-RATE-B-AREA. DTSIS52 00297 15 MAP-RATE-B-L PIC S9(04) COMP. DTSIS52 00298 15 MAP-RATE-B-A PIC X(01). DTSIS52 00299 15 MAP-RATE-B PIC X(05). DTSIS52 00300 DTSIS52 00301 10 MAP-PEN-RATE-IND-AREA. DTSIS52 00302 15 MAP-PEN-RATE-IND-L PIC S9(04) COMP. DTSIS52 00303 15 MAP-PEN-RATE-IND-A PIC X(01). DTSIS52 00304 15 MAP-PEN-RATE-IND PIC X(01). DTSIS52 00305 DTSIS52 00306 10 MAP-RATE-CATEGORY-DSCR-AREA. DTSIS52 00307 15 MAP-RATE-CATEGORY-DSCR-L PIC S9(04) COMP. DTSIS52 00308 15 MAP-RATE-CATEGORY-DSCR-A PIC X(01). DTSIS52 00309 15 MAP-RATE-CATEGORY-DSCR PIC X(13). DTSIS52 00310 DTSIS52 00311 10 MAP-ESTIM-QTR1-WAGE-AREA. DTSIS52 00312 15 MAP-ESTIM-QTR1-WAGE-L PIC S9(04) COMP. DTSIS52 00313 15 MAP-ESTIM-QTR1-WAGE-A PIC X(01). DTSIS52 00314 15 MAP-ESTIM-QTR1-WAGE PIC X(16). DTSIS52 00315 15 MAP-ESTIM-QTR1-WAGE-N REDEFINES DTSIS52 00316 MAP-ESTIM-QTR1-WAGE DTSIS52 00317 PIC -----,---,--9.99. DTSIS52 00318 DTSIS52 00319 10 MAP-RATE-TYPE-AREA. DTSIS52 00320 15 MAP-RATE-TYPE-L PIC S9(04) COMP. DTSIS52 00321 15 MAP-RATE-TYPE-A PIC X(01). DTSIS52 00322 15 MAP-RATE-TYPE PIC X(01). DTSIS52 00323 88 MAP-RATE-TYPE-REG-88 VALUE 'R'. DTSIS52 00324 88 MAP-RATE-TYPE-ESTIM-88 VALUE 'E'. DTSIS52 00325 88 MAP-RATE-TYPE-FINAL-88 VALUE 'F'. DTSIS52 00326 88 MAP-RATE-TYPE-NULL-88 VALUE SPACE. DTSIS52 00327 88 MAP-RATE-TYPE-VALID-88 VALUE 'R' 'E' 'F' ' '. DTSIS52 00328 DTSIS52 00329 10 MAP-KEY-FIRST-AREA. DTSIS52 00330 15 MAP-KEY-FIRST-L PIC S9(04) COMP. DTSIS52 00331 15 MAP-KEY-FIRST-A PIC X(01). DTSIS52 00332 15 MAP-KEY-FIRST PIC X(08). DTSIS52 00333 DTSIS52 00334 10 MAP-KEY-LAST-AREA. DTSIS52 00335 15 MAP-KEY-LAST-L PIC S9(04) COMP. DTSIS52 00336 15 MAP-KEY-LAST-A PIC X(01). DTSIS52 00337 15 MAP-KEY-LAST PIC X(07). DTSIS52 00338 DTSIS52 00339 10 MAP-KEY-BACK-AREA. DTSIS52 00340 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS52 00341 15 MAP-KEY-BACK-A PIC X(01). DTSIS52 00342 15 MAP-KEY-BACK PIC X(07). DTSIS52 00343 DTSIS52 00344 10 MAP-KEY-FWRD-AREA. DTSIS52 00345 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS52 00346 15 MAP-KEY-FWRD-A PIC X(01). DTSIS52 00347 15 MAP-KEY-FWRD PIC X(07). DTSIS52 00348 DTSIS52 00349 10 MAP-KEY-ADD-AREA. DTSIS52 00350 15 MAP-KEY-ADD-L PIC S9(04) COMP. DTSIS52 00351 15 MAP-KEY-ADD-A PIC X(01). DTSIS52 00352 15 MAP-KEY-ADD PIC X(06). DTSIS52 00353 DTSIS52 00354 10 MAP-KEY-MOD-AREA. DTSIS52 00355 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS52 00356 15 MAP-KEY-MOD-A PIC X(01). DTSIS52 00357 15 MAP-KEY-MOD PIC X(07). DTSIS52 00358 DTSIS52 00359 10 MAP-KEY-DEL-AREA. DTSIS52 00360 15 MAP-KEY-DEL-L PIC S9(04) COMP. DTSIS52 00361 15 MAP-KEY-DEL-A PIC X(01). DTSIS52 00362 15 MAP-KEY-DEL PIC X(07). DTSIS52 00363 DTSIS52 00364 10 MAP-MSG-AREA. DTSIS52 00365 15 MAP-MSG-ID-AREA. DTSIS52 00366 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS52 00367 20 MAP-MSG-ID-A PIC X(01). DTSIS52 00368 20 MAP-MSG-ID PIC X(08). DTSIS52 00369 15 MAP-MSG-TEXT-AREA. DTSIS52 00370 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS52 00371 20 MAP-MSG-TEXT-A PIC X(01). DTSIS52 00372 20 MAP-MSG-TEXT PIC X(58). DTSIS52 00373 DTSIS52 00374 10 MAP-GOTO-AREA. DTSIS52 00375 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS52 00376 15 MAP-GOTO-A PIC X(01). DTSIS52 00377 15 MAP-GOTO PIC X(02). DTSIS52