252 lines
19 KiB
Plaintext
252 lines
19 KiB
Plaintext
* DATA SET DTSM1B AT LEVEL 002 AS OF 08/10/98
|
|
* DATA SET MACM1B AT LEVEL 024 AS OF 03/31/95 00001
|
|
***** 00002
|
|
* 00003
|
|
* 1B CYCLE B INQUIRY/UPDATE 00004
|
|
* 00005
|
|
***** 00006
|
|
SPACE 00007
|
|
DTSM1B DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00008**2
|
|
SPACE 00009
|
|
F1B0101 DFHMDF POS=(1,1),LENGTH=02,ATTRB=(FSET,ASKIP), *00010
|
|
INITIAL='1B' 00011
|
|
SPACE 00012
|
|
DFHMDF POS=(1,25),LENGTH=22,ATTRB=(ASKIP), *00013
|
|
INITIAL='CYCLE B INQUIRY/UPDATE' 00014
|
|
SPACE 00015
|
|
F1B0162 DFHMDF POS=(1,62),LENGTH=08,ATTRB=(ASKIP) 00016
|
|
SPACE 00017
|
|
F1B0172 DFHMDF POS=(1,72),LENGTH=08,ATTRB=(ASKIP) 00018
|
|
SPACE 00019
|
|
DFHMDF POS=(02,04),LENGTH=07,ATTRB=(ASKIP), *00020
|
|
INITIAL='EMP NO:' 00021
|
|
SPACE 00022
|
|
F1B0212 DFHMDF POS=(02,12),LENGTH=03,ATTRB=(ASKIP) 00023
|
|
SPACE 00024
|
|
F1B0216 DFHMDF POS=(02,16),LENGTH=03,ATTRB=(ASKIP) 00025
|
|
SPACE 00026
|
|
DFHMDF POS=(02,20),LENGTH=01,ATTRB=(ASKIP) 00027
|
|
SPACE 00028
|
|
F1B0223 DFHMDF POS=(02,23),LENGTH=40,ATTRB=(ASKIP) 00029
|
|
SPACE 00030
|
|
F1B0272 DFHMDF POS=(2,72),LENGTH=08,ATTRB=(ASKIP) 00031
|
|
SPACE 00032
|
|
DFHMDF POS=(04,14),LENGTH=07,ATTRB=(ASKIP), *00033
|
|
INITIAL='SOURCE:' 00034
|
|
SPACE 00035
|
|
F1B0422 DFHMDF POS=(04,22),LENGTH=02,ATTRB=(ASKIP) 00036
|
|
SPACE 00037
|
|
DFHMDF POS=(04,25),LENGTH=01,ATTRB=(ASKIP) 00038
|
|
SPACE 00039
|
|
F1B0427 DFHMDF POS=(04,27),LENGTH=10,ATTRB=(ASKIP) 00040
|
|
SPACE 00041
|
|
DFHMDF POS=(05,09),LENGTH=12,ATTRB=(ASKIP), *00042
|
|
INITIAL='RELATED EMP:' 00043
|
|
SPACE 00044
|
|
F1B0522 DFHMDF POS=(05,22),LENGTH=03,ATTRB=(ASKIP) 00045
|
|
SPACE 00046
|
|
F1B0526 DFHMDF POS=(05,26),LENGTH=03,ATTRB=(ASKIP) 00047
|
|
SPACE 00048
|
|
DFHMDF POS=(05,30),LENGTH=01,ATTRB=(ASKIP) 00049
|
|
SPACE 00050
|
|
F1B0532 DFHMDF POS=(05,32),LENGTH=40,ATTRB=(ASKIP) 00051
|
|
SPACE 00052
|
|
DFHMDF POS=(06,04),LENGTH=17,ATTRB=(ASKIP), *00053
|
|
INITIAL='OPID RESPONSIBLE:' 00054
|
|
SPACE 00055
|
|
F1B0622 DFHMDF POS=(06,22),LENGTH=06,ATTRB=(ASKIP) 00056
|
|
SPACE 00057
|
|
DFHMDF POS=(06,29),LENGTH=01,ATTRB=(ASKIP) 00058
|
|
SPACE 00059
|
|
F1B0632 DFHMDF POS=(06,32),LENGTH=10,ATTRB=(ASKIP) 00060
|
|
SPACE 00061
|
|
DFHMDF POS=(06,45),LENGTH=10,ATTRB=(ASKIP), *00062
|
|
INITIAL='FIELD REP:' 00063
|
|
SPACE 00064
|
|
F1B0656 DFHMDF POS=(06,56),LENGTH=02,ATTRB=(ASKIP) 00065
|
|
SPACE 00066
|
|
DFHMDF POS=(06,59),LENGTH=01,ATTRB=(ASKIP) 00067
|
|
SPACE 00068
|
|
F1B0661 DFHMDF POS=(06,61),LENGTH=10,ATTRB=(ASKIP) 00069
|
|
SPACE 00070
|
|
DFHMDF POS=(08,07),LENGTH=05,ATTRB=(ASKIP), *00071
|
|
INITIAL='NOTE:' 00072
|
|
SPACE 00073
|
|
F1B0813 DFHMDF POS=(08,13),LENGTH=60,ATTRB=(ASKIP) 00074
|
|
SPACE 00075
|
|
DFHMDF POS=(08,74),LENGTH=01,ATTRB=(ASKIP) 00076
|
|
SPACE 00077
|
|
DFHMDF POS=(10,02),LENGTH=13,ATTRB=(ASKIP), *00078
|
|
INITIAL='CYC B STATUS:' 00079
|
|
SPACE 00080
|
|
F1B1016 DFHMDF POS=(10,16),LENGTH=02,ATTRB=(ASKIP) 00081
|
|
SPACE 00082
|
|
DFHMDF POS=(10,19),LENGTH=01,ATTRB=(ASKIP) 00083
|
|
SPACE 00084
|
|
F1B1021 DFHMDF POS=(10,21),LENGTH=10,ATTRB=(ASKIP) 00085
|
|
SPACE 00086
|
|
DFHMDF POS=(10,53),LENGTH=14,ATTRB=(ASKIP), *00087
|
|
INITIAL='LTR 1 MAIL DT:' 00088
|
|
SPACE 00089
|
|
F1B1068 DFHMDF POS=(10,68),LENGTH=02,ATTRB=(ASKIP) 00090
|
|
SPACE 00091
|
|
F1B1071 DFHMDF POS=(10,71),LENGTH=02,ATTRB=(ASKIP) 00092
|
|
SPACE 00093
|
|
F1B1074 DFHMDF POS=(10,74),LENGTH=02,ATTRB=(ASKIP) 00094
|
|
SPACE 00095
|
|
DFHMDF POS=(10,77),LENGTH=01,ATTRB=(ASKIP) 00096
|
|
SPACE 00097
|
|
DFHMDF POS=(11,05),LENGTH=10,ATTRB=(ASKIP), *00098
|
|
INITIAL='LETTER CD:' 00099
|
|
SPACE 00100
|
|
F1B1116 DFHMDF POS=(11,16),LENGTH=02,ATTRB=(ASKIP) 00101
|
|
SPACE 00102
|
|
DFHMDF POS=(11,19),LENGTH=01,ATTRB=(ASKIP) 00103
|
|
SPACE 00104
|
|
F1B1121 DFHMDF POS=(11,21),LENGTH=10,ATTRB=(ASKIP) 00105
|
|
SPACE 00106
|
|
DFHMDF POS=(11,53),LENGTH=14,ATTRB=(ASKIP), *00107
|
|
INITIAL='LTR 2 MAIL DT:' 00108
|
|
SPACE 00109
|
|
F1B1168 DFHMDF POS=(11,68),LENGTH=02,ATTRB=(ASKIP) 00110
|
|
SPACE 00111
|
|
F1B1171 DFHMDF POS=(11,71),LENGTH=02,ATTRB=(ASKIP) 00112
|
|
SPACE 00113
|
|
F1B1174 DFHMDF POS=(11,74),LENGTH=02,ATTRB=(ASKIP) 00114
|
|
SPACE 00115
|
|
DFHMDF POS=(11,77),LENGTH=01,ATTRB=(ASKIP) 00116
|
|
SPACE 00117
|
|
DFHMDF POS=(12,01),LENGTH=14,ATTRB=(ASKIP), *00118
|
|
INITIAL='1ST SENTNC CD:' 00119
|
|
SPACE 00120
|
|
F1B1216 DFHMDF POS=(12,16),LENGTH=01,ATTRB=(ASKIP) 00121
|
|
SPACE 00122
|
|
DFHMDF POS=(12,18),LENGTH=01,ATTRB=(ASKIP) 00123
|
|
SPACE 00124
|
|
F1B1221 DFHMDF POS=(12,21),LENGTH=10,ATTRB=(ASKIP) 00125
|
|
SPACE 00126
|
|
DFHMDF POS=(13,07),LENGTH=08,ATTRB=(ASKIP), *00127
|
|
INITIAL='FUTA YR:' 00128
|
|
SPACE 00129
|
|
F1B1316 DFHMDF POS=(13,16),LENGTH=02,ATTRB=(ASKIP) 00130
|
|
SPACE 00131
|
|
DFHMDF POS=(13,19),LENGTH=01,ATTRB=(ASKIP) 00132
|
|
SPACE 00133
|
|
DFHMDF POS=(14,07),LENGTH=08,ATTRB=(ASKIP), *00134
|
|
INITIAL='#LABELS:' 00135
|
|
SPACE 00136
|
|
F1B1416 DFHMDF POS=(14,16),LENGTH=01,ATTRB=(ASKIP) 00137
|
|
SPACE 00138
|
|
DFHMDF POS=(14,18),LENGTH=01,ATTRB=(ASKIP) 00139
|
|
SPACE 00140
|
|
DFHMDF POS=(16,01),LENGTH=17,ATTRB=(ASKIP), *00141
|
|
INITIAL='UI-1 RECEIVED DT:' 00142
|
|
SPACE 00143
|
|
F1B1619 DFHMDF POS=(16,19),LENGTH=02,ATTRB=(ASKIP) 00144
|
|
SPACE 00145
|
|
F1B1622 DFHMDF POS=(16,22),LENGTH=02,ATTRB=(ASKIP) 00146
|
|
SPACE 00147
|
|
F1B1625 DFHMDF POS=(16,25),LENGTH=02,ATTRB=(ASKIP) 00148
|
|
SPACE 00149
|
|
DFHMDF POS=(16,28),LENGTH=01,ATTRB=(ASKIP) 00150
|
|
SPACE 00151
|
|
DFHMDF POS=(17,01),LENGTH=17,ATTRB=(ASKIP), *00152
|
|
INITIAL='DETR NOT SUBJ DT:' 00153
|
|
SPACE 00154
|
|
F1B1719 DFHMDF POS=(17,19),LENGTH=02,ATTRB=(ASKIP) 00155
|
|
SPACE 00156
|
|
F1B1722 DFHMDF POS=(17,22),LENGTH=02,ATTRB=(ASKIP) 00157
|
|
SPACE 00158
|
|
F1B1725 DFHMDF POS=(17,25),LENGTH=02,ATTRB=(ASKIP) 00159
|
|
SPACE 00160
|
|
DFHMDF POS=(17,28),LENGTH=01,ATTRB=(ASKIP) 00161
|
|
SPACE 00162
|
|
DFHMDF POS=(19,02),LENGTH=05,ATTRB=(ASKIP), *00163
|
|
INITIAL='ATTN:' 00164
|
|
SPACE 00165
|
|
F1B1908 DFHMDF POS=(19,08),LENGTH=40,ATTRB=(ASKIP) 00166
|
|
SPACE 00167
|
|
DFHMDF POS=(19,52),LENGTH=09,ATTRB=(ASKIP), *00168
|
|
INITIAL='ATTN IND:' 00169
|
|
SPACE 00170
|
|
F1B1962 DFHMDF POS=(19,62),LENGTH=01,ATTRB=(ASKIP) 00171
|
|
SPACE 00172
|
|
DFHMDF POS=(19,65),LENGTH=12,ATTRB=(ASKIP), *00173
|
|
INITIAL='DELIVERABLE?' 00174
|
|
SPACE 00175
|
|
F1B1978 DFHMDF POS=(19,78),LENGTH=01,ATTRB=(ASKIP) 00176
|
|
SPACE 00177
|
|
DFHMDF POS=(20,03),LENGTH=04,ATTRB=(ASKIP), *00178
|
|
INITIAL='DLV:' 00179
|
|
SPACE 00180
|
|
F1B2008 DFHMDF POS=(20,08),LENGTH=40,ATTRB=(ASKIP) 00181
|
|
SPACE 00182
|
|
DFHMDF POS=(21,03),LENGTH=04,ATTRB=(ASKIP), *00183
|
|
INITIAL='CTY:' 00184
|
|
SPACE 00185
|
|
F1B2108 DFHMDF POS=(21,08),LENGTH=25,ATTRB=(ASKIP) 00186
|
|
SPACE 00187
|
|
DFHMDF POS=(21,34),LENGTH=01,ATTRB=(ASKIP), *00188
|
|
INITIAL=':' 00189
|
|
SPACE 00190
|
|
F1B2136 DFHMDF POS=(21,36),LENGTH=02,ATTRB=(ASKIP) 00191
|
|
SPACE 00192
|
|
DFHMDF POS=(21,39),LENGTH=01,ATTRB=(ASKIP), *00193
|
|
INITIAL=':' 00194
|
|
SPACE 00195
|
|
F1B2141 DFHMDF POS=(21,41),LENGTH=10,ATTRB=(ASKIP) 00196
|
|
SPACE 00197
|
|
DFHMDF POS=(22,03),LENGTH=04,ATTRB=(ASKIP), *00198
|
|
INITIAL='TEL:' 00199
|
|
SPACE 00200
|
|
F1B2208 DFHMDF POS=(22,08),LENGTH=03,ATTRB=(ASKIP) 00201
|
|
SPACE 00202
|
|
F1B2212 DFHMDF POS=(22,12),LENGTH=03,ATTRB=(ASKIP) 00203
|
|
SPACE 00204
|
|
F1B2216 DFHMDF POS=(22,16),LENGTH=04,ATTRB=(ASKIP) 00205
|
|
SPACE 00206
|
|
DFHMDF POS=(22,21),LENGTH=01,ATTRB=(ASKIP) 00207
|
|
SPACE 00208
|
|
DFHMDF POS=(22,30),LENGTH=05,ATTRB=(ASKIP), *00209
|
|
INITIAL='TEL2:' 00210
|
|
SPACE 00211
|
|
F1B2236 DFHMDF POS=(22,36),LENGTH=03,ATTRB=(ASKIP) 00212
|
|
SPACE 00213
|
|
F1B2240 DFHMDF POS=(22,40),LENGTH=03,ATTRB=(ASKIP) 00214
|
|
SPACE 00215
|
|
F1B2244 DFHMDF POS=(22,44),LENGTH=04,ATTRB=(ASKIP) 00216
|
|
SPACE 00217
|
|
DFHMDF POS=(22,49),LENGTH=01,ATTRB=(ASKIP) 00218
|
|
SPACE 00219
|
|
DFHMDF POS=(22,57),LENGTH=04,ATTRB=(ASKIP), *00220
|
|
INITIAL='FAX:' 00221
|
|
SPACE 00222
|
|
F1B2262 DFHMDF POS=(22,62),LENGTH=03,ATTRB=(ASKIP) 00223
|
|
SPACE 00224
|
|
F1B2266 DFHMDF POS=(22,66),LENGTH=03,ATTRB=(ASKIP) 00225
|
|
SPACE 00226
|
|
F1B2270 DFHMDF POS=(22,70),LENGTH=04,ATTRB=(ASKIP) 00227
|
|
SPACE 00228
|
|
DFHMDF POS=(22,75),LENGTH=01,ATTRB=(ASKIP) 00229
|
|
SPACE 00230
|
|
F1B2319 DFHMDF POS=(23,19),LENGTH=07,ATTRB=(ASKIP) 00231
|
|
SPACE 00232
|
|
F1B2328 DFHMDF POS=(23,28),LENGTH=07,ATTRB=(ASKIP) 00233
|
|
SPACE 00234
|
|
F1B2337 DFHMDF POS=(23,37),LENGTH=07,ATTRB=(ASKIP) 00235
|
|
SPACE 00236
|
|
F1B2346 DFHMDF POS=(23,46),LENGTH=11,ATTRB=(ASKIP) 00237
|
|
SPACE 00238
|
|
F1B2359 DFHMDF POS=(23,59),LENGTH=10,ATTRB=(ASKIP) 00239
|
|
SPACE 00240
|
|
F1B2401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=(ASKIP) 00241
|
|
SPACE 00242
|
|
F1B2410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=(ASKIP) 00243
|
|
SPACE 00244
|
|
DFHMDF POS=(24,69),LENGTH=06,ATTRB=(ASKIP), *00245
|
|
INITIAL='GO TO:' 00246
|
|
SPACE 00247
|
|
F1B2476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=(ASKIP) 00248
|
|
SPACE 00249
|
|
DFHMDF POS=(24,79),LENGTH=01,ATTRB=(ASKIP) 00250
|