285 lines
22 KiB
Plaintext
285 lines
22 KiB
Plaintext
* DATA SET DTSM98 AT LEVEL 008 AS OF 09/01/98
|
|
***** 00001
|
|
* 00002
|
|
* 98 MASTER FILE HEADER RECORD INQUIRY/UPDATE. 00003
|
|
* 00004
|
|
* 00005**8
|
|
* 09/01/1998 REVIEWED AND MODIFIED FOR DC. EHH 00006**8
|
|
* 00007**8
|
|
***** 00008
|
|
SPACE 00009
|
|
DTSM98 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00010**2
|
|
SPACE 00011
|
|
F980101 DFHMDF POS=(1,1),LENGTH=02,ATTRB=(FSET,ASKIP), *00012
|
|
INITIAL='98' 00013
|
|
SPACE 00014
|
|
DFHMDF POS=(1,14),LENGTH=40,ATTRB=(ASKIP), *00015
|
|
INITIAL='MASTER FILE HEADER RECORD INQUIRY/UPDATE' 00016
|
|
SPACE 00017
|
|
F980162 DFHMDF POS=(1,62),LENGTH=08,ATTRB=(ASKIP) 00018
|
|
SPACE 00019
|
|
F980172 DFHMDF POS=(1,72),LENGTH=08,ATTRB=(ASKIP) 00020
|
|
SPACE 00021
|
|
F980272 DFHMDF POS=(2,72),LENGTH=08,ATTRB=(ASKIP) 00022
|
|
SPACE 00023
|
|
DFHMDF POS=(3,11),LENGTH=08,ATTRB=(ASKIP,BRT), *00024
|
|
INITIAL='WARNING:' 00025
|
|
SPACE 00026
|
|
DFHMDF POS=(3,21),LENGTH=45,ATTRB=(ASKIP,BRT), *00027
|
|
INITIAL='USE THE MODIFY (F10) FUNCTION WITH GREAT CARE' 00028
|
|
SPACE 00029
|
|
DFHMDF POS=(05,02),LENGTH=18,ATTRB=(ASKIP), *00030
|
|
INITIAL='RUN DATES - PRIOR:' 00031
|
|
SPACE 00032
|
|
F980521 DFHMDF POS=(05,21),LENGTH=02,ATTRB=(ASKIP) 00033
|
|
SPACE 00034
|
|
F980524 DFHMDF POS=(05,24),LENGTH=02,ATTRB=(ASKIP) 00035
|
|
SPACE 00036
|
|
F980527 DFHMDF POS=(05,27),LENGTH=02,ATTRB=(ASKIP) 00037
|
|
SPACE 00038
|
|
DFHMDF POS=(05,30),LENGTH=01,ATTRB=(ASKIP) 00039
|
|
SPACE 00040
|
|
DFHMDF POS=(05,33),LENGTH=08,ATTRB=(ASKIP), *00041
|
|
INITIAL='CURRENT:' 00042
|
|
SPACE 00043
|
|
F980542 DFHMDF POS=(05,42),LENGTH=02,ATTRB=(ASKIP) 00044
|
|
SPACE 00045
|
|
F980545 DFHMDF POS=(05,45),LENGTH=02,ATTRB=(ASKIP) 00046
|
|
SPACE 00047
|
|
F980548 DFHMDF POS=(05,48),LENGTH=02,ATTRB=(ASKIP) 00048
|
|
SPACE 00049
|
|
DFHMDF POS=(05,51),LENGTH=01,ATTRB=(ASKIP) 00050
|
|
SPACE 00051
|
|
DFHMDF POS=(05,54),LENGTH=05,ATTRB=(ASKIP), *00052
|
|
INITIAL='NEXT:' 00053
|
|
SPACE 00054
|
|
F980560 DFHMDF POS=(05,60),LENGTH=02,ATTRB=(ASKIP) 00055
|
|
SPACE 00056
|
|
F980563 DFHMDF POS=(05,63),LENGTH=02,ATTRB=(ASKIP) 00057
|
|
SPACE 00058
|
|
F980566 DFHMDF POS=(05,66),LENGTH=02,ATTRB=(ASKIP) 00059
|
|
SPACE 00060
|
|
DFHMDF POS=(05,69),LENGTH=01,ATTRB=(ASKIP) 00061
|
|
SPACE 00062
|
|
DFHMDF POS=(06,01),LENGTH=19,ATTRB=(ASKIP), *00063
|
|
INITIAL='MAIL DATES - PRIOR:' 00064
|
|
SPACE 00065
|
|
F980621 DFHMDF POS=(06,21),LENGTH=02,ATTRB=(ASKIP) 00066
|
|
SPACE 00067
|
|
F980624 DFHMDF POS=(06,24),LENGTH=02,ATTRB=(ASKIP) 00068
|
|
SPACE 00069
|
|
F980627 DFHMDF POS=(06,27),LENGTH=02,ATTRB=(ASKIP) 00070
|
|
SPACE 00071
|
|
DFHMDF POS=(06,30),LENGTH=01,ATTRB=(ASKIP) 00072
|
|
SPACE 00073
|
|
DFHMDF POS=(06,33),LENGTH=08,ATTRB=(ASKIP), *00074
|
|
INITIAL='CURRENT:' 00075
|
|
SPACE 00076
|
|
F980642 DFHMDF POS=(06,42),LENGTH=02,ATTRB=(ASKIP) 00077
|
|
SPACE 00078
|
|
F980645 DFHMDF POS=(06,45),LENGTH=02,ATTRB=(ASKIP) 00079
|
|
SPACE 00080
|
|
F980648 DFHMDF POS=(06,48),LENGTH=02,ATTRB=(ASKIP) 00081
|
|
SPACE 00082
|
|
DFHMDF POS=(06,51),LENGTH=01,ATTRB=(ASKIP) 00083
|
|
SPACE 00084
|
|
DFHMDF POS=(06,54),LENGTH=05,ATTRB=(ASKIP), *00085
|
|
INITIAL='NEXT:' 00086
|
|
SPACE 00087
|
|
F980660 DFHMDF POS=(06,60),LENGTH=02,ATTRB=(ASKIP) 00088
|
|
SPACE 00089
|
|
F980663 DFHMDF POS=(06,63),LENGTH=02,ATTRB=(ASKIP) 00090
|
|
SPACE 00091
|
|
F980666 DFHMDF POS=(06,66),LENGTH=02,ATTRB=(ASKIP) 00092
|
|
SPACE 00093
|
|
DFHMDF POS=(06,69),LENGTH=01,ATTRB=(ASKIP) 00094
|
|
SPACE 00095
|
|
DFHMDF POS=(08,02),LENGTH=32,ATTRB=(ASKIP), *00096
|
|
INITIAL='END DATES - LAST COMPLETED WEEK:' 00097
|
|
SPACE 00098
|
|
F980835 DFHMDF POS=(08,35),LENGTH=02,ATTRB=(ASKIP) 00099
|
|
SPACE 00100
|
|
F980838 DFHMDF POS=(08,38),LENGTH=02,ATTRB=(ASKIP) 00101
|
|
SPACE 00102
|
|
F980841 DFHMDF POS=(08,41),LENGTH=02,ATTRB=(ASKIP) 00103
|
|
SPACE 00104
|
|
DFHMDF POS=(08,44),LENGTH=01,ATTRB=(ASKIP) 00105
|
|
SPACE 00106
|
|
DFHMDF POS=(08,47),LENGTH=06,ATTRB=(ASKIP), *00107
|
|
INITIAL='MONTH:' 00108
|
|
SPACE 00109
|
|
F980854 DFHMDF POS=(08,54),LENGTH=02,ATTRB=(ASKIP) 00110
|
|
SPACE 00111
|
|
F980857 DFHMDF POS=(08,57),LENGTH=02,ATTRB=(ASKIP) 00112
|
|
SPACE 00113
|
|
F980860 DFHMDF POS=(08,60),LENGTH=02,ATTRB=(ASKIP) 00114
|
|
SPACE 00115
|
|
DFHMDF POS=(08,63),LENGTH=01,ATTRB=(ASKIP) 00116
|
|
SPACE 00117
|
|
DFHMDF POS=(09,30),LENGTH=04,ATTRB=(ASKIP), *00118
|
|
INITIAL='QTR:' 00119
|
|
SPACE 00120
|
|
F980935 DFHMDF POS=(09,35),LENGTH=02,ATTRB=(ASKIP) 00121
|
|
SPACE 00122
|
|
F980938 DFHMDF POS=(09,38),LENGTH=02,ATTRB=(ASKIP) 00123
|
|
SPACE 00124
|
|
F980941 DFHMDF POS=(09,41),LENGTH=02,ATTRB=(ASKIP) 00125
|
|
SPACE 00126
|
|
DFHMDF POS=(09,44),LENGTH=01,ATTRB=(ASKIP) 00127
|
|
SPACE 00128
|
|
DFHMDF POS=(09,47),LENGTH=05,ATTRB=(ASKIP), *00129
|
|
INITIAL='YEAR:' 00130
|
|
SPACE 00131
|
|
F980954 DFHMDF POS=(09,54),LENGTH=02,ATTRB=(ASKIP) 00132
|
|
SPACE 00133
|
|
F980957 DFHMDF POS=(09,57),LENGTH=02,ATTRB=(ASKIP) 00134
|
|
SPACE 00135
|
|
F980960 DFHMDF POS=(09,60),LENGTH=02,ATTRB=(ASKIP) 00136
|
|
SPACE 00137
|
|
DFHMDF POS=(09,63),LENGTH=01,ATTRB=(ASKIP) 00138
|
|
SPACE 00139
|
|
DFHMDF POS=(11,02),LENGTH=19,ATTRB=(ASKIP), *00140
|
|
INITIAL='LAST USED - EMP NO:' 00141
|
|
SPACE 00142
|
|
F981122 DFHMDF POS=(11,22),LENGTH=03,ATTRB=(ASKIP) 00143
|
|
SPACE 00144
|
|
F981126 DFHMDF POS=(11,26),LENGTH=03,ATTRB=(ASKIP) 00145
|
|
SPACE 00146
|
|
DFHMDF POS=(11,30),LENGTH=01,ATTRB=(ASKIP) 00147
|
|
SPACE 00148
|
|
DFHMDF POS=(11,33),LENGTH=16,ATTRB=(ASKIP), *00149
|
|
INITIAL='FIELD ASSIGN NO:' 00150
|
|
SPACE 00151
|
|
F981150 DFHMDF POS=(11,50),LENGTH=02,ATTRB=(ASKIP) 00152
|
|
SPACE 00153
|
|
F981153 DFHMDF POS=(11,53),LENGTH=05,ATTRB=(ASKIP) 00154
|
|
SPACE 00155
|
|
DFHMDF POS=(11,59),LENGTH=01,ATTRB=(ASKIP) 00156
|
|
SPACE 00157
|
|
DFHMDF POS=(11,62),LENGTH=09,ATTRB=(ASKIP), *00158
|
|
INITIAL='BATCH NO:' 00159
|
|
SPACE 00160
|
|
F981172 DFHMDF POS=(11,72),LENGTH=05,ATTRB=(ASKIP) 00161
|
|
SPACE 00162
|
|
DFHMDF POS=(11,78),LENGTH=01,ATTRB=(ASKIP) 00163
|
|
SPACE 00164**3
|
|
DFHMDF POS=(12,13),LENGTH=08,ATTRB=(ASKIP), *00165**3
|
|
INITIAL='LIEN NO:' 00166**3
|
|
SPACE 00167**3
|
|
F981222 DFHMDF POS=(12,22),LENGTH=02,ATTRB=(ASKIP) 00168**3
|
|
SPACE 00169**3
|
|
F981225 DFHMDF POS=(12,25),LENGTH=04,ATTRB=(ASKIP) 00170**3
|
|
SPACE 00171**3
|
|
DFHMDF POS=(12,30),LENGTH=01,ATTRB=(ASKIP) 00172**3
|
|
SPACE 00173**3
|
|
DFHMDF POS=(12,41),LENGTH=08,ATTRB=(ASKIP), *00174**3
|
|
INITIAL='LEVY NO:' 00175**3
|
|
SPACE 00176**3
|
|
F981250 DFHMDF POS=(12,50),LENGTH=02,ATTRB=(ASKIP) 00177**3
|
|
SPACE 00178**3
|
|
F981253 DFHMDF POS=(12,53),LENGTH=04,ATTRB=(ASKIP) 00179**3
|
|
SPACE 00180**3
|
|
DFHMDF POS=(12,58),LENGTH=01,ATTRB=(ASKIP) 00181**3
|
|
SPACE 00182**3
|
|
DFHMDF POS=(12,61),LENGTH=10,ATTRB=(ASKIP), *00183**3
|
|
INITIAL='REFUND NO:' 00184**3
|
|
SPACE 00185**3
|
|
F981272 DFHMDF POS=(12,72),LENGTH=02,ATTRB=(ASKIP) 00186**3
|
|
SPACE 00187**3
|
|
F981275 DFHMDF POS=(12,75),LENGTH=04,ATTRB=(ASKIP) 00188**3
|
|
SPACE 00189
|
|
DFHMDF POS=(12,80),LENGTH=01,ATTRB=(ASKIP) 00190**3
|
|
SPACE 00191
|
|
DFHMDF POS=(14,02),LENGTH=27,ATTRB=(ASKIP), *00192**3
|
|
INITIAL='LAST UC-30 - MASS MAIL QTR:' 00193**3
|
|
SPACE 00194
|
|
F981430 DFHMDF POS=(14,30),LENGTH=02,ATTRB=(ASKIP) 00195**3
|
|
SPACE 00196
|
|
F981433 DFHMDF POS=(14,33),LENGTH=01,ATTRB=(ASKIP) 00197**3
|
|
SPACE 00198
|
|
DFHMDF POS=(14,35),LENGTH=01,ATTRB=(ASKIP) 00199**3
|
|
SPACE 00200
|
|
DFHMDF POS=(14,37),LENGTH=17,ATTRB=(ASKIP), *00201**3
|
|
INITIAL='PEN ASSESSED QTR:' 00202**3
|
|
SPACE 00203
|
|
F981455 DFHMDF POS=(14,55),LENGTH=02,ATTRB=(ASKIP) 00204**3
|
|
SPACE 00205
|
|
F981458 DFHMDF POS=(14,58),LENGTH=01,ATTRB=(ASKIP) 00206**3
|
|
SPACE 00207
|
|
DFHMDF POS=(14,60),LENGTH=01,ATTRB=(ASKIP) 00208**3
|
|
SPACE 00209
|
|
DFHMDF POS=(14,62),LENGTH=13,ATTRB=(ASKIP), *00210**3
|
|
INITIAL='DEL MAIL QTR:' 00211**3
|
|
SPACE 00212**3
|
|
F981476 DFHMDF POS=(14,76),LENGTH=02,ATTRB=(ASKIP) 00213**3
|
|
SPACE 00214**3
|
|
F981479 DFHMDF POS=(14,79),LENGTH=01,ATTRB=(ASKIP) 00215**3
|
|
SPACE 00216**3
|
|
DFHMDF POS=(15,01),LENGTH=01,ATTRB=(ASKIP) 00217**3
|
|
SPACE 00218**3
|
|
DFHMDF POS=(16,03),LENGTH=22,ATTRB=(ASKIP), *00219**7
|
|
INITIAL='FIRST PURSUED RPT QTR:' 00220**3
|
|
SPACE 00221
|
|
F981626 DFHMDF POS=(16,26),LENGTH=02,ATTRB=(ASKIP) 00222**7
|
|
SPACE 00223
|
|
F981629 DFHMDF POS=(16,29),LENGTH=01,ATTRB=(ASKIP) 00224**7
|
|
SPACE 00225
|
|
DFHMDF POS=(16,31),LENGTH=01,ATTRB=(ASKIP) 00226**7
|
|
SPACE 00227
|
|
DFHMDF POS=(16,39),LENGTH=23,ATTRB=(ASKIP), *00228**3
|
|
INITIAL='LAST RATE ASSIGNED QTR:' 00229**3
|
|
SPACE 00230
|
|
F981663 DFHMDF POS=(16,63),LENGTH=02,ATTRB=(ASKIP) 00231**4
|
|
SPACE 00232**4
|
|
F981666 DFHMDF POS=(16,66),LENGTH=01,ATTRB=(ASKIP) 00233**4
|
|
SPACE 00234**4
|
|
DFHMDF POS=(16,68),LENGTH=01,ATTRB=(ASKIP) 00235**4
|
|
SPACE 00236**4
|
|
DFHMDF POS=(18,10),LENGTH=15,ATTRB=(ASKIP), *00237**6
|
|
INITIAL='DEFAULT RCV DT:' 00238**6
|
|
SPACE 00239
|
|
F981826 DFHMDF POS=(18,26),LENGTH=02,ATTRB=(ASKIP) 00240**6
|
|
SPACE 00241
|
|
F981829 DFHMDF POS=(18,29),LENGTH=02,ATTRB=(ASKIP) 00242**6
|
|
SPACE 00243
|
|
F981832 DFHMDF POS=(18,32),LENGTH=02,ATTRB=(ASKIP) 00244**6
|
|
SPACE 00245**6
|
|
DFHMDF POS=(18,35),LENGTH=01,ATTRB=(ASKIP) 00246**6
|
|
SPACE 00247**6
|
|
DFHMDF POS=(20,01),LENGTH=38,ATTRB=(ASKIP), *00248**6
|
|
INITIAL='JOURNAL RECORDS CREATED ON OR PRIOR TO' 00249**6
|
|
SPACE 00250**6
|
|
F982040 DFHMDF POS=(20,40),LENGTH=02,ATTRB=(ASKIP) 00251**6
|
|
SPACE 00252**6
|
|
F982043 DFHMDF POS=(20,43),LENGTH=02,ATTRB=(ASKIP) 00253**6
|
|
SPACE 00254**6
|
|
F982046 DFHMDF POS=(20,46),LENGTH=02,ATTRB=(ASKIP) 00255**6
|
|
SPACE 00256
|
|
DFHMDF POS=(20,49),LENGTH=13,ATTRB=(ASKIP), *00257**4
|
|
INITIAL='ARE ARCHIVED.' 00258
|
|
SPACE 00259
|
|
DFHMDF POS=(21,60),LENGTH=10,ATTRB=(ASKIP), *00260**4
|
|
INITIAL='ESTB DATE:' 00261
|
|
SPACE 00262
|
|
F982171 DFHMDF POS=(21,71),LENGTH=08,ATTRB=(ASKIP) 00263**4
|
|
SPACE 00264
|
|
DFHMDF POS=(22,60),LENGTH=10,ATTRB=(ASKIP), *00265**4
|
|
INITIAL='CHNG DATE:' 00266
|
|
SPACE 00267
|
|
F982271 DFHMDF POS=(22,71),LENGTH=08,ATTRB=(ASKIP) 00268**4
|
|
SPACE 00269
|
|
F982322 DFHMDF POS=(23,22),LENGTH=07,ATTRB=(ASKIP) 00270**7
|
|
SPACE 00271
|
|
F982331 DFHMDF POS=(23,31),LENGTH=07,ATTRB=(ASKIP) 00272**7
|
|
SPACE 00273
|
|
F982401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=(ASKIP) 00274
|
|
SPACE 00275
|
|
F982410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=(ASKIP) 00276
|
|
SPACE 00277
|
|
DFHMDF POS=(24,69),LENGTH=06,ATTRB=(ASKIP), *00278
|
|
INITIAL='GO TO:' 00279
|
|
SPACE 00280
|
|
F982476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=(ASKIP) 00281
|
|
SPACE 00282
|
|
DFHMDF POS=(24,79),LENGTH=01,ATTRB=(ASKIP) 00283
|