00001 ***** 07/28/98 00002 * DTSIS1E 00003 * MACIS1E WH/OFLT REGISTRATION INQUIRY/UPDATE LV001 00004 * SEND/RECEIVE AREA. DTSIS1E 00005 * DTSIS1E 00006 ***** DTSIS1E 00007 DTSIS1E 00008 10 FILLER PIC X(12). DTSIS1E 00009 DTSIS1E 00010 10 MAP-SCR-TYPE-AREA. DTSIS1E 00011 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS1E 00012 15 MAP-SCR-TYPE-A PIC X(01). DTSIS1E 00013 15 MAP-SCR-TYPE PIC X(02). DTSIS1E 00014 DTSIS1E 00015 10 MAP-CICS-REGION-NAME-AREA. DTSIS1E 00016 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS1E 00017 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS1E 00018 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS1E 00019 DTSIS1E 00020 10 MAP-SYS-DATE-AREA. DTSIS1E 00021 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS1E 00022 15 MAP-SYS-DATE-A PIC X(01). DTSIS1E 00023 15 MAP-SYS-DATE PIC X(08). DTSIS1E 00024 SKIP3 DTSIS1E 00025 10 MAP-EMP-NO-AREA. DTSIS1E 00026 15 MAP-EMP-NO-1-AREA. DTSIS1E 00027 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS1E 00028 20 MAP-EMP-NO-1-A PIC X(01). DTSIS1E 00029 20 MAP-EMP-NO-1 PIC X(03). DTSIS1E 00030 15 MAP-EMP-NO-2-AREA. DTSIS1E 00031 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS1E 00032 20 MAP-EMP-NO-2-A PIC X(01). DTSIS1E 00033 20 MAP-EMP-NO-2 PIC X(03). DTSIS1E 00034 DTSIS1E 00035 10 MAP-SYS-TIME-AREA. DTSIS1E 00036 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS1E 00037 15 MAP-SYS-TIME-A PIC X(01). DTSIS1E 00038 15 MAP-SYS-TIME PIC X(08). DTSIS1E 00039 SKIP3 DTSIS1E 00040 10 MAP-SEIN-AREA. DTSIS1E 00041 15 MAP-SEIN-1-AREA. DTSIS1E 00042 20 MAP-SEIN-1-L PIC S9(04) COMP. DTSIS1E 00043 20 MAP-SEIN-1-A PIC X(01). DTSIS1E 00044 20 MAP-SEIN-1 PIC X(03). DTSIS1E 00045 15 MAP-SEIN-2-AREA. DTSIS1E 00046 20 MAP-SEIN-2-L PIC S9(04) COMP. DTSIS1E 00047 20 MAP-SEIN-2-A PIC X(01). DTSIS1E 00048 20 MAP-SEIN-2 PIC X(03). DTSIS1E 00049 DTSIS1E 00050 10 MAP-DOR-FEIN-AREA. DTSIS1E 00051 15 MAP-DOR-FEIN-1-AREA. DTSIS1E 00052 20 MAP-DOR-FEIN-1-L PIC S9(04) COMP. DTSIS1E 00053 20 MAP-DOR-FEIN-1-A PIC X(01). DTSIS1E 00054 20 MAP-DOR-FEIN-1 PIC X(02). DTSIS1E 00055 15 MAP-DOR-FEIN-2-AREA. DTSIS1E 00056 20 MAP-DOR-FEIN-2-L PIC S9(04) COMP. DTSIS1E 00057 20 MAP-DOR-FEIN-2-A PIC X(01). DTSIS1E 00058 20 MAP-DOR-FEIN-2 PIC X(07). DTSIS1E 00059 DTSIS1E 00060 10 MAP-UI-FEIN-AREA. DTSIS1E 00061 15 MAP-UI-FEIN-1-AREA. DTSIS1E 00062 20 MAP-UI-FEIN-1-L PIC S9(04) COMP. DTSIS1E 00063 20 MAP-UI-FEIN-1-A PIC X(01). DTSIS1E 00064 20 MAP-UI-FEIN-1 PIC X(02). DTSIS1E 00065 15 MAP-UI-FEIN-2-AREA. DTSIS1E 00066 20 MAP-UI-FEIN-2-L PIC S9(04) COMP. DTSIS1E 00067 20 MAP-UI-FEIN-2-A PIC X(01). DTSIS1E 00068 20 MAP-UI-FEIN-2 PIC X(07). DTSIS1E 00069 SKIP3 DTSIS1E 00070 10 MAP-TRADE-NAME-AREA. DTSIS1E 00071 15 MAP-TRADE-NAME-L PIC S9(04) COMP. DTSIS1E 00072 15 MAP-TRADE-NAME-A PIC X(01). DTSIS1E 00073 15 MAP-TRADE-NAME PIC X(40). DTSIS1E 00074 SKIP3 DTSIS1E 00075 10 MAP-OWNER-NAME-AREA. DTSIS1E 00076 15 MAP-OWNER-NAME-L PIC S9(04) COMP. DTSIS1E 00077 15 MAP-OWNER-NAME-A PIC X(01). DTSIS1E 00078 15 MAP-OWNER-NAME PIC X(40). DTSIS1E 00079 SKIP3 DTSIS1E 00080 10 MAP-MAIL-ADDR-1-AREA. DTSIS1E 00081 15 MAP-MAIL-ADDR-1-L PIC S9(04) COMP. DTSIS1E 00082 15 MAP-MAIL-ADDR-1-A PIC X(01). DTSIS1E 00083 15 MAP-MAIL-ADDR-1 PIC X(30). DTSIS1E 00084 DTSIS1E 00085 10 MAP-LOC-ADDR-1-AREA. DTSIS1E 00086 15 MAP-LOC-ADDR-1-L PIC S9(04) COMP. DTSIS1E 00087 15 MAP-LOC-ADDR-1-A PIC X(01). DTSIS1E 00088 15 MAP-LOC-ADDR-1 PIC X(30). DTSIS1E 00089 SKIP3 DTSIS1E 00090 10 MAP-MAIL-ADDR-2-AREA. DTSIS1E 00091 15 MAP-MAIL-ADDR-2-L PIC S9(04) COMP. DTSIS1E 00092 15 MAP-MAIL-ADDR-2-A PIC X(01). DTSIS1E 00093 15 MAP-MAIL-ADDR-2 PIC X(30). DTSIS1E 00094 DTSIS1E 00095 10 MAP-LOC-ADDR-2-AREA. DTSIS1E 00096 15 MAP-LOC-ADDR-2-L PIC S9(04) COMP. DTSIS1E 00097 15 MAP-LOC-ADDR-2-A PIC X(01). DTSIS1E 00098 15 MAP-LOC-ADDR-2 PIC X(30). DTSIS1E 00099 SKIP3 DTSIS1E 00100 10 MAP-MAIL-CITY-AREA. DTSIS1E 00101 15 MAP-MAIL-CITY-L PIC S9(04) COMP. DTSIS1E 00102 15 MAP-MAIL-CITY-A PIC X(01). DTSIS1E 00103 15 MAP-MAIL-CITY PIC X(22). DTSIS1E 00104 DTSIS1E 00105 10 MAP-LOC-CITY-AREA. DTSIS1E 00106 15 MAP-LOC-CITY-L PIC S9(04) COMP. DTSIS1E 00107 15 MAP-LOC-CITY-A PIC X(01). DTSIS1E 00108 15 MAP-LOC-CITY PIC X(22). DTSIS1E 00109 SKIP3 DTSIS1E 00110 10 MAP-MAIL-STATE-AREA. DTSIS1E 00111 15 MAP-MAIL-STATE-L PIC S9(04) COMP. DTSIS1E 00112 15 MAP-MAIL-STATE-A PIC X(01). DTSIS1E 00113 15 MAP-MAIL-STATE PIC X(02). DTSIS1E 00114 DTSIS1E 00115 10 MAP-MAIL-ZIP-CODE-AREA. DTSIS1E 00116 15 MAP-MAIL-ZIP-CODE-L PIC S9(04) COMP. DTSIS1E 00117 15 MAP-MAIL-ZIP-CODE-A PIC X(01). DTSIS1E 00118 15 MAP-MAIL-ZIP-CODE PIC X(10). DTSIS1E 00119 DTSIS1E 00120 10 MAP-LOC-STATE-AREA. DTSIS1E 00121 15 MAP-LOC-STATE-L PIC S9(04) COMP. DTSIS1E 00122 15 MAP-LOC-STATE-A PIC X(01). DTSIS1E 00123 15 MAP-LOC-STATE PIC X(02). DTSIS1E 00124 DTSIS1E 00125 10 MAP-LOC-ZIP-CODE-AREA. DTSIS1E 00126 15 MAP-LOC-ZIP-CODE-L PIC S9(04) COMP. DTSIS1E 00127 15 MAP-LOC-ZIP-CODE-A PIC X(01). DTSIS1E 00128 15 MAP-LOC-ZIP-CODE PIC X(10). DTSIS1E 00129 SKIP3 DTSIS1E 00130 10 MAP-MAIL-FRGN-ADDR-AREA. DTSIS1E 00131 15 MAP-MAIL-FRGN-ADDR-L PIC S9(04) COMP. DTSIS1E 00132 15 MAP-MAIL-FRGN-ADDR-A PIC X(01). DTSIS1E 00133 15 MAP-MAIL-FRGN-ADDR PIC X(33). DTSIS1E 00134 DTSIS1E 00135 10 MAP-LOC-FRGN-ADDR-AREA. DTSIS1E 00136 15 MAP-LOC-FRGN-ADDR-L PIC S9(04) COMP. DTSIS1E 00137 15 MAP-LOC-FRGN-ADDR-A PIC X(01). DTSIS1E 00138 15 MAP-LOC-FRGN-ADDR PIC X(33). DTSIS1E 00139 SKIP3 DTSIS1E 00140 10 MAP-PHONE-NUM-AREA. DTSIS1E 00141 15 MAP-PHONE-NUM-AREA-CD-AREA. DTSIS1E 00142 20 MAP-PHONE-NUM-AREA-CD-L PIC S9(04) COMP. DTSIS1E 00143 20 MAP-PHONE-NUM-AREA-CD-A PIC X(01). DTSIS1E 00144 20 MAP-PHONE-NUM-AREA-CD PIC X(03). DTSIS1E 00145 15 MAP-PHONE-NUM-PREFIX-AREA. DTSIS1E 00146 20 MAP-PHONE-NUM-PREFIX-L PIC S9(04) COMP. DTSIS1E 00147 20 MAP-PHONE-NUM-PREFIX-A PIC X(01). DTSIS1E 00148 20 MAP-PHONE-NUM-PREFIX PIC X(03). DTSIS1E 00149 15 MAP-PHONE-NUM-SUFFIX-AREA. DTSIS1E 00150 20 MAP-PHONE-NUM-SUFFIX-L PIC S9(04) COMP. DTSIS1E 00151 20 MAP-PHONE-NUM-SUFFIX-A PIC X(01). DTSIS1E 00152 20 MAP-PHONE-NUM-SUFFIX PIC X(04). DTSIS1E 00153 SKIP3 DTSIS1E 00154 10 MAP-ORG-TYPE-AREA. DTSIS1E 00155 15 MAP-ORG-TYPE-L PIC S9(04) COMP. DTSIS1E 00156 15 MAP-ORG-TYPE-A PIC X(01). DTSIS1E 00157 15 MAP-ORG-TYPE PIC X(01). DTSIS1E 00158 88 MAP-ORG-TYPE-DEFAULT-88 VALUE 'O'. DTSIS1E 00159 88 MAP-ORG-TYPE-VALID-88 VALUE 'I' DTSIS1E 00160 'P' 'L' 'F' 'C' 'O' 'N' 'T' '1' '2' DTSIS1E 00161 '3' '4' 'S'. DTSIS1E 00162 DTSIS1E 00163 10 MAP-CNTY-CODE-AREA. DTSIS1E 00164 15 MAP-CNTY-CODE-L PIC S9(04) COMP. DTSIS1E 00165 15 MAP-CNTY-CODE-A PIC X(01). DTSIS1E 00166 15 MAP-CNTY-CODE PIC 9(02). DTSIS1E 00167 88 MAP-CNTY-CODE-DEFAULT-88 VALUE 00. DTSIS1E 00168 88 MAP-CNTY-CODE-VALID-88 VALUE 00 DTSIS1E 00169 THRU DTSIS1E 00170 56. DTSIS1E 00171 15 MAP-CNTY-CODE-X DTSIS1E 00172 REDEFINES MAP-CNTY-CODE DTSIS1E 00173 PIC X(02). DTSIS1E 00174 DTSIS1E 00175 10 MAP-SSN-AREA. DTSIS1E 00176 15 MAP-SSN-1-AREA. DTSIS1E 00177 20 MAP-SSN-1-L PIC S9(04) COMP. DTSIS1E 00178 20 MAP-SSN-1-A PIC X(01). DTSIS1E 00179 20 MAP-SSN-1 PIC X(03). DTSIS1E 00180 15 MAP-SSN-2-AREA. DTSIS1E 00181 20 MAP-SSN-2-L PIC S9(04) COMP. DTSIS1E 00182 20 MAP-SSN-2-A PIC X(01). DTSIS1E 00183 20 MAP-SSN-2 PIC X(02). DTSIS1E 00184 15 MAP-SSN-3-AREA. DTSIS1E 00185 20 MAP-SSN-3-L PIC S9(04) COMP. DTSIS1E 00186 20 MAP-SSN-3-A PIC X(01). DTSIS1E 00187 20 MAP-SSN-3 PIC X(04). DTSIS1E 00188 DTSIS1E 00189 10 MAP-INDST-CODE-AREA. DTSIS1E 00190 15 MAP-INDST-CODE-L PIC S9(04) COMP. DTSIS1E 00191 15 MAP-INDST-CODE-A PIC X(01). DTSIS1E 00192 15 MAP-INDST-CODE PIC X(07). DTSIS1E 00193 88 MAP-INDST-CODE-DEFAULT-88 VALUE '5990 '. DTSIS1E 00194 SKIP3 DTSIS1E 00195 10 MAP-WH-ACTIVE-IND-AREA. DTSIS1E 00196 15 MAP-WH-ACTIVE-IND-L PIC S9(04) COMP. DTSIS1E 00197 15 MAP-WH-ACTIVE-IND-A PIC X(01). DTSIS1E 00198 15 MAP-WH-ACTIVE-IND PIC X(01). DTSIS1E 00199 88 MAP-WH-ACTIVE-NO-88 VALUE 'N'. DTSIS1E 00200 88 MAP-WH-ACTIVE-YES-88 VALUE 'Y'. DTSIS1E 00201 DTSIS1E 00202 10 MAP-WH-FIRST-ACTV-YRM-AREA. DTSIS1E 00203 15 MAP-WH-FIRST-ACTV-YR-AREA. DTSIS1E 00204 20 MAP-WH-FIRST-ACTV-YR-L PIC S9(04) COMP. DTSIS1E 00205 20 MAP-WH-FIRST-ACTV-YR-A PIC X(01). DTSIS1E 00206 20 MAP-WH-FIRST-ACTV-YR PIC X(02). DTSIS1E 00207 15 MAP-WH-FIRST-ACTV-MTH-AREA. DTSIS1E 00208 20 MAP-WH-FIRST-ACTV-MTH-L PIC S9(04) COMP. DTSIS1E 00209 20 MAP-WH-FIRST-ACTV-MTH-A PIC X(01). DTSIS1E 00210 20 MAP-WH-FIRST-ACTV-MTH PIC X(02). DTSIS1E 00211 DTSIS1E 00212 10 MAP-FILER-TYPE-AREA. DTSIS1E 00213 15 MAP-FILER-TYPE-L PIC S9(04) COMP. DTSIS1E 00214 15 MAP-FILER-TYPE-A PIC X(01). DTSIS1E 00215 15 MAP-FILER-TYPE PIC X(01). DTSIS1E 00216 DTSIS1E 00217 *********10 MAP-PACKET-PRT-IND-AREA. DTSIS1E 00218 *************15 MAP-PACKET-PRT-IND-L PIC S9(04) COMP. DTSIS1E 00219 *************15 MAP-PACKET-PRT-IND-A PIC X(01). DTSIS1E 00220 *************15 MAP-PACKET-PRT-IND PIC X(01). DTSIS1E 00221 *****************88 MAP-PACKET-PRT-NO-88 VALUE 'N'. DTSIS1E 00222 *****************88 MAP-PACKET-PRT-YES-88 VALUE 'Y'. DTSIS1E 00223 SKIP3 DTSIS1E 00224 10 MAP-OFLT-ACTIVE-IND-AREA. DTSIS1E 00225 15 MAP-OFLT-ACTIVE-IND-L PIC S9(04) COMP. DTSIS1E 00226 15 MAP-OFLT-ACTIVE-IND-A PIC X(01). DTSIS1E 00227 15 MAP-OFLT-ACTIVE-IND PIC X(01). DTSIS1E 00228 88 MAP-OFLT-ACTIVE-NO-88 VALUE 'N'. DTSIS1E 00229 88 MAP-OFLT-ACTIVE-YES-88 VALUE 'Y'. DTSIS1E 00230 DTSIS1E 00231 10 MAP-OFLT-FIRST-ACTV-YRM-AREA. DTSIS1E 00232 15 MAP-OFLT-FIRST-ACTV-YR-AREA. DTSIS1E 00233 20 MAP-OFLT-FIRST-ACTV-YR-L PIC S9(04) COMP. DTSIS1E 00234 20 MAP-OFLT-FIRST-ACTV-YR-A PIC X(01). DTSIS1E 00235 20 MAP-OFLT-FIRST-ACTV-YR PIC X(02). DTSIS1E 00236 15 MAP-OFLT-FIRST-ACTV-MTH-AREA. DTSIS1E 00237 20 MAP-OFLT-FIRST-ACTV-MTH-L PIC S9(04) COMP. DTSIS1E 00238 20 MAP-OFLT-FIRST-ACTV-MTH-A PIC X(01). DTSIS1E 00239 20 MAP-OFLT-FIRST-ACTV-MTH PIC X(02). DTSIS1E 00240 SKIP3 DTSIS1E 00241 *********10 MAP-PACKET-PRT-CNT-AREA. DTSIS1E 00242 *************15 MAP-PACKET-PRT-CNT-L PIC S9(04) COMP. DTSIS1E 00243 *************15 MAP-PACKET-PRT-CNT-A PIC X(01). DTSIS1E 00244 *************15 MAP-PACKET-PRT-CNT PIC X(02). DTSIS1E 00245 *************15 MAP-PACKET-PRT-CNT-Z DTSIS1E 00246 *****************REDEFINES MAP-PACKET-PRT-CNT DTSIS1E 00247 ****************************************PIC Z9. DTSIS1E 00248 SKIP3 DTSIS1E 00249 10 MAP-CANC-DATE-AREA. DTSIS1E 00250 15 MAP-CANC-MM-AREA. DTSIS1E 00251 20 MAP-CANC-MM-L PIC S9(04) COMP. DTSIS1E 00252 20 MAP-CANC-MM-A PIC X(01). DTSIS1E 00253 20 MAP-CANC-MM PIC X(02). DTSIS1E 00254 15 MAP-CANC-DD-AREA. DTSIS1E 00255 20 MAP-CANC-DD-L PIC S9(04) COMP. DTSIS1E 00256 20 MAP-CANC-DD-A PIC X(01). DTSIS1E 00257 20 MAP-CANC-DD PIC X(02). DTSIS1E 00258 15 MAP-CANC-YY-AREA. DTSIS1E 00259 20 MAP-CANC-YY-L PIC S9(04) COMP. DTSIS1E 00260 20 MAP-CANC-YY-A PIC X(01). DTSIS1E 00261 20 MAP-CANC-YY PIC X(02). DTSIS1E 00262 DTSIS1E 00263 10 MAP-REOPN-DATE-AREA. DTSIS1E 00264 15 MAP-REOPN-MM-AREA. DTSIS1E 00265 20 MAP-REOPN-MM-L PIC S9(04) COMP. DTSIS1E 00266 20 MAP-REOPN-MM-A PIC X(01). DTSIS1E 00267 20 MAP-REOPN-MM PIC X(02). DTSIS1E 00268 15 MAP-REOPN-DD-AREA. DTSIS1E 00269 20 MAP-REOPN-DD-L PIC S9(04) COMP. DTSIS1E 00270 20 MAP-REOPN-DD-A PIC X(01). DTSIS1E 00271 20 MAP-REOPN-DD PIC X(02). DTSIS1E 00272 15 MAP-REOPN-YY-AREA. DTSIS1E 00273 20 MAP-REOPN-YY-L PIC S9(04) COMP. DTSIS1E 00274 20 MAP-REOPN-YY-A PIC X(01). DTSIS1E 00275 20 MAP-REOPN-YY PIC X(02). DTSIS1E 00276 DTSIS1E 00277 *********10 MAP-PACKET-PRT-AUDIT-CODE-AREA. DTSIS1E 00278 *************15 MAP-PACKET-PRT-AUDIT-CODE-L PIC S9(04) COMP. DTSIS1E 00279 *************15 MAP-PACKET-PRT-AUDIT-CODE-A PIC X(01). DTSIS1E 00280 *************15 MAP-PACKET-PRT-AUDIT-CODE PIC X(04). DTSIS1E 00281 SKIP3 DTSIS1E 00282 *********10 MAP-PACKET-YEAR-AREA. DTSIS1E 00283 *************15 MAP-PACKET-YEAR-L PIC S9(04) COMP. DTSIS1E 00284 *************15 MAP-PACKET-YEAR-A PIC X(01). DTSIS1E 00285 *************15 MAP-PACKET-YEAR PIC X(02). DTSIS1E 00286 *************15 MAP-PACKET-YEAR-9 DTSIS1E 00287 *****************REDEFINES MAP-PACKET-YEAR DTSIS1E 00288 ****************************************PIC 9(02). DTSIS1E 00289 SKIP3 DTSIS1E 00290 10 MAP-AUDIT-CODE-AREA. DTSIS1E 00291 15 MAP-AUDIT-CODE-L PIC S9(04) COMP. DTSIS1E 00292 15 MAP-AUDIT-CODE-A PIC X(01). DTSIS1E 00293 15 MAP-AUDIT-CODE PIC X(04). DTSIS1E 00294 DTSIS1E 00295 *********10 MAP-AUDIT-AGY-AREA. DTSIS1E 00296 *************15 MAP-AUDIT-AGY-L PIC S9(04) COMP. DTSIS1E 00297 *************15 MAP-AUDIT-AGY-A PIC X(01). DTSIS1E 00298 *************15 MAP-AUDIT-AGY PIC X(02). DTSIS1E 00299 DTSIS1E 00300 10 MAP-AUDIT-DATE-AREA. DTSIS1E 00301 15 MAP-AUDIT-DATE-L PIC S9(04) COMP. DTSIS1E 00302 15 MAP-AUDIT-DATE-A PIC X(01). DTSIS1E 00303 15 MAP-AUDIT-DATE PIC X(08). DTSIS1E 00304 DTSIS1E 00305 10 MAP-PACKET-PRT-DATE-AREA. DTSIS1E 00306 15 MAP-PACKET-PRT-DATE-L PIC S9(04) COMP. DTSIS1E 00307 15 MAP-PACKET-PRT-DATE-A PIC X(01). DTSIS1E 00308 15 MAP-PACKET-PRT-DATE PIC X(08). DTSIS1E 00309 SKIP3 DTSIS1E 00310 10 MAP-KEY-ADD-AREA. DTSIS1E 00311 15 MAP-KEY-ADD-L PIC S9(04) COMP. DTSIS1E 00312 15 MAP-KEY-ADD-A PIC X(01). DTSIS1E 00313 15 MAP-KEY-ADD PIC X(07). DTSIS1E 00314 DTSIS1E 00315 10 MAP-KEY-MOD-AREA. DTSIS1E 00316 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS1E 00317 15 MAP-KEY-MOD-A PIC X(01). DTSIS1E 00318 15 MAP-KEY-MOD PIC X(07). DTSIS1E 00319 DTSIS1E 00320 10 MAP-KEY-ADD-CONNECT-AREA. DTSIS1E 00321 15 MAP-KEY-ADD-CONNECT-L PIC S9(04) COMP. DTSIS1E 00322 15 MAP-KEY-ADD-CONNECT-A PIC X(01). DTSIS1E 00323 15 MAP-KEY-ADD-CONNECT PIC X(15). DTSIS1E 00324 DTSIS1E 00325 10 MAP-KEY-MOD-CONNECT-AREA. DTSIS1E 00326 15 MAP-KEY-MOD-CONNECT-L PIC S9(04) COMP. DTSIS1E 00327 15 MAP-KEY-MOD-CONNECT-A PIC X(01). DTSIS1E 00328 15 MAP-KEY-MOD-CONNECT PIC X(15). DTSIS1E 00329 DTSIS1E 00330 10 MAP-KEY-DISCONNECT-AREA. DTSIS1E 00331 15 MAP-KEY-DISCONNECT-L PIC S9(04) COMP. DTSIS1E 00332 15 MAP-KEY-DISCONNECT-A PIC X(01). DTSIS1E 00333 15 MAP-KEY-DISCONNECT PIC X(14). DTSIS1E 00334 SKIP3 DTSIS1E 00335 10 MAP-MSG-AREA. DTSIS1E 00336 15 MAP-MSG-ID-AREA. DTSIS1E 00337 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS1E 00338 20 MAP-MSG-ID-A PIC X(01). DTSIS1E 00339 20 MAP-MSG-ID PIC X(08). DTSIS1E 00340 15 MAP-MSG-TEXT-AREA. DTSIS1E 00341 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS1E 00342 20 MAP-MSG-TEXT-A PIC X(01). DTSIS1E 00343 20 MAP-MSG-TEXT PIC X(58). DTSIS1E 00344 DTSIS1E 00345 10 MAP-GOTO-AREA. DTSIS1E 00346 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS1E 00347 15 MAP-GOTO-A PIC X(01). DTSIS1E 00348 15 MAP-GOTO PIC X(02). DTSIS1E