00001 ***** 11/02/98 00002 * DTSIS16 00003 * DTSIS16 TAX ALTERNATE NAME/ADDRESS SEND/RECEIVE AREA. LV014 00004 * DTSIS16 00005 ***** DTSIS16 00006 SKIP1 DTSIS16 00007 10 FILLER PIC X(12). DTSIS16 00008 SKIP1 DTSIS16 00009 10 MAP-SCR-TYPE-AREA. DTSIS16 00010 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS16 00011 15 MAP-SCR-TYPE-A PIC X(01). DTSIS16 00012 15 MAP-SCR-TYPE PIC X(02). DTSIS16 00013 SKIP1 DTSIS16 00014 10 MAP-CICS-REGION-NAME-AREA. DTSIS16 00015 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS16 00016 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS16 00017 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS16 00018 SKIP1 DTSIS16 00019 10 MAP-SYS-DATE-AREA. DTSIS16 00020 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS16 00021 15 MAP-SYS-DATE-A PIC X(01). DTSIS16 00022 15 MAP-SYS-DATE PIC X(08). DTSIS16 00023 SKIP1 DTSIS16 00024 10 MAP-SYS-TIME-AREA. DTSIS16 00025 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS16 00026 15 MAP-SYS-TIME-A PIC X(01). DTSIS16 00027 15 MAP-SYS-TIME PIC X(08). DTSIS16 00028 ***** DTSIS16 00029 10 MAP-EMP-NO-AREA. DTSIS16 00030 15 MAP-EMP-NO-1-AREA. DTSIS16 00031 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS16 00032 20 MAP-EMP-NO-1-A PIC X(01). DTSIS16 00033 20 MAP-EMP-NO-1 PIC X(03). DTSIS16 00034 20 MAP-EMP-NO-1-N REDEFINES MAP-EMP-NO-1 DTSIS16 00035 PIC 9(03). DTSIS16 00036 15 MAP-EMP-NO-2-AREA. DTSIS16 00037 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS16 00038 20 MAP-EMP-NO-2-A PIC X(01). DTSIS16 00039 20 MAP-EMP-NO-2 PIC X(03). DTSIS16 00040 20 MAP-EMP-NO-2-N REDEFINES MAP-EMP-NO-2 DTSIS16 00041 PIC 9(03). DTSIS16 00042 SKIP1 DTSIS16 00043 10 MAP-PRIMARY-NAME-AREA. CL**2 00044 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. CL**2 00045 15 MAP-PRIMARY-NAME-A PIC X(01). CL**2 00046 15 MAP-PRIMARY-NAME PIC X(40). CL**2 00047 SKIP1 DTSIS16 00048 10 MAP-CURR-PAGE-AREA. DTSIS16 00049 15 MAP-CURR-PAGE-L PIC S9(04) COMP. DTSIS16 00050 15 MAP-CURR-PAGE-A PIC X(01). DTSIS16 00051 15 MAP-CURR-PAGE PIC ZZ9. DTSIS16 00052 SKIP1 DTSIS16 00053 10 MAP-LAST-PAGE-AREA. DTSIS16 00054 15 MAP-LAST-PAGE-L PIC S9(04) COMP. DTSIS16 00055 15 MAP-LAST-PAGE-A PIC X(01). DTSIS16 00056 15 MAP-LAST-PAGE PIC ZZ9. DTSIS16 00057 SKIP1 DTSIS16 00058 10 MAP-ALT-NAME-AREA. DTSIS16 00059 15 MAP-ALT-NAME-L PIC S9(04) COMP. DTSIS16 00060 15 MAP-ALT-NAME-A PIC X(01). DTSIS16 00061 15 MAP-ALT-NAME PIC X(40). CL*12 00062 SKIP1 DTSIS16 00063 10 MAP-ADDR-AREA. DTSIS16 00064 15 MAP-ATTN-AREA. DTSIS16 00065 20 MAP-ATTN-L PIC S9(04) COMP. DTSIS16 00066 20 MAP-ATTN-A PIC X(01). DTSIS16 00067 20 MAP-ATTN PIC X(40). DTSIS16 00068 15 MAP-CIND-AREA. CL**2 00069 20 MAP-CIND-L PIC S9(04) COMP. CL**2 00070 20 MAP-CIND-A PIC X(01). CL**2 00071 20 MAP-CIND PIC X(01). CL**2 00072 15 MAP-DLV1-AREA. CL**2 00073 20 MAP-DLV1-L PIC S9(04) COMP. CL**2 00074 20 MAP-DLV1-A PIC X(01). CL**2 00075 20 MAP-DLV1 PIC X(40). CL**2 00076 15 MAP-DLV2-AREA. CL**2 00077 20 MAP-DLV2-L PIC S9(04) COMP. CL**2 00078 20 MAP-DLV2-A PIC X(01). CL**2 00079 20 MAP-DLV2 PIC X(40). CL**2 00080 15 MAP-CASS-AREA. CL**2 00081 20 MAP-CASS-L PIC S9(04) COMP. CL**2 00082 20 MAP-CASS-A PIC X(01). CL**2 00083 20 MAP-CASS PIC X(25). CL*14 00084 15 MAP-CITY-AREA. DTSIS16 00085 20 MAP-CITY-L PIC S9(04) COMP. DTSIS16 00086 20 MAP-CITY-A PIC X(01). DTSIS16 00087 20 MAP-CITY PIC X(25). DTSIS16 00088 15 MAP-STAT-AREA. DTSIS16 00089 20 MAP-STAT-L PIC S9(04) COMP. DTSIS16 00090 20 MAP-STAT-A PIC X(01). DTSIS16 00091 20 MAP-STAT PIC X(02). DTSIS16 00092 15 MAP-ZIPC-AREA. DTSIS16 00093 20 MAP-ZIPC-L PIC S9(04) COMP. DTSIS16 00094 20 MAP-ZIPC-A PIC X(01). DTSIS16 00095 20 MAP-ZIPC PIC X(10). DTSIS16 00096 SKIP1 DTSIS16 00097 10 MAP-ALL-PHONES-AREA. DTSIS16 00098 * 1=VOICE, 2=VOICE#2, 3=FAX DTSIS16 00099 15 MAP-PHONE-AREA OCCURS 3. DTSIS16 00100 20 MAP-PHONE-A-CD-AREA. DTSIS16 00101 25 MAP-PHONE-A-CD-L PIC S9(04) COMP. DTSIS16 00102 25 MAP-PHONE-A-CD-A PIC X(01). DTSIS16 00103 25 MAP-PHONE-A-CD PIC X(03). DTSIS16 00104 20 MAP-PHONE-PREF-AREA. DTSIS16 00105 25 MAP-PHONE-PREF-L PIC S9(04) COMP. DTSIS16 00106 25 MAP-PHONE-PREF-A PIC X(01). DTSIS16 00107 25 MAP-PHONE-PREF PIC X(03). DTSIS16 00108 20 MAP-PHONE-SUFF-AREA. DTSIS16 00109 25 MAP-PHONE-SUFF-L PIC S9(04) COMP. DTSIS16 00110 25 MAP-PHONE-SUFF-A PIC X(01). DTSIS16 00111 25 MAP-PHONE-SUFF PIC X(04). DTSIS16 00112 20 MAP-PHONE-EXT-AREA. CL**2 00113 25 MAP-PHONE-EXT-L PIC S9(04) COMP. CL**2 00114 25 MAP-PHONE-EXT-A PIC X(01). CL**2 00115 25 MAP-PHONE-EXT PIC X(05). CL**4 00116 SKIP1 DTSIS16 00117 10 MAP-EMAIL-AREA. CL**2 00118 15 MAP-EMAIL-L PIC S9(04) COMP. CL**2 00119 15 MAP-EMAIL-A PIC X(01). CL**2 00120 15 MAP-EMAIL PIC X(40). CL**2 00121 SKIP1 CL**2 00122 10 MAP-MEMO-AREA. CL**2 00123 15 MAP-MEMO-L PIC S9(04) COMP. CL**2 00124 15 MAP-MEMO-A PIC X(01). CL**2 00125 15 MAP-MEMO PIC X(01). CL**2 00126 88 MAP-MEMO-YES VALUE 'Y'. CL**2 00127 88 MAP-MEMO-DEFAULT VALUE 'N'. CL**2 00128 88 MAP-MEMO-VALID VALUE 'Y' 'N'. CL**2 00129 SKIP1 CL**2 00130 10 MAP-MISS-AREA. CL**2 00131 15 MAP-MISS-L PIC S9(04) COMP. CL**2 00132 15 MAP-MISS-A PIC X(01). CL**2 00133 15 MAP-MISS PIC X(01). CL**2 00134 88 MAP-MISS-YES VALUE 'Y'. CL**2 00135 88 MAP-MISS-DEFAULT VALUE 'N'. CL**2 00136 88 MAP-MISS-VALID VALUE 'Y' 'N'. CL**2 00137 SKIP1 CL**2 00138 10 MAP-PHY-ADDR-AREA. CL*13 00139 15 MAP-PHY-ADDR-L PIC S9(04) COMP. CL*13 00140 15 MAP-PHY-ADDR-A PIC X(01). CL*13 00141 15 MAP-PHY-ADDR PIC X(01). CL*13 00142 88 MAP-PHY-ADDR-YES VALUE 'Y'. CL*13 00143 88 MAP-PHY-ADDR-DEFAULT VALUE 'N'. CL*13 00144 88 MAP-PHY-ADDR-VALID VALUE 'Y' 'N'. CL*13 00145 SKIP1 DTSIS16 00146 10 MAP-ADDR-ID-AREA. CL**2 00147 15 MAP-ADDR-ID-L PIC S9(04) COMP. CL**2 00148 15 MAP-ADDR-ID-A PIC X(01). CL**2 00149 15 MAP-ADDR-ID PIC X(03). CL**2 00150 15 MAP-ADDR-ID-N REDEFINES MAP-ADDR-ID CL**2 00151 PIC ZZ9. DTSIS16 00152 SKIP1 CL**2 00153 10 MAP-CDATE-TIME-AREA. CL**2 00154 15 MAP-CDATE-TIME-L PIC S9(04) COMP. CL**2 00155 15 MAP-CDATE-TIME-A PIC X(01). CL**2 00156 15 MAP-CDATE-TIME PIC X(15). CL**5 00157 ***** DTSIS16 00158 10 MAP-KEY-FIRST-AREA. DTSIS16 00159 15 MAP-KEY-FIRST-L PIC S9(04) COMP. DTSIS16 00160 15 MAP-KEY-FIRST-A PIC X(01). DTSIS16 00161 15 MAP-KEY-FIRST PIC X(08). DTSIS16 00162 SKIP1 DTSIS16 00163 10 MAP-KEY-LAST-AREA. DTSIS16 00164 15 MAP-KEY-LAST-L PIC S9(04) COMP. DTSIS16 00165 15 MAP-KEY-LAST-A PIC X(01). DTSIS16 00166 15 MAP-KEY-LAST PIC X(07). DTSIS16 00167 SKIP1 DTSIS16 00168 10 MAP-KEY-BACK-AREA. DTSIS16 00169 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS16 00170 15 MAP-KEY-BACK-A PIC X(01). DTSIS16 00171 15 MAP-KEY-BACK PIC X(07). DTSIS16 00172 SKIP1 DTSIS16 00173 10 MAP-KEY-FWRD-AREA. DTSIS16 00174 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS16 00175 15 MAP-KEY-FWRD-A PIC X(01). DTSIS16 00176 15 MAP-KEY-FWRD PIC X(07). DTSIS16 00177 SKIP1 DTSIS16 00178 10 MAP-KEY-ADD-AREA. DTSIS16 00179 15 MAP-KEY-ADD-L PIC S9(04) COMP. DTSIS16 00180 15 MAP-KEY-ADD-A PIC X(01). DTSIS16 00181 15 MAP-KEY-ADD PIC X(06). DTSIS16 00182 SKIP1 DTSIS16 00183 10 MAP-KEY-MOD-AREA. DTSIS16 00184 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS16 00185 15 MAP-KEY-MOD-A PIC X(01). DTSIS16 00186 15 MAP-KEY-MOD PIC X(07). DTSIS16 00187 SKIP1 DTSIS16 00188 10 MAP-KEY-COMPRESS-AREA. DTSIS16 00189 15 MAP-KEY-COMPRESS-L PIC S9(04) COMP. DTSIS16 00190 15 MAP-KEY-COMPRESS-A PIC X(01). DTSIS16 00191 15 MAP-KEY-COMPRESS PIC X(12). DTSIS16 00192 SKIP1 CL**3 00193 10 MAP-KEY-DEL-AREA. CL**3 00194 15 MAP-KEY-DEL-L PIC S9(04) COMP. CL**3 00195 15 MAP-KEY-DEL-A PIC X(01). CL**3 00196 15 MAP-KEY-DEL PIC X(07). CL**3 00197 SKIP1 DTSIS16 00198 10 MAP-MSG-AREA. DTSIS16 00199 15 MAP-MSG-ID-AREA. DTSIS16 00200 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS16 00201 20 MAP-MSG-ID-A PIC X(01). DTSIS16 00202 20 MAP-MSG-ID PIC X(08). DTSIS16 00203 15 MAP-MSG-TEXT-AREA. DTSIS16 00204 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS16 00205 20 MAP-MSG-TEXT-A PIC X(01). DTSIS16 00206 20 MAP-MSG-TEXT PIC X(58). DTSIS16 00207 SKIP1 DTSIS16 00208 10 MAP-GOTO-AREA. DTSIS16 00209 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS16 00210 15 MAP-GOTO-A PIC X(01). DTSIS16 00211 15 MAP-GOTO PIC X(02). DTSIS16