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