00001 ***** 11/19/09 00002 * DTSIS69 AUDIT SCHEDULE INQUIRY/UPDATE SEND/RECEIVE AREA. DTSIS69 00003 ***** LV001 00004 10 FILLER PIC X(12). DTSIS69 00005 DTSIS69 00006 10 MAP-SCR-TYPE-AREA. DTSIS69 00007 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS69 00008 15 MAP-SCR-TYPE-A PIC X(01). DTSIS69 00009 15 MAP-SCR-TYPE PIC X(02). DTSIS69 00010 DTSIS69 00011 10 MAP-CICS-REGION-NAME-AREA. DTSIS69 00012 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS69 00013 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS69 00014 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS69 00015 DTSIS69 00016 10 MAP-SYS-DATE-AREA. DTSIS69 00017 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS69 00018 15 MAP-SYS-DATE-A PIC X(01). DTSIS69 00019 15 MAP-SYS-DATE PIC X(08). DTSIS69 00020 DTSIS69 00021 10 MAP-EMP-NO-AREA. DTSIS69 00022 15 F690209. DTSIS69 00023 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS69 00024 20 MAP-EMP-NO-1-A PIC X(01). DTSIS69 00025 20 MAP-EMP-NO-1 PIC X(03). DTSIS69 00026 15 F690213. DTSIS69 00027 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS69 00028 20 MAP-EMP-NO-2-A PIC X(01). DTSIS69 00029 20 MAP-EMP-NO-2 PIC X(03). DTSIS69 00030 DTSIS69 00031 10 F690219. DTSIS69 00032 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. DTSIS69 00033 15 MAP-PRIMARY-NAME-A PIC X(01). DTSIS69 00034 15 MAP-PRIMARY-NAME PIC X(40). DTSIS69 00035 DTSIS69 00036 10 MAP-SYS-TIME-AREA. DTSIS69 00037 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS69 00038 15 MAP-SYS-TIME-A PIC X(01). DTSIS69 00039 15 MAP-SYS-TIME PIC X(08). DTSIS69 00040 DTSIS69 00041 10 MAP-ASSIGN-NO-AREA. DTSIS69 00042 15 F690312. DTSIS69 00043 20 MAP-ASSIGN-NO-1-L PIC S9(04) COMP. DTSIS69 00044 20 MAP-ASSIGN-NO-1-A PIC X(01). DTSIS69 00045 20 MAP-ASSIGN-NO-1 PIC X(02). DTSIS69 00046 15 F690315. DTSIS69 00047 20 MAP-ASSIGN-NO-2-L PIC S9(04) COMP. DTSIS69 00048 20 MAP-ASSIGN-NO-2-A PIC X(01). DTSIS69 00049 20 MAP-ASSIGN-NO-2 PIC X(05). DTSIS69 00050 DTSIS69 00051 10 MAP-SEQ-NO-AREA. DTSIS69 00052 15 MAP-SEQ-NO-L PIC S9(04) COMP. DTSIS69 00053 15 MAP-SEQ-NO-A PIC X(01). DTSIS69 00054 15 MAP-SEQ-NO-1 PIC X(03). DTSIS69 00055 15 MAP-SEQ-NO-N REDEFINES MAP-SEQ-NO-1 DTSIS69 00056 PIC ZZ9. DTSIS69 00057 DTSIS69 00058 10 F690372. DTSIS69 00059 15 MAP-CURR-PAGE-L PIC S9(04) COMP. DTSIS69 00060 15 MAP-CURR-PAGE-A PIC X(01). DTSIS69 00061 15 MAP-CURR-PAGE PIC Z9. DTSIS69 00062 10 F690378. DTSIS69 00063 15 MAP-LAST-PAGE-L PIC S9(04) COMP. DTSIS69 00064 15 MAP-LAST-PAGE-A PIC X(01). DTSIS69 00065 15 MAP-LAST-PAGE PIC Z9. DTSIS69 00066 DTSIS69 00067 10 MAP-CONTACT-NAME-AREA. DTSIS69 00068 15 MAP-CONTACT-NAME-L PIC S9(04) COMP. DTSIS69 00069 15 MAP-CONTACT-NAME-A PIC X(01). DTSIS69 00070 15 MAP-CONTACT-NAME PIC X(40). DTSIS69 00071 DTSIS69 00072 10 MAP-EMAIL-AREA. DTSIS69 00073 15 MAP-EMAIL-L PIC S9(04) COMP. DTSIS69 00074 15 MAP-EMAIL-A PIC X(01). DTSIS69 00075 15 MAP-EMAIL PIC X(40). DTSIS69 00076 DTSIS69 00077 10 MAP-ALL-PHONE-AREA. DTSIS69 00078 15 MAP-PHONE-AREA OCCURS 3 TIMES. DTSIS69 00079 20 MAP-PHONE-A-CD-AREA. DTSIS69 00080 25 MAP-PHONE-A-CD-L PIC S9(04) COMP. DTSIS69 00081 25 MAP-PHONE-A-CD-A PIC X(01). DTSIS69 00082 25 MAP-PHONE-A-CD PIC X(03). DTSIS69 00083 20 MAP-PHONE-PREF-AREA. DTSIS69 00084 25 MAP-PHONE-PREF-L PIC S9(04) COMP. DTSIS69 00085 25 MAP-PHONE-PREF-A PIC X(01). DTSIS69 00086 25 MAP-PHONE-PREF PIC X(03). DTSIS69 00087 20 MAP-PHONE-SUFF-AREA. DTSIS69 00088 25 MAP-PHONE-SUFF-L PIC S9(04) COMP. DTSIS69 00089 25 MAP-PHONE-SUFF-A PIC X(01). DTSIS69 00090 25 MAP-PHONE-SUFF PIC X(04). DTSIS69 00091 20 MAP-PHONE-EXT-AREA. DTSIS69 00092 25 MAP-PHONE-EXT-L PIC S9(04) COMP. DTSIS69 00093 25 MAP-PHONE-EXT-A PIC X(01). DTSIS69 00094 25 MAP-PHONE-EXT PIC X(05). DTSIS69 00095 DTSIS69 00096 10 MAP-AUDIT-DATE-AREA. DTSIS69 00097 15 MAP-AUDIT-MO-L PIC S9(04) COMP. DTSIS69 00098 15 MAP-AUDIT-MO-A PIC X(01). DTSIS69 00099 15 MAP-AUDIT-MO PIC X(02). DTSIS69 00100 DTSIS69 00101 15 MAP-AUDIT-DA-L PIC S9(04) COMP. DTSIS69 00102 15 MAP-AUDIT-DA-A PIC X(01). DTSIS69 00103 15 MAP-AUDIT-DA PIC X(02). DTSIS69 00104 DTSIS69 00105 15 MAP-AUDIT-YR-L PIC S9(04) COMP. DTSIS69 00106 15 MAP-AUDIT-YR-A PIC X(01). DTSIS69 00107 15 MAP-AUDIT-YR PIC X(02). DTSIS69 00108 DTSIS69 00109 10 MAP-AUDIT-TIME-AREA. DTSIS69 00110 15 MAP-AUDIT-TIME-HH-L PIC S9(04) COMP. DTSIS69 00111 15 MAP-AUDIT-TIME-HH-A PIC X(01). DTSIS69 00112 15 MAP-AUDIT-TIME-HH PIC 9(02). DTSIS69 00113 DTSIS69 00114 15 MAP-AUDIT-TIME-MM-L PIC S9(04) COMP. DTSIS69 00115 15 MAP-AUDIT-TIME-MM-A PIC X(01). DTSIS69 00116 15 MAP-AUDIT-TIME-MM PIC 9(02). DTSIS69 00117 DTSIS69 00118 10 MAP-STATUS-CODE-AREA. DTSIS69 00119 15 MAP-STATUS-CD-L PIC S9(04) COMP. DTSIS69 00120 15 MAP-STATUS-CD-A PIC X(01). DTSIS69 00121 15 MAP-STATUS-CD PIC X(01). DTSIS69 00122 DTSIS69 00123 10 MAP-CODE-DSCR-AREA. DTSIS69 00124 15 MAP-STATUS-CD-DSCR-L PIC S9(04) COMP. DTSIS69 00125 15 MAP-STATUS-CD-DSCR-A PIC X(01). DTSIS69 00126 15 MAP-STATUS-CD-DSCR PIC X(13). DTSIS69 00127 DTSIS69 00128 10 MAP-ADDR-TYPE-AREA. DTSIS69 00129 15 MAP-ADDR-TYPE-L PIC S9(04) COMP. DTSIS69 00130 15 MAP-ADDR-TYPE-A PIC X(01). DTSIS69 00131 15 MAP-ADDR-TYPE PIC X(01). DTSIS69 00132 88 MAP-ADDR-NONE-88 VALUE 'N'. DTSIS69 00133 88 MAP-ADDR-TAX-88 VALUE 'T'. DTSIS69 00134 88 MAP-ADDR-TAX-ALT-88 VALUE 'A'. DTSIS69 00135 88 MAP-ADDR-PHY-88 VALUE 'P'. DTSIS69 00136 88 MAP-ADDR-OPO-88 VALUE 'O'. DTSIS69 00137 88 MAP-ADDR-TAD-88 VALUE 'T' 'P'. DTSIS69 00138 88 MAP-ADDR-TAA-OPO-88 VALUE 'A' 'O'. DTSIS69 00139 88 MAP-ADDR-VALID-88 VALUE 'N' 'T' 'A' 'P' DTSIS69 00140 'O'. DTSIS69 00141 DTSIS69 00142 10 MAP-ADDR-ID-NO-AREA. DTSIS69 00143 15 MAP-ADDR-ID-NO-L PIC S9(04) COMP. DTSIS69 00144 15 MAP-ADDR-ID-NO-A PIC X(01). DTSIS69 00145 15 MAP-ADDR-ID-NO PIC X(03). DTSIS69 00146 15 MAP-ADDR-ID-NO-Z REDEFINES DTSIS69 00147 MAP-ADDR-ID-NO PIC Z(03). DTSIS69 00148 DTSIS69 00149 10 MAP-AUDIT-REP-AREA. DTSIS69 00150 15 MAP-FLD-REP-ID-L PIC S9(04) COMP. DTSIS69 00151 15 MAP-FLD-REP-ID-A PIC X(01). DTSIS69 00152 15 MAP-FLD-REP-ID PIC X(02). DTSIS69 00153 DTSIS69 00154 10 MAP-AUDIT-DESC-AREA. DTSIS69 00155 15 MAP-FLD-REP-ID-DESC-L PIC S9(04) COMP. DTSIS69 00156 15 MAP-FLD-REP-ID-DESC-A PIC X(01). DTSIS69 00157 15 MAP-FLD-REP-ID-DESC PIC X(14). DTSIS69 00158 DTSIS69 00159 10 MAP-AUDIT-ATTN-AREA. DTSIS69 00160 15 MAP-AUDIT-ATTN-LINE-L PIC S9(04) COMP. DTSIS69 00161 15 MAP-AUDIT-ATTN-LINE-A PIC X(01). DTSIS69 00162 15 MAP-AUDIT-ATTN-LINE PIC X(40). DTSIS69 00163 DTSIS69 00164 10 MAP-AUDIT-DLV1-AREA. DTSIS69 00165 15 MAP-AUDIT-DLV1-LINE-L PIC S9(04) COMP. DTSIS69 00166 15 MAP-AUDIT-DLV1-LINE-A PIC X(01). DTSIS69 00167 15 MAP-AUDIT-DLV1-LINE PIC X(40). DTSIS69 00168 DTSIS69 00169 10 MAP-AUDIT-CASS-AREA. DTSIS69 00170 15 MAP-AUDIT-CASS-L PIC S9(04) COMP. DTSIS69 00171 15 MAP-AUDIT-CASS-A PIC X(01). DTSIS69 00172 15 MAP-AUDIT-CASS PIC X(01). DTSIS69 00173 DTSIS69 00174 10 MAP-AUDIT-DLV2-AREA. DTSIS69 00175 15 MAP-AUDIT-DLV2-LINE-L PIC S9(04) COMP. DTSIS69 00176 15 MAP-AUDIT-DLV2-LINE-A PIC X(01). DTSIS69 00177 15 MAP-AUDIT-DLV2-LINE PIC X(40). DTSIS69 00178 DTSIS69 00179 10 MAP-AUDIT-CITY-AREA. DTSIS69 00180 15 MAP-AUDIT-CITY-L PIC S9(04) COMP. DTSIS69 00181 15 MAP-AUDIT-CITY-A PIC X(01). DTSIS69 00182 15 MAP-AUDIT-CITY PIC X(25). DTSIS69 00183 DTSIS69 00184 10 MAP-AUDIT-STATE-AREA. DTSIS69 00185 15 MAP-AUDIT-STAT-L PIC S9(04) COMP. DTSIS69 00186 15 MAP-AUDIT-STAT-A PIC X(01). DTSIS69 00187 15 MAP-AUDIT-STAT PIC X(02). DTSIS69 00188 DTSIS69 00189 10 MAP-AUDIT-ZIP-AREA. DTSIS69 00190 15 MAP-AUDIT-ZIP-L PIC S9(04) COMP. DTSIS69 00191 15 MAP-AUDIT-ZIP-A PIC X(01). DTSIS69 00192 15 MAP-AUDIT-ZIP PIC X(10). DTSIS69 00193 DTSIS69 00194 10 MAP-MAIL-TYPE-AREA. DTSIS69 00195 15 MAP-MAIL-TYPE-L PIC S9(04) COMP. DTSIS69 00196 15 MAP-MAIL-TYPE-A PIC X(01). DTSIS69 00197 15 MAP-MAIL-TYPE PIC X(01). DTSIS69 00198 88 MAP-MAIL-NONE-88 VALUE 'N'. DTSIS69 00199 88 MAP-MAIL-TAX-88 VALUE 'T'. DTSIS69 00200 88 MAP-MAIL-TAX-ALT-88 VALUE 'A'. DTSIS69 00201 88 MAP-MAIL-PHY-88 VALUE 'P'. DTSIS69 00202 88 MAP-MAIL-OPO-88 VALUE 'O'. DTSIS69 00203 88 MAP-MAIL-TAD-88 VALUE 'T' 'P'. DTSIS69 00204 88 MAP-MAIL-TAA-OPO-88 VALUE 'A' 'O'. DTSIS69 00205 88 MAP-MAIL-VALID-88 VALUE 'N' 'T' 'A' 'P' DTSIS69 00206 'O'. DTSIS69 00207 DTSIS69 00208 10 MAP-MAIL-ID-NO-AREA. DTSIS69 00209 15 MAP-MAIL-ID-NO-L PIC S9(04) COMP. DTSIS69 00210 15 MAP-MAIL-ID-NO-A PIC X(01). DTSIS69 00211 15 MAP-MAIL-ID-NO PIC X(03). DTSIS69 00212 15 MAP-MAIL-ID-NO-Z REDEFINES DTSIS69 00213 MAP-MAIL-ID-NO PIC Z(03). DTSIS69 00214 DTSIS69 00215 10 MAP-MAIL-ATTN-AREA. DTSIS69 00216 15 MAP-MAIL-ATTN-LINE-L PIC S9(04) COMP. DTSIS69 00217 15 MAP-MAIL-ATTN-LINE-A PIC X(01). DTSIS69 00218 15 MAP-MAIL-ATTN-LINE PIC X(40). DTSIS69 00219 DTSIS69 00220 10 MAP-MAIL-DLV1-AREA. DTSIS69 00221 15 MAP-MAIL-DLV1-LINE-L PIC S9(04) COMP. DTSIS69 00222 15 MAP-MAIL-DLV1-LINE-A PIC X(01). DTSIS69 00223 15 MAP-MAIL-DLV1-LINE PIC X(40). DTSIS69 00224 DTSIS69 00225 10 MAP-MAIL-CASS-AREA. DTSIS69 00226 15 MAP-MAIL-CASS-L PIC S9(04) COMP. DTSIS69 00227 15 MAP-MAIL-CASS-A PIC X(01). DTSIS69 00228 15 MAP-MAIL-CASS PIC X(01). DTSIS69 00229 DTSIS69 00230 10 MAP-MAIL-DLV2-AREA. DTSIS69 00231 15 MAP-MAIL-DLV2-LINE-L PIC S9(04) COMP. DTSIS69 00232 15 MAP-MAIL-DLV2-LINE-A PIC X(01). DTSIS69 00233 15 MAP-MAIL-DLV2-LINE PIC X(40). DTSIS69 00234 DTSIS69 00235 10 MAP-MAIL-CITY-AREA. DTSIS69 00236 15 MAP-MAIL-CITY-L PIC S9(04) COMP. DTSIS69 00237 15 MAP-MAIL-CITY-A PIC X(01). DTSIS69 00238 15 MAP-MAIL-CITY PIC X(25). DTSIS69 00239 DTSIS69 00240 10 MAP-MAIL-STATE-AREA. DTSIS69 00241 15 MAP-MAIL-STAT-L PIC S9(04) COMP. DTSIS69 00242 15 MAP-MAIL-STAT-A PIC X(01). DTSIS69 00243 15 MAP-MAIL-STAT PIC X(02). DTSIS69 00244 DTSIS69 00245 10 MAP-MAIL-ZIP-AREA. DTSIS69 00246 15 MAP-MAIL-ZIP-L PIC S9(04) COMP. DTSIS69 00247 15 MAP-MAIL-ZIP-A PIC X(01). DTSIS69 00248 15 MAP-MAIL-ZIP PIC X(10). DTSIS69 00249 DTSIS69 00250 10 MAP-ESTB-DATE-AREA. DTSIS69 00251 15 MAP-ESTB-DATE-L PIC S9(04) COMP. DTSIS69 00252 15 MAP-ESTB-DATE-A PIC X(01). DTSIS69 00253 15 MAP-ESTB-DATE PIC X(08). DTSIS69 00254 DTSIS69 00255 10 MAP-ESTB-OPID-AREA. DTSIS69 00256 15 MAP-ESTB-OP-ID-L PIC S9(04) COMP. DTSIS69 00257 15 MAP-ESTB-OP-ID-A PIC X(01). DTSIS69 00258 15 MAP-ESTB-OP-ID PIC X(08). DTSIS69 00259 DTSIS69 00260 10 MAP-CHNG-DATE-AREA. DTSIS69 00261 15 MAP-CHNG-DATE-L PIC S9(04) COMP. DTSIS69 00262 15 MAP-CHNG-DATE-A PIC X(01). DTSIS69 00263 15 MAP-CHNG-DATE PIC X(08). DTSIS69 00264 DTSIS69 00265 10 MAP-CHNG-OPID-AREA. DTSIS69 00266 15 MAP-CHNG-OP-ID-L PIC S9(04) COMP. DTSIS69 00267 15 MAP-CHNG-OP-ID-A PIC X(01). DTSIS69 00268 15 MAP-CHNG-OP-ID PIC X(08). DTSIS69 00269 DTSIS69 00270 10 MAP-KEY-FIRST-AREA. DTSIS69 00271 15 MAP-KEY-FIRST-L PIC S9(04) COMP. DTSIS69 00272 15 MAP-KEY-FIRST-A PIC X(01). DTSIS69 00273 15 MAP-KEY-FIRST PIC X(08). DTSIS69 00274 DTSIS69 00275 10 MAP-KEY-LAST-AREA. DTSIS69 00276 15 MAP-KEY-LAST-L PIC S9(04) COMP. DTSIS69 00277 15 MAP-KEY-LAST-A PIC X(01). DTSIS69 00278 15 MAP-KEY-LAST PIC X(07). DTSIS69 00279 DTSIS69 00280 10 MAP-KEY-BACK-AREA. DTSIS69 00281 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS69 00282 15 MAP-KEY-BACK-A PIC X(01). DTSIS69 00283 15 MAP-KEY-BACK PIC X(07). DTSIS69 00284 DTSIS69 00285 10 MAP-KEY-FWRD-AREA. DTSIS69 00286 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS69 00287 15 MAP-KEY-FWRD-A PIC X(01). DTSIS69 00288 15 MAP-KEY-FWRD PIC X(07). DTSIS69 00289 DTSIS69 00290 10 MAP-KEY-ADD-AREA. DTSIS69 00291 15 MAP-KEY-ADD-L PIC S9(04) COMP. DTSIS69 00292 15 MAP-KEY-ADD-A PIC X(01). DTSIS69 00293 15 MAP-KEY-ADD PIC X(06). DTSIS69 00294 DTSIS69 00295 10 MAP-KEY-MOD-AREA. DTSIS69 00296 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS69 00297 15 MAP-KEY-MOD-A PIC X(01). DTSIS69 00298 15 MAP-KEY-MOD PIC X(07). DTSIS69 00299 DTSIS69 00300 10 MAP-KEY-DEL-AREA. DTSIS69 00301 15 MAP-KEY-DEL-L PIC S9(04) COMP. DTSIS69 00302 15 MAP-KEY-DEL-A PIC X(01). DTSIS69 00303 15 MAP-KEY-DEL PIC X(07). DTSIS69 00304 DTSIS69 00305 10 MAP-MSG-AREA. DTSIS69 00306 15 MAP-MSG-ID-AREA. DTSIS69 00307 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS69 00308 20 MAP-MSG-ID-A PIC X(01). DTSIS69 00309 20 MAP-MSG-ID PIC X(08). DTSIS69 00310 15 MAP-MSG-TEXT-AREA. DTSIS69 00311 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS69 00312 20 MAP-MSG-TEXT-A PIC X(01). DTSIS69 00313 20 MAP-MSG-TEXT PIC X(58). DTSIS69 00314 DTSIS69 00315 10 MAP-GOTO-AREA. DTSIS69 00316 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS69 00317 15 MAP-GOTO-A PIC X(01). DTSIS69 00318 15 MAP-GOTO PIC X(02). DTSIS69