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

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@ -1,4 +1,4 @@
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS81.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS26.cob

View File

@ -1,6 +1,6 @@
00001 ***** 09/13/12
00001 ***** 05/11/17
00002 * DTSIS13
00003 * DTSIS13 TAX ADDRESS INQUIRY/UPDATE SEND/RECEIVE AREA. LV012
00003 * DTSIS13 TAX ADDRESS INQUIRY/UPDATE SEND/RECEIVE AREA. LV003
00004 * DTSIS13
00005 ***** DTSIS13
00006 SKIP1 DTSIS13
@ -126,15 +126,15 @@
00126 25 MAP-PHONE-EXT-A PIC X(01). DTSIS13
00127 25 MAP-PHONE-EXT PIC X(05). DTSIS13
00128 SKIP1 DTSIS13
00129 15 MAP-EMAIL-AREA. DTSIS13
00130 20 MAP-EMAIL-L PIC S9(04) COMP. DTSIS13
00131 20 MAP-EMAIL-A PIC X(01). DTSIS13
00132 20 MAP-EMAIL PIC X(40). DTSIS13
00129 15 MAP-EMAIL-AREA. CL**3
00130 20 MAP-EMAIL-L PIC S9(04) COMP. CL**3
00131 20 MAP-EMAIL-A PIC X(01). CL**3
00132 20 MAP-EMAIL PIC X(40). CL**3
00133 SKIP1 DTSIS13
00134 15 MAP-EMAIL-UC30-AREA. DTSIS13
00135 20 MAP-EMAIL-UC30-L PIC S9(04) COMP. DTSIS13
00136 20 MAP-EMAIL-UC30-A PIC X(01). DTSIS13
00137 20 MAP-EMAIL-UC30 PIC X(01). DTSIS13
00134 * 15 MAP-EMAIL-UC30-AREA. CL**3
00135 * 20 MAP-EMAIL-UC30-L PIC S9(04) COMP. CL**3
00136 * 20 MAP-EMAIL-UC30-A PIC X(01). CL**3
00137 * 20 MAP-EMAIL-UC30 PIC X(01). CL**3
00138 SKIP1 DTSIS13
00139 15 MAP-MEMO-AREA. DTSIS13
00140 20 MAP-MEMO-L PIC S9(04) COMP. DTSIS13

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

File diff suppressed because it is too large Load Diff

View File

@ -12298,16 +12298,6 @@
02 FILLER REDEFINES F440319F.
04 F440319A PIC X.
02 F440319I PIC X(10).
02 F440352L PIC S9(4) COMP-5.
02 F440352F PIC X(1).
02 FILLER REDEFINES F440352F.
04 F440352A PIC X.
02 F440352I PIC X(2).
02 F440355L PIC S9(4) COMP-5.
02 F440355F PIC X(1).
02 FILLER REDEFINES F440355F.
04 F440355A PIC X.
02 F440355I PIC X(10).
02 F440372L PIC S9(4) COMP-5.
02 F440372F PIC X(1).
02 FILLER REDEFINES F440372F.
@ -12964,10 +12954,6 @@
02 FILLER PIC X(3).
02 F440319O PIC X(10).
02 FILLER PIC X(3).
02 F440352O PIC X(2).
02 FILLER PIC X(3).
02 F440355O PIC X(10).
02 FILLER PIC X(3).
02 F440372O PIC X(2).
02 FILLER PIC X(3).
02 F440378O PIC X(2).

View File

@ -34863,41 +34863,6 @@
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="13"
Initial="FIELD REP ID:"
Line="3"
Col="38"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Name="F440352"
Length="2"
Line="3"
Col="52"
ByteLength="5"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Name="F440355"
Length="10"
Line="3"
Col="55"
ByteLength="13"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Name="F440372"
Length="2"