Files
DUTAS/Maps/DTSM13.bms
2025-09-04 08:56:50 -04:00

323 lines
24 KiB
Plaintext

* 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