00001 ***** 07/18/00 00002 * DTSIS88 00003 * DTSIS88 FISCAL AGENT INQUIRY/UPDATE LV001 00004 * SEND/RECEIVE AREA. DTSIS88 00005 * DTSIS88 00006 ***** DTSIS88 00007 DTSIS88 00008 10 FILLER PIC X(12). DTSIS88 00009 DTSIS88 00010 10 MAP-SCR-TYPE-AREA. DTSIS88 00011 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS88 00012 15 MAP-SCR-TYPE-A PIC X(01). DTSIS88 00013 15 MAP-SCR-TYPE PIC X(02). DTSIS88 00014 DTSIS88 00015 10 MAP-CICS-REGION-NAME-AREA. DTSIS88 00016 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS88 00017 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS88 00018 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS88 00019 DTSIS88 00020 10 MAP-SYS-DATE-AREA. DTSIS88 00021 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS88 00022 15 MAP-SYS-DATE-A PIC X(01). DTSIS88 00023 15 MAP-SYS-DATE PIC X(08). DTSIS88 00024 ***** DTSIS88 00025 10 MAP-FISC-AGNT-CD-AREA. DTSIS88 00026 15 MAP-FISC-AGNT-CD-L PIC S9(04) COMP. DTSIS88 00027 15 MAP-FISC-AGNT-CD-A PIC X(01). DTSIS88 00028 15 MAP-FISC-AGNT-CD PIC X(03). DTSIS88 00029 DTSIS88 00030 10 MAP-FISC-AGNT-NAME-AREA. DTSIS88 00031 15 MAP-FISC-AGNT-NAME-L PIC S9(04) COMP. DTSIS88 00032 15 MAP-FISC-AGNT-NAME-A PIC X(01). DTSIS88 00033 15 MAP-FISC-AGNT-NAME PIC X(40). DTSIS88 00034 DTSIS88 00035 10 MAP-SYS-TIME-AREA. DTSIS88 00036 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS88 00037 15 MAP-SYS-TIME-A PIC X(01). DTSIS88 00038 15 MAP-SYS-TIME PIC X(08). DTSIS88 00039 DTSIS88 00040 10 MAP-FISC-AGNT-SRVC-AREA. DTSIS88 00041 15 MAP-FISC-AGNT-SRVC-L PIC S9(04) COMP.DTSIS88 00042 15 MAP-FISC-AGNT-SRVC-A PIC X(01). DTSIS88 00043 15 MAP-FISC-AGNT-SRVC PIC X(02). DTSIS88 00044 88 MAP-SERVICE-UC30-88 VALUE '01'. DTSIS88 00045 88 MAP-SERVICE-BEN-CHG-88 VALUE '02'. DTSIS88 00046 88 MAP-SERVICE-CORRESPOND-88 VALUE '03'. DTSIS88 00047 88 MAP-SERVICE-VALID-88 VALUE '01' '02' DTSIS88 00048 '03'. DTSIS88 00049 DTSIS88 00050 10 MAP-FISC-AGNT-SRVC-DESC-AREA. DTSIS88 00051 15 MAP-FISC-AGNT-SRVC-DESC-L PIC S9(04) COMP.DTSIS88 00052 15 MAP-FISC-AGNT-SRVC-DESC-A PIC X(01). DTSIS88 00053 15 MAP-FISC-AGNT-SRVC-DESC PIC X(15). DTSIS88 00054 88 MAP-SERVICE-UC30-DESC-88 DTSIS88 00055 VALUE 'UC30 '. DTSIS88 00056 88 MAP-SERVICE-BEN-CHG-DESC-88 DTSIS88 00057 VALUE 'BENEFIT CHARGES'. DTSIS88 00058 88 MAP-SERVICE-CORRESPOND-DESC-88 DTSIS88 00059 VALUE 'ADDR OF RECORD '. DTSIS88 00060 DTSIS88 00061 10 MAP-BUSINESS-CONTACT-NAME-AREA. DTSIS88 00062 15 MAP-BUSINESS-NAME-L PIC S9(04) COMP. DTSIS88 00063 15 MAP-BUSINESS-NAME-A PIC X(01). DTSIS88 00064 15 MAP-BUSINESS-NAME PIC X(32). DTSIS88 00065 DTSIS88 00066 10 MAP-BUSINESS-VOICE-AREA. DTSIS88 00067 15 MAP-BUSINESS-VOICE-A-CD-AREA. DTSIS88 00068 20 MAP-BUSINESS-VOICE-A-CD-L PIC S9(04) COMP. DTSIS88 00069 20 MAP-BUSINESS-VOICE-A-CD-A PIC X(01). DTSIS88 00070 20 MAP-BUSINESS-VOICE-A-CD PIC X(03). DTSIS88 00071 15 MAP-BUSINESS-VOICE-PREF-AREA. DTSIS88 00072 20 MAP-BUSINESS-VOICE-PREF-L PIC S9(04) COMP. DTSIS88 00073 20 MAP-BUSINESS-VOICE-PREF-A PIC X(01). DTSIS88 00074 20 MAP-BUSINESS-VOICE-PREF PIC X(03). DTSIS88 00075 15 MAP-BUSINESS-VOICE-SUFF-AREA. DTSIS88 00076 20 MAP-BUSINESS-VOICE-SUFF-L PIC S9(04) COMP. DTSIS88 00077 20 MAP-BUSINESS-VOICE-SUFF-A PIC X(01). DTSIS88 00078 20 MAP-BUSINESS-VOICE-SUFF PIC X(04). DTSIS88 00079 15 MAP-BUSINESS-VOICE-EXT-AREA. DTSIS88 00080 20 MAP-BUSINESS-VOICE-EXT-L PIC S9(04) COMP. DTSIS88 00081 20 MAP-BUSINESS-VOICE-EXT-A PIC X(01). DTSIS88 00082 20 MAP-BUSINESS-VOICE-EXT PIC X(05). DTSIS88 00083 DTSIS88 00084 10 MAP-BUSINESS-FAX-AREA. DTSIS88 00085 15 MAP-BUSINESS-FAX-A-CD-AREA. DTSIS88 00086 20 MAP-BUSINESS-FAX-A-CD-L PIC S9(04) COMP. DTSIS88 00087 20 MAP-BUSINESS-FAX-A-CD-A PIC X(01). DTSIS88 00088 20 MAP-BUSINESS-FAX-A-CD PIC X(03). DTSIS88 00089 15 MAP-BUSINESS-FAX-PREF-AREA. DTSIS88 00090 20 MAP-BUSINESS-FAX-PREF-L PIC S9(04) COMP. DTSIS88 00091 20 MAP-BUSINESS-FAX-PREF-A PIC X(01). DTSIS88 00092 20 MAP-BUSINESS-FAX-PREF PIC X(03). DTSIS88 00093 15 MAP-BUSINESS-FAX-SUFF-AREA. DTSIS88 00094 20 MAP-BUSINESS-FAX-SUFF-L PIC S9(04) COMP. DTSIS88 00095 20 MAP-BUSINESS-FAX-SUFF-A PIC X(01). DTSIS88 00096 20 MAP-BUSINESS-FAX-SUFF PIC X(04). DTSIS88 00097 15 MAP-BUSINESS-FAX-EXT-AREA. DTSIS88 00098 20 MAP-BUSINESS-FAX-EXT-L PIC S9(04) COMP. DTSIS88 00099 20 MAP-BUSINESS-FAX-EXT-A PIC X(01). DTSIS88 00100 20 MAP-BUSINESS-FAX-EXT PIC X(05). DTSIS88 00101 10 MAP-BUSINESS-EMAIL-AREA. DTSIS88 00102 15 MAP-BUSINESS-EMAIL-L PIC S9(04) COMP. DTSIS88 00103 15 MAP-BUSINESS-EMAIL-A PIC X(01). DTSIS88 00104 15 MAP-BUSINESS-EMAIL PIC X(40). DTSIS88 00105 DTSIS88 00106 10 MAP-MEDIA-CONTACT-NAME-AREA. DTSIS88 00107 15 MAP-MEDIA-NAME-L PIC S9(04) COMP. DTSIS88 00108 15 MAP-MEDIA-NAME-A PIC X(01). DTSIS88 00109 15 MAP-MEDIA-NAME PIC X(32). DTSIS88 00110 DTSIS88 00111 10 MAP-MEDIA-VOICE-AREA. DTSIS88 00112 15 MAP-MEDIA-VOICE-A-CD-AREA. DTSIS88 00113 20 MAP-MEDIA-VOICE-A-CD-L PIC S9(04) COMP. DTSIS88 00114 20 MAP-MEDIA-VOICE-A-CD-A PIC X(01). DTSIS88 00115 20 MAP-MEDIA-VOICE-A-CD PIC X(03). DTSIS88 00116 15 MAP-MEDIA-VOICE-PREF-AREA. DTSIS88 00117 20 MAP-MEDIA-VOICE-PREF-L PIC S9(04) COMP. DTSIS88 00118 20 MAP-MEDIA-VOICE-PREF-A PIC X(01). DTSIS88 00119 20 MAP-MEDIA-VOICE-PREF PIC X(03). DTSIS88 00120 15 MAP-MEDIA-VOICE-SUFF-AREA. DTSIS88 00121 20 MAP-MEDIA-VOICE-SUFF-L PIC S9(04) COMP. DTSIS88 00122 20 MAP-MEDIA-VOICE-SUFF-A PIC X(01). DTSIS88 00123 20 MAP-MEDIA-VOICE-SUFF PIC X(04). DTSIS88 00124 15 MAP-MEDIA-VOICE-EXT-AREA. DTSIS88 00125 20 MAP-MEDIA-VOICE-EXT-L PIC S9(04) COMP. DTSIS88 00126 20 MAP-MEDIA-VOICE-EXT-A PIC X(01). DTSIS88 00127 20 MAP-MEDIA-VOICE-EXT PIC X(05). DTSIS88 00128 DTSIS88 00129 10 MAP-MEDIA-FAX-AREA. DTSIS88 00130 15 MAP-MEDIA-FAX-A-CD-AREA. DTSIS88 00131 20 MAP-MEDIA-FAX-A-CD-L PIC S9(04) COMP. DTSIS88 00132 20 MAP-MEDIA-FAX-A-CD-A PIC X(01). DTSIS88 00133 20 MAP-MEDIA-FAX-A-CD PIC X(03). DTSIS88 00134 15 MAP-MEDIA-FAX-PREF-AREA. DTSIS88 00135 20 MAP-MEDIA-FAX-PREF-L PIC S9(04) COMP. DTSIS88 00136 20 MAP-MEDIA-FAX-PREF-A PIC X(01). DTSIS88 00137 20 MAP-MEDIA-FAX-PREF PIC X(03). DTSIS88 00138 15 MAP-MEDIA-FAX-SUFF-AREA. DTSIS88 00139 20 MAP-MEDIA-FAX-SUFF-L PIC S9(04) COMP. DTSIS88 00140 20 MAP-MEDIA-FAX-SUFF-A PIC X(01). DTSIS88 00141 20 MAP-MEDIA-FAX-SUFF PIC X(04). DTSIS88 00142 15 MAP-MEDIA-FAX-EXT-AREA. DTSIS88 00143 20 MAP-MEDIA-FAX-EXT-L PIC S9(04) COMP. DTSIS88 00144 20 MAP-MEDIA-FAX-EXT-A PIC X(01). DTSIS88 00145 20 MAP-MEDIA-FAX-EXT PIC X(05). DTSIS88 00146 DTSIS88 00147 10 MAP-MEDIA-EMAIL-AREA. DTSIS88 00148 15 MAP-MEDIA-EMAIL-L PIC S9(04) COMP. DTSIS88 00149 15 MAP-MEDIA-EMAIL-A PIC X(01). DTSIS88 00150 15 MAP-MEDIA-EMAIL PIC X(40). DTSIS88 00151 DTSIS88 00152 10 MAP-FISC-AGNT-ADDR-AREA. DTSIS88 00153 15 MAP-FISC-AGNT-ATTN-AREA. DTSIS88 00154 20 MAP-FISC-AGNT-ATTN-L PIC S9(04) COMP. DTSIS88 00155 20 MAP-FISC-AGNT-ATTN-A PIC X(01). DTSIS88 00156 20 MAP-FISC-AGNT-ATTN PIC X(40). DTSIS88 00157 15 MAP-FISC-AGNT-DLV1-AREA. DTSIS88 00158 20 MAP-FISC-AGNT-DLV1-L PIC S9(04) COMP. DTSIS88 00159 20 MAP-FISC-AGNT-DLV1-A PIC X(01). DTSIS88 00160 20 MAP-FISC-AGNT-DLV1 PIC X(40). DTSIS88 00161 15 MAP-FISC-AGNT-CASS-IND-AREA. DTSIS88 00162 20 MAP-FISC-AGNT-CASS-IND-L PIC S9(04) COMP. DTSIS88 00163 20 MAP-FISC-AGNT-CASS-IND-A PIC X(01). DTSIS88 00164 20 MAP-FISC-AGNT-CASS-IND PIC X(01). DTSIS88 00165 15 MAP-FISC-AGNT-DLV2-AREA. DTSIS88 00166 20 MAP-FISC-AGNT-DLV2-L PIC S9(04) COMP. DTSIS88 00167 20 MAP-FISC-AGNT-DLV2-A PIC X(01). DTSIS88 00168 20 MAP-FISC-AGNT-DLV2 PIC X(40). DTSIS88 00169 15 MAP-FISC-AGNT-CITY-AREA. DTSIS88 00170 20 MAP-FISC-AGNT-CITY-L PIC S9(04) COMP. DTSIS88 00171 20 MAP-FISC-AGNT-CITY-A PIC X(01). DTSIS88 00172 20 MAP-FISC-AGNT-CITY PIC X(25). DTSIS88 00173 15 MAP-FISC-AGNT-STATE-AREA. DTSIS88 00174 20 MAP-FISC-AGNT-STATE-L PIC S9(04) COMP. DTSIS88 00175 20 MAP-FISC-AGNT-STATE-A PIC X(01). DTSIS88 00176 20 MAP-FISC-AGNT-STATE PIC X(02). DTSIS88 00177 15 MAP-FISC-AGNT-ZIPC-AREA. DTSIS88 00178 20 MAP-FISC-AGNT-ZIPC-L PIC S9(04) COMP. DTSIS88 00179 20 MAP-FISC-AGNT-ZIPC-A PIC X(01). DTSIS88 00180 20 MAP-FISC-AGNT-ZIPC PIC X(10). DTSIS88 00181 15 MAP-FISC-AGNT-CASS-CD-AREA. DTSIS88 00182 20 MAP-FISC-AGNT-CASS-CD-L PIC S9(04) COMP. DTSIS88 00183 20 MAP-FISC-AGNT-CASS-CD-A PIC X(01). DTSIS88 00184 20 MAP-FISC-AGNT-CASS-CD PIC X(25). DTSIS88 00185 DTSIS88 00186 DTSIS88 00187 10 MAP-MEDIA-TYPE-CD-AREA. DTSIS88 00188 15 MAP-MEDIA-TYPE-CD-L PIC S9(04) COMP. DTSIS88 00189 15 MAP-MEDIA-TYPE-CD-A PIC X(01). DTSIS88 00190 15 MAP-MEDIA-TYPE-CD PIC X(01). DTSIS88 00191 88 MAP-MEDIA-CART-TAPE-88 VALUE 'C'. DTSIS88 00192 88 MAP-MEDIA-DISKETTE-88 VALUE 'D'. DTSIS88 00193 88 MAP-MEDIA-INTERNET-88 VALUE 'I'. DTSIS88 00194 88 MAP-MEDIA-REEL-TAPE-88 VALUE 'R'. DTSIS88 00195 88 MAP-MEDIA-CART-REEL-88 VALUE 'C' 'R'. DTSIS88 00196 88 MAP-MEDIA-VALID-88 VALUE 'C' 'D' DTSIS88 00197 'I' 'R'. DTSIS88 00198 DTSIS88 00199 10 MAP-MEDIA-TYPE-DSCR-AREA. DTSIS88 00200 15 MAP-MEDIA-TYPE-DSCR-L PIC S9(04) COMP. DTSIS88 00201 15 MAP-MEDIA-TYPE-DSCR-A PIC X(01). DTSIS88 00202 15 MAP-MEDIA-TYPE-DSCR PIC X(09). DTSIS88 00203 88 MAP-MEDIA-TYPE-CART-TAPE-88 DTSIS88 00204 VALUE 'CARTRIDGE'. DTSIS88 00205 88 MAP-MEDIA-TYPE-DISKETTE-88 DTSIS88 00206 VALUE 'DISKETTE '. DTSIS88 00207 88 MAP-MEDIA-TYPE-INTERNET-88 DTSIS88 00208 VALUE 'INTERNET '. DTSIS88 00209 88 MAP-MEDIA-TYPE-REEL-TAPE-88 DTSIS88 00210 VALUE 'REEL '. DTSIS88 00211 DTSIS88 00212 10 MAP-DISK-SIZE-AREA. DTSIS88 00213 15 MAP-DISK-SIZE-L PIC S9(04) COMP. DTSIS88 00214 15 MAP-DISK-SIZE-A PIC X(01). DTSIS88 00215 15 MAP-DISK-SIZE PIC X(05). DTSIS88 00216 88 MAP-DISK-3-HALF-88 VALUE '3 1/2'. DTSIS88 00217 88 MAP-DISK-5-QTR-88 VALUE '5 1/4'. DTSIS88 00218 88 MAP-DISK-BOTH-88 VALUE 'BOTH '. DTSIS88 00219 88 MAP-DISK-NONE-88 VALUE ' '. DTSIS88 00220 88 MAP-DISK-VALID-88 VALUE '3 1/2' DTSIS88 00221 '5 1/4' 'BOTH ' DTSIS88 00222 ' '. DTSIS88 00223 DTSIS88 00224 10 MAP-MEDIA-CHNG-DATE-AREA. DTSIS88 00225 15 MAP-MEDIA-CHNG-DATE-L PIC S9(04) COMP. DTSIS88 00226 15 MAP-MEDIA-CHNG-DATE-A PIC X(01). DTSIS88 00227 15 MAP-MEDIA-CHNG-DATE PIC X(08). DTSIS88 00228 DTSIS88 00229 10 MAP-ESTB-DATE-AREA. DTSIS88 00230 15 MAP-ESTB-DATE-L PIC S9(04) COMP. DTSIS88 00231 15 MAP-ESTB-DATE-A PIC X(01). DTSIS88 00232 15 MAP-ESTB-DATE PIC X(08). DTSIS88 00233 DTSIS88 00234 10 MAP-CHNG-DATE-AREA. DTSIS88 00235 15 MAP-CHNG-DATE-L PIC S9(04) COMP. DTSIS88 00236 15 MAP-CHNG-DATE-A PIC X(01). DTSIS88 00237 15 MAP-CHNG-DATE PIC X(08). DTSIS88 00238 DTSIS88 00239 ***** DTSIS88 00240 SKIP1 DTSIS88 00241 10 MAP-KEY-BACK-AREA. DTSIS88 00242 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS88 00243 15 MAP-KEY-BACK-A PIC X(01). DTSIS88 00244 15 MAP-KEY-BACK PIC X(07). DTSIS88 00245 SKIP1 DTSIS88 00246 10 MAP-KEY-FWRD-AREA. DTSIS88 00247 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS88 00248 15 MAP-KEY-FWRD-A PIC X(01). DTSIS88 00249 15 MAP-KEY-FWRD PIC X(07). DTSIS88 00250 SKIP1 DTSIS88 00251 10 MAP-KEY-ADD-AREA. DTSIS88 00252 15 MAP-KEY-ADD-L PIC S9(04) COMP. DTSIS88 00253 15 MAP-KEY-ADD-A PIC X(01). DTSIS88 00254 15 MAP-KEY-ADD PIC X(07). DTSIS88 00255 DTSIS88 00256 10 MAP-KEY-MOD-AREA. DTSIS88 00257 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS88 00258 15 MAP-KEY-MOD-A PIC X(01). DTSIS88 00259 15 MAP-KEY-MOD PIC X(07). DTSIS88 00260 DTSIS88 00261 10 MAP-KEY-DEL-AREA. DTSIS88 00262 15 MAP-KEY-DEL-L PIC S9(04) COMP. DTSIS88 00263 15 MAP-KEY-DEL-A PIC X(01). DTSIS88 00264 15 MAP-KEY-DEL PIC X(07). DTSIS88 00265 DTSIS88 00266 10 MAP-MSG-AREA. DTSIS88 00267 15 MAP-MSG-ID-AREA. DTSIS88 00268 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS88 00269 20 MAP-MSG-ID-A PIC X(01). DTSIS88 00270 20 MAP-MSG-ID PIC X(08). DTSIS88 00271 15 MAP-MSG-TEXT-AREA. DTSIS88 00272 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS88 00273 20 MAP-MSG-TEXT-A PIC X(01). DTSIS88 00274 20 MAP-MSG-TEXT PIC X(58). DTSIS88 00275 SKIP1 DTSIS88 00276 10 MAP-GOTO-AREA. DTSIS88 00277 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS88 00278 15 MAP-GOTO-A PIC X(01). DTSIS88 00279 15 MAP-GOTO PIC X(02). DTSIS88