* 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