CICS/DTSCS13.cob

This commit is contained in:
faizana
2025-09-04 08:56:50 -04:00
parent 3d0b3b793e
commit 7ca284b0f7
8 changed files with 8334 additions and 8350 deletions

View File

@ -1,321 +1,322 @@
* 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
* 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