* DATA SET DTSM13 AT LEVEL 001 AS OF 05/11/17 * DATA SET DTSM13 AT LEVEL 014 AS OF 09/29/04 00001 * DATA SET DTSM13 AT LEVEL 002 AS OF 07/21/04 00002 * DATA SET DTSM13 AT LEVEL 012 AS OF 07/18/00 00003 * DATA SET DTSM13 AT LEVEL 002 AS OF 06/05/00 00004 * DATA SET DTSM13 AT LEVEL 010 AS OF 09/07/99 00005 * DATA SET MACM13 AT LEVEL 010 AS OF 10/30/95 00006 ***** 00007 * 00008 * 13 TAX ADDRESS INQUIRY/UPDATE. 00009 * 00010 ***** 00011 SPACE 00012 DTSM13 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00013 SPACE 00014 F130101 DFHMDF POS=(01,01),LENGTH=02,ATTRB=(FSET,ASKIP), *00015 INITIAL='13' 00016 SPACE 00017 DFHMDF POS=(01,23),LENGTH=26,ATTRB=(ASKIP), *00018 INITIAL='TAX ADDRESS INQUIRY/UPDATE' 00019 SPACE 00020 F130162 DFHMDF POS=(01,62),LENGTH=08,ATTRB=ASKIP 00021 SPACE 00022 F130172 DFHMDF POS=(01,72),LENGTH=08,ATTRB=ASKIP 00023 SPACE 00024 F130272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=ASKIP 00025 SPACE 00026 DFHMDF POS=(03,08),LENGTH=07,ATTRB=ASKIP, *00027 INITIAL='EMP NO:' 00028 SPACE 00029 F130316 DFHMDF POS=(03,16),LENGTH=03,ATTRB=ASKIP 00030 SPACE 00031 F130320 DFHMDF POS=(03,20),LENGTH=03,ATTRB=ASKIP 00032 SPACE 00033 DFHMDF POS=(03,24),LENGTH=01,ATTRB=ASKIP 00034 SPACE 00035 DFHMDF POS=(04,01),LENGTH=14,ATTRB=ASKIP, *00036 INITIAL=' PRIMARY NAME:' 00037 SPACE 00038 F130416 DFHMDF POS=(04,16),LENGTH=40,ATTRB=ASKIP 00039 SPACE 00040 DFHMDF POS=(04,57),LENGTH=01,ATTRB=ASKIP 00041 SPACE 00042 DFHMDF POS=(04,60),LENGTH=12,ATTRB=ASKIP, *00043 INITIAL='ENTITY NAME?' 00044 SPACE 00045 F130465 DFHMDF POS=(04,73),LENGTH=01,ATTRB=ASKIP 00046 SPACE 00047 DFHMDF POS=(04,75),LENGTH=01,ATTRB=ASKIP 00048 SPACE 00049 DFHMDF POS=(05,01),LENGTH=14,ATTRB=ASKIP, *00050 INITIAL=' ENTITY NAME:' 00051 SPACE 00052 F130516 DFHMDF POS=(05,16),LENGTH=40,ATTRB=ASKIP 00053 SPACE 00054 DFHMDF POS=(05,57),LENGTH=01,ATTRB=ASKIP 00055 SPACE 00056 F130609 DFHMDF POS=(06,09),LENGTH=07,ATTRB=(ASKIP) 00057 SPACE 00058 F130617 DFHMDF POS=(06,17),LENGTH=01,ATTRB=(ASKIP) 00059 SPACE 00060 DFHMDF POS=(06,19),LENGTH=01,ATTRB=(ASKIP) 00061 SPACE 00062 DFHMDF POS=(07,09),LENGTH=15,ATTRB=ASKIP, *00063 INITIAL='MAILING ADDRESS' 00064 SPACE 00065 DFHMDF POS=(07,56),LENGTH=13,ATTRB=ASKIP, *00066 INITIAL='FISCAL AGENT:' 00067 SPACE 00068 F130770 DFHMDF POS=(07,70),LENGTH=03,ATTRB=ASKIP 00069 SPACE 00070 DFHMDF POS=(07,74),LENGTH=01,ATTRB=ASKIP 00071 SPACE 00072 DFHMDF POS=(08,01),LENGTH=05,ATTRB=ASKIP, *00073 INITIAL='ATTN:' 00074 SPACE 00075 F130807 DFHMDF POS=(08,07),LENGTH=40,ATTRB=ASKIP 00076 SPACE 00077 DFHMDF POS=(08,48),LENGTH=01,ATTRB=ASKIP 00078 SPACE 00079 DFHMDF POS=(08,56),LENGTH=05,ATTRB=ASKIP, *00080 INITIAL='CASS?' 00081 SPACE 00082 F130862 DFHMDF POS=(08,62),LENGTH=01,ATTRB=ASKIP 00083 SPACE 00084 DFHMDF POS=(08,64),LENGTH=01,ATTRB=ASKIP 00085 SPACE 00086 DFHMDF POS=(09,01),LENGTH=05,ATTRB=ASKIP, *00087 INITIAL='DLV1:' 00088 SPACE 00089 F130907 DFHMDF POS=(09,07),LENGTH=40,ATTRB=ASKIP 00090 SPACE 00091 DFHMDF POS=(09,48),LENGTH=01,ATTRB=ASKIP 00092 SPACE 00093 DFHMDF POS=(09,56),LENGTH=07,ATTRB=ASKIP, *00094 INITIAL='CASS CD' 00095 SPACE 00096 DFHMDF POS=(10,01),LENGTH=05,ATTRB=ASKIP, *00097 INITIAL='DLV2:' 00098 SPACE 00099 F131007 DFHMDF POS=(10,07),LENGTH=40,ATTRB=ASKIP 00100 SPACE 00101 DFHMDF POS=(10,48),LENGTH=01,ATTRB=ASKIP 00102 SPACE 00103 F131054 DFHMDF POS=(10,54),LENGTH=25,ATTRB=ASKIP 00104 SPACE 00105 DFHMDF POS=(11,01),LENGTH=05,ATTRB=ASKIP, *00106 INITIAL='CITY:' 00107 SPACE 00108 F131107 DFHMDF POS=(11,07),LENGTH=25,ATTRB=ASKIP 00109 SPACE 00110 DFHMDF POS=(11,33),LENGTH=01,ATTRB=ASKIP, *00111 INITIAL=':' 00112 SPACE 00113 F131135 DFHMDF POS=(11,35),LENGTH=02,ATTRB=ASKIP 00114 SPACE 00115 DFHMDF POS=(11,38),LENGTH=01,ATTRB=ASKIP, *00116 INITIAL=':' 00117 SPACE 00118 F131140 DFHMDF POS=(11,40),LENGTH=10,ATTRB=ASKIP 00119 SPACE 00120 DFHMDF POS=(11,51),LENGTH=01,ATTRB=ASKIP 00121 SPACE 00122 DFHMDF POS=(12,01),LENGTH=05,ATTRB=ASKIP, *00123 INITIAL='TEL1:' 00124 SPACE 00125 F131207 DFHMDF POS=(12,07),LENGTH=03,ATTRB=ASKIP 00126 SPACE 00127 F131211 DFHMDF POS=(12,11),LENGTH=03,ATTRB=ASKIP 00128 SPACE 00129 F131215 DFHMDF POS=(12,15),LENGTH=04,ATTRB=ASKIP 00130 SPACE 00131 F131320 DFHMDF POS=(12,20),LENGTH=05,ATTRB=ASKIP 00132 SPACE 00133 DFHMDF POS=(12,26),LENGTH=01,ATTRB=ASKIP 00134 SPACE 00135 DFHMDF POS=(12,29),LENGTH=05,ATTRB=ASKIP, *00136 INITIAL='TEL2:' 00137 SPACE 00138 F131235 DFHMDF POS=(12,35),LENGTH=03,ATTRB=ASKIP 00139 SPACE 00140 F131239 DFHMDF POS=(12,39),LENGTH=03,ATTRB=ASKIP 00141 SPACE 00142 F131243 DFHMDF POS=(12,43),LENGTH=04,ATTRB=ASKIP 00143 SPACE 00144 F131248 DFHMDF POS=(12,48),LENGTH=05,ATTRB=ASKIP 00145 SPACE 00146 DFHMDF POS=(12,54),LENGTH=01,ATTRB=ASKIP 00147 SPACE 00148 DFHMDF POS=(12,57),LENGTH=04,ATTRB=ASKIP, *00149 INITIAL='FAX:' 00150 SPACE 00151 F131262 DFHMDF POS=(12,62),LENGTH=03,ATTRB=ASKIP 00152 SPACE 00153 F131266 DFHMDF POS=(12,66),LENGTH=03,ATTRB=ASKIP 00154 SPACE 00155 F131270 DFHMDF POS=(12,70),LENGTH=04,ATTRB=ASKIP 00156 SPACE 00157 F131275 DFHMDF POS=(12,75),LENGTH=05,ATTRB=ASKIP 00158 SPACE 00159 DFHMDF POS=(13,01),LENGTH=01,ATTRB=ASKIP 00160 SPACE 00161 DFHMDF POS=(13,03),LENGTH=06,ATTRB=ASKIP, *00162 INITIAL='EMAIL:' 00163 SPACE 00164 F131310 DFHMDF POS=(13,10),LENGTH=40,ATTRB=ASKIP 00165 SPACE 00166 DFHMDF POS=(13,51),LENGTH=01,ATTRB=ASKIP 00167 SPACE 00168 DFHMDF POS=(14,01),LENGTH=12,ATTRB=ASKIP, *00169 INITIAL=' DEBIT MEMO?' 00170 SPACE 00171 F131414 DFHMDF POS=(14,14),LENGTH=01,ATTRB=ASKIP 00172 SPACE 00173 DFHMDF POS=(14,16),LENGTH=01,ATTRB=ASKIP 00174 SPACE 00175 DFHMDF POS=(14,20),LENGTH=13,ATTRB=ASKIP, *00176 INITIAL='MISS RPT LTR?' 00177 SPACE 00178 F131433 DFHMDF POS=(14,34),LENGTH=01,ATTRB=ASKIP 00179 SPACE 00180 DFHMDF POS=(14,36),LENGTH=01,ATTRB=ASKIP 00181 SPACE 00182 DFHMDF POS=(14,40),LENGTH=14,ATTRB=ASKIP, *00183 INITIAL='PHYSICAL ADDR?' 00184 SPACE 00185 F131455 DFHMDF POS=(14,55),LENGTH=01,ATTRB=ASKIP 00186 SPACE 00187 DFHMDF POS=(14,57),LENGTH=01,ATTRB=ASKIP 00188 SPACE 00189 DFHMDF POS=(15,09),LENGTH=17,ATTRB=ASKIP, *00190 INITIAL='DC STREET ADDRESS' 00191 SPACE 00192 DFHMDF POS=(16,01),LENGTH=05,ATTRB=ASKIP, *00193 INITIAL='ATTN:' 00194 SPACE 00195 F131607 DFHMDF POS=(16,07),LENGTH=40,ATTRB=ASKIP 00196 SPACE 00197 DFHMDF POS=(16,48),LENGTH=01,ATTRB=ASKIP 00198 SPACE 00199 DFHMDF POS=(16,56),LENGTH=05,ATTRB=ASKIP, *00200 INITIAL='CASS?' 00201 SPACE 00202 F131662 DFHMDF POS=(16,62),LENGTH=01,ATTRB=ASKIP 00203 SPACE 00204 DFHMDF POS=(16,64),LENGTH=01,ATTRB=ASKIP 00205 SPACE 00206 DFHMDF POS=(17,01),LENGTH=05,ATTRB=ASKIP, *00207 INITIAL='DLV1:' 00208 SPACE 00209 F131707 DFHMDF POS=(17,07),LENGTH=40,ATTRB=ASKIP 00210 SPACE 00211 DFHMDF POS=(17,48),LENGTH=01,ATTRB=ASKIP 00212 SPACE 00213 DFHMDF POS=(17,56),LENGTH=07,ATTRB=ASKIP, *00214 INITIAL='CASS CD' 00215 SPACE 00216 DFHMDF POS=(18,01),LENGTH=05,ATTRB=ASKIP, *00217 INITIAL='DLV2:' 00218 SPACE 00219 F131807 DFHMDF POS=(18,07),LENGTH=40,ATTRB=ASKIP 00220 SPACE 00221 DFHMDF POS=(18,48),LENGTH=01,ATTRB=ASKIP 00222 SPACE 00223 F131854 DFHMDF POS=(18,54),LENGTH=25,ATTRB=ASKIP 00224 SPACE 00225 DFHMDF POS=(19,01),LENGTH=05,ATTRB=ASKIP, *00226 INITIAL='CITY:' 00227 SPACE 00228 F131907 DFHMDF POS=(19,07),LENGTH=25,ATTRB=ASKIP 00229 SPACE 00230 DFHMDF POS=(19,33),LENGTH=01,ATTRB=ASKIP, *00231 INITIAL=':' 00232 SPACE 00233 F131935 DFHMDF POS=(19,35),LENGTH=02,ATTRB=ASKIP 00234 SPACE 00235 DFHMDF POS=(19,38),LENGTH=01,ATTRB=ASKIP, *00236 INITIAL=':' 00237 SPACE 00238 F131940 DFHMDF POS=(19,40),LENGTH=10,ATTRB=ASKIP 00239 SPACE 00240 DFHMDF POS=(19,51),LENGTH=01,ATTRB=ASKIP 00241 SPACE 00242 DFHMDF POS=(20,01),LENGTH=05,ATTRB=ASKIP, *00243 INITIAL='TEL1:' 00244 SPACE 00245 F132007 DFHMDF POS=(20,07),LENGTH=03,ATTRB=ASKIP 00246 SPACE 00247 F132011 DFHMDF POS=(20,11),LENGTH=03,ATTRB=ASKIP 00248 SPACE 00249 F132015 DFHMDF POS=(20,15),LENGTH=04,ATTRB=ASKIP 00250 SPACE 00251 F132020 DFHMDF POS=(20,20),LENGTH=05,ATTRB=ASKIP 00252 SPACE 00253 DFHMDF POS=(20,26),LENGTH=01,ATTRB=ASKIP 00254 SPACE 00255 DFHMDF POS=(20,29),LENGTH=05,ATTRB=ASKIP, *00256 INITIAL='TEL2:' 00257 SPACE 00258 F132035 DFHMDF POS=(20,35),LENGTH=03,ATTRB=ASKIP 00259 SPACE 00260 F132039 DFHMDF POS=(20,39),LENGTH=03,ATTRB=ASKIP 00261 SPACE 00262 F132043 DFHMDF POS=(20,43),LENGTH=04,ATTRB=ASKIP 00263 SPACE 00264 F132048 DFHMDF POS=(20,48),LENGTH=05,ATTRB=ASKIP 00265 SPACE 00266 DFHMDF POS=(20,54),LENGTH=01,ATTRB=ASKIP 00267 SPACE 00268 DFHMDF POS=(20,57),LENGTH=04,ATTRB=ASKIP, *00269 INITIAL='FAX:' 00270 SPACE 00271 F132062 DFHMDF POS=(20,62),LENGTH=03,ATTRB=ASKIP 00272 SPACE 00273 F132066 DFHMDF POS=(20,66),LENGTH=03,ATTRB=ASKIP 00274 SPACE 00275 F132070 DFHMDF POS=(20,70),LENGTH=04,ATTRB=ASKIP 00276 SPACE 00277 F132075 DFHMDF POS=(20,75),LENGTH=05,ATTRB=ASKIP 00278 SPACE 00279 DFHMDF POS=(21,01),LENGTH=01,ATTRB=ASKIP 00280 SPACE 00281 DFHMDF POS=(21,03),LENGTH=06,ATTRB=ASKIP, *00282 INITIAL='EMAIL:' 00283 SPACE 00284 F132110 DFHMDF POS=(21,10),LENGTH=40,ATTRB=ASKIP 00285 SPACE 00286 DFHMDF POS=(21,51),LENGTH=01,ATTRB=ASKIP 00287 SPACE 00288 DFHMDF POS=(22,01),LENGTH=12,ATTRB=ASKIP, *00289 INITIAL=' DEBIT MEMO?' 00290 SPACE 00291 F132214 DFHMDF POS=(22,14),LENGTH=01,ATTRB=ASKIP 00292 SPACE 00293 DFHMDF POS=(22,16),LENGTH=01,ATTRB=ASKIP 00294 SPACE 00295 DFHMDF POS=(22,20),LENGTH=13,ATTRB=ASKIP, *00296 INITIAL='MISS RPT LTR?' 00297 SPACE 00298 F132233 DFHMDF POS=(22,34),LENGTH=01,ATTRB=ASKIP 00299 SPACE 00300 DFHMDF POS=(22,36),LENGTH=01,ATTRB=ASKIP 00301 SPACE 00302 DFHMDF POS=(22,40),LENGTH=14,ATTRB=ASKIP, *00303 INITIAL='PHYSICAL ADDR?' 00304 SPACE 00305 F132255 DFHMDF POS=(22,55),LENGTH=01,ATTRB=ASKIP 00306 SPACE 00307 DFHMDF POS=(22,57),LENGTH=01,ATTRB=ASKIP 00308 SPACE 00309 F132317 DFHMDF POS=(23,17),LENGTH=07,ATTRB=ASKIP 00310 SPACE 00311 F132401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=ASKIP 00312 SPACE 00313 F132410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=ASKIP 00314 SPACE 00315 DFHMDF POS=(24,69),LENGTH=06,ATTRB=ASKIP, *00316 INITIAL='GO TO:' 00317 SPACE 00318 F132476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=ASKIP 00319 SPACE 00320 DFHMDF POS=(24,79),LENGTH=01,ATTRB=ASKIP 00321