00001 ***** 05/22/01 00002 * DTSISL5 00003 * DTSISL5 ELECTRONIC FILER INQUIRY/UPDATE LV001 00004 * SEND/RECEIVE AREA. DTSISL5 00005 * DTSISL5 00006 ***** DTSISL5 00007 DTSISL5 00008 10 FILLER PIC X(12). DTSISL5 00009 DTSISL5 00010 10 MAP-SCR-TYPE-AREA. DTSISL5 00011 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSISL5 00012 15 MAP-SCR-TYPE-A PIC X(01). DTSISL5 00013 15 MAP-SCR-TYPE PIC X(02). DTSISL5 00014 DTSISL5 00015 10 MAP-CICS-REGION-NAME-AREA. DTSISL5 00016 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSISL5 00017 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSISL5 00018 15 MAP-CICS-REGION-NAME PIC X(08). DTSISL5 00019 DTSISL5 00020 10 MAP-SYS-DATE-AREA. DTSISL5 00021 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSISL5 00022 15 MAP-SYS-DATE-A PIC X(01). DTSISL5 00023 15 MAP-SYS-DATE PIC X(08). DTSISL5 00024 DTSISL5 00025 10 MAP-ELF-ID-AREA. DTSISL5 00026 15 MAP-ELF-ID-1-AREA. DTSISL5 00027 20 MAP-ELF-ID-1-L PIC S9(04) COMP. DTSISL5 00028 20 MAP-ELF-ID-1-A PIC X(01). DTSISL5 00029 20 MAP-ELF-ID-1 PIC X(03). DTSISL5 00030 88 ELF-ID-EXTERNAL-88 VALUE '003'. DTSISL5 00031 88 ELF-ID-BLANK-88 VALUE ' '. DTSISL5 00032 20 MAP-ELF-ID-1-N REDEFINES MAP-ELF-ID-1 DTSISL5 00033 PIC 9(03). DTSISL5 00034 15 MAP-ELF-ID-2-AREA. DTSISL5 00035 20 MAP-ELF-ID-2-L PIC S9(04) COMP. DTSISL5 00036 20 MAP-ELF-ID-2-A PIC X(01). DTSISL5 00037 20 MAP-ELF-ID-2 PIC X(03). DTSISL5 00038 20 MAP-ELF-ID-2-N REDEFINES MAP-ELF-ID-2 DTSISL5 00039 PIC 9(03). DTSISL5 00040 DTSISL5 00041 10 MAP-ELF-NAME-AREA. DTSISL5 00042 15 MAP-ELF-NAME-L PIC S9(04) COMP. DTSISL5 00043 15 MAP-ELF-NAME-A PIC X(01). DTSISL5 00044 15 MAP-ELF-NAME PIC X(40). DTSISL5 00045 DTSISL5 00046 10 MAP-SYS-TIME-AREA. DTSISL5 00047 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSISL5 00048 15 MAP-SYS-TIME-A PIC X(01). DTSISL5 00049 15 MAP-SYS-TIME PIC X(08). DTSISL5 00050 DTSISL5 00051 10 MAP-DATA-TYPE-CD-AREA. DTSISL5 00052 15 MAP-DATA-TYPE-CD-L PIC S9(04) COMP. DTSISL5 00053 15 MAP-DATA-TYPE-CD-A PIC X(01). DTSISL5 00054 15 MAP-DATA-TYPE-CD PIC X(02). DTSISL5 00055 88 MAP-PRT-UC30-88 VALUE '01'. DTSISL5 00056 88 MAP-BEN-CHARGE-88 VALUE '02'. DTSISL5 00057 88 MAP-WAGE-88 VALUE '03'. DTSISL5 00058 88 MAP-WAGE-TAX-88 VALUE '04'. DTSISL5 00059 88 MAP-DATA-TYPE-WAGE-88 DTSISL5 00060 VALUE '03' '04'. DTSISL5 00061 88 MAP-DATA-TYPE-VALID-88 VALUE '01' '02' DTSISL5 00062 '03' '04'. DTSISL5 00063 DTSISL5 00064 10 MAP-DATA-TYPE-NAME-AREA. DTSISL5 00065 15 MAP-DATA-TYPE-NAME-L PIC S9(04) COMP. DTSISL5 00066 15 MAP-DATA-TYPE-NAME-A PIC X(01). DTSISL5 00067 15 MAP-DATA-TYPE-NAME PIC X(40). DTSISL5 00068 DTSISL5 00069 10 MAP-MEDIUM-TYPE-CD-AREA. DTSISL5 00070 15 MAP-MEDIUM-TYPE-CD-L PIC S9(04) COMP. DTSISL5 00071 15 MAP-MEDIUM-TYPE-CD-A PIC X(01). DTSISL5 00072 15 MAP-MEDIUM-TYPE-CD PIC X(02). DTSISL5 00073 88 MAP-CARTRIDGE-SL-88 VALUE 'CS'. DTSISL5 00074 88 MAP-CARTRIDGE-NL-88 VALUE 'CN'. DTSISL5 00075 88 MAP-REEL-SL-88 VALUE 'RS'. DTSISL5 00076 88 MAP-REEL-NL-88 VALUE 'RN'. DTSISL5 00077 88 MAP-DISKETTE-88 VALUE 'DK'. DTSISL5 00078 88 MAP-EMAIL-88 VALUE 'EM'. DTSISL5 00079 88 MAP-FTP-88 VALUE 'FT'. DTSISL5 00080 88 MAP-WEB-88 VALUE 'WB'. DTSISL5 00081 88 MAP-IVR-88 VALUE 'VR'. DTSISL5 00082 88 MAP-MEDIUM-TYPE-VALID-88 VALUE 'CS' DTSISL5 00083 'CN' 'RS' 'RN' 'DK' 'EM' 'FT' 'WB' 'VR'. DTSISL5 00084 DTSISL5 00085 10 MAP-MEDIUM-TYPE-NAME-AREA. DTSISL5 00086 15 MAP-MEDIUM-TYPE-NAME-L PIC S9(04) COMP. DTSISL5 00087 15 MAP-MEDIUM-TYPE-NAME-A PIC X(01). DTSISL5 00088 15 MAP-MEDIUM-TYPE-NAME PIC X(10). DTSISL5 00089 DTSISL5 00090 10 MAP-FORMAT-TYPE-CD-AREA. DTSISL5 00091 15 MAP-FORMAT-TYPE-CD-L PIC S9(04) COMP. DTSISL5 00092 15 MAP-FORMAT-TYPE-CD-A PIC X(01). DTSISL5 00093 15 MAP-FORMAT-TYPE-CD PIC X(03). DTSISL5 00094 88 MAP-FORMAT-DC-REG-88 VALUE 'DCR'. DTSISL5 00095 88 MAP-FORMAT-DC-GOV-88 VALUE 'DCG'. DTSISL5 00096 88 MAP-FORMAT-ICESA275-88 VALUE 'IC5'. DTSISL5 00097 88 MAP-FORMAT-ICESA276-88 VALUE 'IC6'. DTSISL5 00098 88 MAP-FORMAT-INAPP-88 VALUE SPACES. DTSISL5 00099 88 MAP-FORMAT-TYPE-VALID-88 VALUE ' ' DTSISL5 00100 'DCR' 'DCG' 'IC5' 'IC6'. DTSISL5 00101 10 MAP-FORMAT-TYPE-NAME-AREA. DTSISL5 00102 15 MAP-FORMAT-TYPE-NAME-L PIC S9(04) COMP. DTSISL5 00103 15 MAP-FORMAT-TYPE-NAME-A PIC X(01). DTSISL5 00104 15 MAP-FORMAT-TYPE-NAME PIC X(10). DTSISL5 00105 DTSISL5 00106 10 MAP-JOB-NAME-AREA. DTSISL5 00107 15 MAP-JOB-NAME-L PIC S9(04) COMP. DTSISL5 00108 15 MAP-JOB-NAME-A PIC X(01). DTSISL5 00109 15 MAP-JOB-NAME PIC X(08). DTSISL5 00110 DTSISL5 00111 10 MAP-FORMAT-NOTES-AREA. DTSISL5 00112 15 MAP-FORMAT-NOTES-L PIC S9(04) COMP. DTSISL5 00113 15 MAP-FORMAT-NOTES-A PIC X(01). DTSISL5 00114 15 MAP-FORMAT-NOTES PIC X(60). DTSISL5 00115 DTSISL5 00116 10 MAP-BUSN-CONTACT-NAME-AREA. DTSISL5 00117 15 MAP-BUSN-CONTACT-NAME-L PIC S9(04) COMP. DTSISL5 00118 15 MAP-BUSN-CONTACT-NAME-A PIC X(01). DTSISL5 00119 15 MAP-BUSN-CONTACT-NAME PIC X(32). DTSISL5 00120 DTSISL5 00121 10 MAP-BUSN-CONTACT-PHONE-AREA. DTSISL5 00122 15 MAP-BUSN-VOICE-AREA-CD-AREA. DTSISL5 00123 20 MAP-BUSN-VOICE-AREA-CD-L PIC S9(04) COMP. DTSISL5 00124 20 MAP-BUSN-VOICE-AREA-CD-A PIC X(01). DTSISL5 00125 20 MAP-BUSN-VOICE-AREA-CD PIC X(03). DTSISL5 00126 15 MAP-BUSN-VOICE-PREF-AREA. DTSISL5 00127 20 MAP-BUSN-VOICE-PREFIX-L PIC S9(04) COMP. DTSISL5 00128 20 MAP-BUSN-VOICE-PREFIX-A PIC X(01). DTSISL5 00129 20 MAP-BUSN-VOICE-PREFIX PIC X(03). DTSISL5 00130 15 MAP-BUSN-VOICE-SUFFIX-AREA. DTSISL5 00131 20 MAP-BUSN-VOICE-SUFFIX-L PIC S9(04) COMP. DTSISL5 00132 20 MAP-BUSN-VOICE-SUFFIX-A PIC X(01). DTSISL5 00133 20 MAP-BUSN-VOICE-SUFFIX PIC X(04). DTSISL5 00134 15 MAP-BUSN-VOICE-EXT-AREA. DTSISL5 00135 20 MAP-BUSN-VOICE-EXT-L PIC S9(04) COMP. DTSISL5 00136 20 MAP-BUSN-VOICE-EXT-A PIC X(01). DTSISL5 00137 20 MAP-BUSN-VOICE-EXT PIC X(05). DTSISL5 00138 DTSISL5 00139 10 MAP-BUSN-CONTACT-FAX-AREA. DTSISL5 00140 15 MAP-BUSN-FAX-AREA-CD-AREA. DTSISL5 00141 20 MAP-BUSN-FAX-AREA-CD-L PIC S9(04) COMP. DTSISL5 00142 20 MAP-BUSN-FAX-AREA-CD-A PIC X(01). DTSISL5 00143 20 MAP-BUSN-FAX-AREA-CD PIC X(03). DTSISL5 00144 15 MAP-BUSN-FAX-PREF-AREA. DTSISL5 00145 20 MAP-BUSN-FAX-PREFIX-L PIC S9(04) COMP. DTSISL5 00146 20 MAP-BUSN-FAX-PREFIX-A PIC X(01). DTSISL5 00147 20 MAP-BUSN-FAX-PREFIX PIC X(03). DTSISL5 00148 15 MAP-BUSN-FAX-SUFFIX-AREA. DTSISL5 00149 20 MAP-BUSN-FAX-SUFFIX-L PIC S9(04) COMP. DTSISL5 00150 20 MAP-BUSN-FAX-SUFFIX-A PIC X(01). DTSISL5 00151 20 MAP-BUSN-FAX-SUFFIX PIC X(04). DTSISL5 00152 DTSISL5 00153 10 MAP-BUSN-CONTACT-EMAIL-AREA. DTSISL5 00154 15 MAP-BUSN-CONTACT-EMAIL-L PIC S9(04) COMP. DTSISL5 00155 15 MAP-BUSN-CONTACT-EMAIL-A PIC X(01). DTSISL5 00156 15 MAP-BUSN-CONTACT-EMAIL PIC X(40). DTSISL5 00157 DTSISL5 00158 10 MAP-TECH-CONTACT-NAME-AREA. DTSISL5 00159 15 MAP-TECH-CONTACT-NAME-L PIC S9(04) COMP. DTSISL5 00160 15 MAP-TECH-CONTACT-NAME-A PIC X(01). DTSISL5 00161 15 MAP-TECH-CONTACT-NAME PIC X(32). DTSISL5 00162 DTSISL5 00163 10 MAP-TECH-CONTACT-PHONE-AREA. DTSISL5 00164 15 MAP-TECH-VOICE-AREA-CD-AREA. DTSISL5 00165 20 MAP-TECH-VOICE-AREA-CD-L PIC S9(04) COMP. DTSISL5 00166 20 MAP-TECH-VOICE-AREA-CD-A PIC X(01). DTSISL5 00167 20 MAP-TECH-VOICE-AREA-CD PIC X(03). DTSISL5 00168 15 MAP-TECH-VOICE-PREF-AREA. DTSISL5 00169 20 MAP-TECH-VOICE-PREFIX-L PIC S9(04) COMP. DTSISL5 00170 20 MAP-TECH-VOICE-PREFIX-A PIC X(01). DTSISL5 00171 20 MAP-TECH-VOICE-PREFIX PIC X(03). DTSISL5 00172 15 MAP-TECH-VOICE-SUFFIX-AREA. DTSISL5 00173 20 MAP-TECH-VOICE-SUFFIX-L PIC S9(04) COMP. DTSISL5 00174 20 MAP-TECH-VOICE-SUFFIX-A PIC X(01). DTSISL5 00175 20 MAP-TECH-VOICE-SUFFIX PIC X(04). DTSISL5 00176 15 MAP-TECH-VOICE-EXT-AREA. DTSISL5 00177 20 MAP-TECH-VOICE-EXT-L PIC S9(04) COMP. DTSISL5 00178 20 MAP-TECH-VOICE-EXT-A PIC X(01). DTSISL5 00179 20 MAP-TECH-VOICE-EXT PIC X(05). DTSISL5 00180 DTSISL5 00181 10 MAP-TECH-CONTACT-FAX-AREA. DTSISL5 00182 15 MAP-TECH-FAX-AREA-CD-AREA. DTSISL5 00183 20 MAP-TECH-FAX-AREA-CD-L PIC S9(04) COMP. DTSISL5 00184 20 MAP-TECH-FAX-AREA-CD-A PIC X(01). DTSISL5 00185 20 MAP-TECH-FAX-AREA-CD PIC X(03). DTSISL5 00186 15 MAP-TECH-FAX-PREF-AREA. DTSISL5 00187 20 MAP-TECH-FAX-PREFIX-L PIC S9(04) COMP. DTSISL5 00188 20 MAP-TECH-FAX-PREFIX-A PIC X(01). DTSISL5 00189 20 MAP-TECH-FAX-PREFIX PIC X(03). DTSISL5 00190 15 MAP-TECH-FAX-SUFFIX-AREA. DTSISL5 00191 20 MAP-TECH-FAX-SUFFIX-L PIC S9(04) COMP. DTSISL5 00192 20 MAP-TECH-FAX-SUFFIX-A PIC X(01). DTSISL5 00193 20 MAP-TECH-FAX-SUFFIX PIC X(04). DTSISL5 00194 DTSISL5 00195 10 MAP-TECH-CONTACT-EMAIL-AREA. DTSISL5 00196 15 MAP-TECH-CONTACT-EMAIL-L PIC S9(04) COMP. DTSISL5 00197 15 MAP-TECH-CONTACT-EMAIL-A PIC X(01). DTSISL5 00198 15 MAP-TECH-CONTACT-EMAIL PIC X(40). DTSISL5 00199 DTSISL5 00200 10 MAP-ELF-ADDR-AREA. DTSISL5 00201 15 MAP-ATTN-AREA. DTSISL5 00202 20 MAP-ATTN-LINE-L PIC S9(04) COMP. DTSISL5 00203 20 MAP-ATTN-LINE-A PIC X(01). DTSISL5 00204 20 MAP-ATTN-LINE PIC X(40). DTSISL5 00205 15 MAP-CASS-IND-AREA. DTSISL5 00206 20 MAP-CASS-IND-L PIC S9(04) COMP. DTSISL5 00207 20 MAP-CASS-IND-A PIC X(01). DTSISL5 00208 20 MAP-CASS-IND PIC X(01). DTSISL5 00209 15 MAP-DELIV-LINE-1-AREA. DTSISL5 00210 20 MAP-DELIV-LINE-1-L PIC S9(04) COMP. DTSISL5 00211 20 MAP-DELIV-LINE-1-A PIC X(01). DTSISL5 00212 20 MAP-DELIV-LINE-1 PIC X(40). DTSISL5 00213 15 MAP-DELIV-LINE-2-AREA. DTSISL5 00214 20 MAP-DELIV-LINE-2-L PIC S9(04) COMP. DTSISL5 00215 20 MAP-DELIV-LINE-2-A PIC X(01). DTSISL5 00216 20 MAP-DELIV-LINE-2 PIC X(40). DTSISL5 00217 15 MAP-CASS-CD-AREA. DTSISL5 00218 20 MAP-CASS-CD-L PIC S9(04) COMP. DTSISL5 00219 20 MAP-CASS-CD-A PIC X(01). DTSISL5 00220 20 MAP-CASS-CD PIC X(25). DTSISL5 00221 15 MAP-CITY-AREA. DTSISL5 00222 20 MAP-CITY-L PIC S9(04) COMP. DTSISL5 00223 20 MAP-CITY-A PIC X(01). DTSISL5 00224 20 MAP-CITY PIC X(25). DTSISL5 00225 15 MAP-STATE-AREA. DTSISL5 00226 20 MAP-STATE-L PIC S9(04) COMP. DTSISL5 00227 20 MAP-STATE-A PIC X(01). DTSISL5 00228 20 MAP-STATE PIC X(02). DTSISL5 00229 15 MAP-ZIP-AREA. DTSISL5 00230 20 MAP-ZIP-L PIC S9(04) COMP. DTSISL5 00231 20 MAP-ZIP-A PIC X(01). DTSISL5 00232 20 MAP-ZIP PIC X(10). DTSISL5 00233 DTSISL5 00234 10 MAP-ESTB-DATE-AREA. DTSISL5 00235 15 MAP-ESTB-MO-AREA. DTSISL5 00236 20 MAP-ESTB-MO-L PIC S9(04) COMP. DTSISL5 00237 20 MAP-ESTB-MO-A PIC X(01). DTSISL5 00238 20 MAP-ESTB-MO PIC X(02). DTSISL5 00239 DTSISL5 00240 15 MAP-ESTB-DA-AREA. DTSISL5 00241 20 MAP-ESTB-DA-L PIC S9(04) COMP. DTSISL5 00242 20 MAP-ESTB-DA-A PIC X(01). DTSISL5 00243 20 MAP-ESTB-DA PIC X(02). DTSISL5 00244 DTSISL5 00245 15 MAP-ESTB-YR-AREA. DTSISL5 00246 20 MAP-ESTB-YR-L PIC S9(04) COMP. DTSISL5 00247 20 MAP-ESTB-YR-A PIC X(01). DTSISL5 00248 20 MAP-ESTB-YR PIC X(02). DTSISL5 00249 DTSISL5 00250 10 MAP-CHNG-DATE-AREA. DTSISL5 00251 15 MAP-CHNG-MO-AREA. DTSISL5 00252 20 MAP-CHNG-MO-L PIC S9(04) COMP. DTSISL5 00253 20 MAP-CHNG-MO-A PIC X(01). DTSISL5 00254 20 MAP-CHNG-MO PIC X(02). DTSISL5 00255 DTSISL5 00256 15 MAP-CHNG-DA-AREA. DTSISL5 00257 20 MAP-CHNG-DA-L PIC S9(04) COMP. DTSISL5 00258 20 MAP-CHNG-DA-A PIC X(01). DTSISL5 00259 20 MAP-CHNG-DA PIC X(02). DTSISL5 00260 DTSISL5 00261 15 MAP-CHNG-YR-AREA. DTSISL5 00262 20 MAP-CHNG-YR-L PIC S9(04) COMP. DTSISL5 00263 20 MAP-CHNG-YR-A PIC X(01). DTSISL5 00264 20 MAP-CHNG-YR PIC X(02). DTSISL5 00265 DTSISL5 00266 DTSISL5 00267 10 MAP-CHNG-OPID-AREA. DTSISL5 00268 15 MAP-CHNG-OPID-L PIC S9(04) COMP. DTSISL5 00269 15 MAP-CHNG-OPID-A PIC X(01). DTSISL5 00270 15 MAP-CHNG-OPID PIC X(08). DTSISL5 00271 DTSISL5 00272 10 MAP-KEY-ADD-AREA. DTSISL5 00273 15 MAP-KEY-ADD-L PIC S9(04) COMP. DTSISL5 00274 15 MAP-KEY-ADD-A PIC X(01). DTSISL5 00275 15 MAP-KEY-ADD PIC X(06). DTSISL5 00276 DTSISL5 00277 10 MAP-KEY-MOD-AREA. DTSISL5 00278 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSISL5 00279 15 MAP-KEY-MOD-A PIC X(01). DTSISL5 00280 15 MAP-KEY-MOD PIC X(07). DTSISL5 00281 DTSISL5 00282 10 MAP-KEY-UNLK-AREA. DTSISL5 00283 15 MAP-KEY-UNLK-L PIC S9(04) COMP. DTSISL5 00284 15 MAP-KEY-UNLK-A PIC X(01). DTSISL5 00285 15 MAP-KEY-UNLK PIC X(08). DTSISL5 00286 DTSISL5 00287 10 MAP-KEY-DEL-AREA. DTSISL5 00288 15 MAP-KEY-DEL-L PIC S9(04) COMP. DTSISL5 00289 15 MAP-KEY-DEL-A PIC X(01). DTSISL5 00290 15 MAP-KEY-DEL PIC X(07). DTSISL5 00291 DTSISL5 00292 10 MAP-MSG-AREA. DTSISL5 00293 15 MAP-MSG-ID-AREA. DTSISL5 00294 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSISL5 00295 20 MAP-MSG-ID-A PIC X(01). DTSISL5 00296 20 MAP-MSG-ID PIC X(08). DTSISL5 00297 15 MAP-MSG-TEXT-AREA. DTSISL5 00298 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSISL5 00299 20 MAP-MSG-TEXT-A PIC X(01). DTSISL5 00300 20 MAP-MSG-TEXT PIC X(58). DTSISL5 00301 DTSISL5 00302 10 MAP-GOTO-AREA. DTSISL5 00303 15 MAP-GOTO-L PIC S9(04) COMP. DTSISL5 00304 15 MAP-GOTO-A PIC X(01). DTSISL5 00305 15 MAP-GOTO PIC X(02). DTSISL5