* DATA SET DTSM1A AT LEVEL 015 AS OF 09/29/04 * DATA SET DTSM1A AT LEVEL 004 AS OF 07/21/04 00001 * DATA SET DTSM1A AT LEVEL 013 AS OF 01/29/02 00002 * DATA SET DTSM1A AT LEVEL 002 AS OF 10/16/01 00003 * DATA SET DTSM1A AT LEVEL 011 AS OF 07/18/00 00004 * DATA SET DTSM1A AT LEVEL 002 AS OF 05/26/00 00005 * DATA SET DTSM1A AT LEVEL 009 AS OF 09/19/98 00006 ***** 00007 * 00008 * 1A INITIAL REGISTRATION/CYCLE A INQUIRY/UPDATE 00009 * 00010 * 00011 * 09/08/1998 REVIEWED AND MODIFIED FOR DC. EHH 00012 * 05/26/2000 ADDED FISCAL AGENT TO SCREEN. ZL1 00013 * 00014 ***** 00015 SPACE 00016 DTSM1A DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00017 SPACE 00018 F1A0101 DFHMDF POS=(1,1),LENGTH=02,ATTRB=(FSET,ASKIP), *00019 INITIAL='1A' 00020 SPACE 00021 DFHMDF POS=(1,12),LENGTH=43,ATTRB=(ASKIP), *00022 INITIAL='INITIAL REGISTRATION/CYCLE A INQUIRY/UPDATE' 00023 SPACE 00024 F1A0162 DFHMDF POS=(1,62),LENGTH=08,ATTRB=(ASKIP) 00025 SPACE 00026 F1A0172 DFHMDF POS=(1,72),LENGTH=08,ATTRB=(ASKIP) 00027 SPACE 00028 DFHMDF POS=(02,06),LENGTH=07,ATTRB=(ASKIP), *00029 INITIAL='EMP NO:' 00030 SPACE 00031 F1A0214 DFHMDF POS=(02,14),LENGTH=03,ATTRB=(ASKIP) 00032 SPACE 00033 F1A0218 DFHMDF POS=(02,18),LENGTH=03,ATTRB=(ASKIP) 00034 SPACE 00035 DFHMDF POS=(02,22),LENGTH=01,ATTRB=(ASKIP) 00036 SPACE 00037 DFHMDF POS=(02,27),LENGTH=11,ATTRB=(ASKIP), *00038 INITIAL='DELETE EMP?' 00039 SPACE 00040 F1A0239 DFHMDF POS=(02,39),LENGTH=01,ATTRB=(ASKIP) 00041 SPACE 00042 DFHMDF POS=(02,41),LENGTH=01,ATTRB=(ASKIP) 00043 SPACE 00044 DFHMDF POS=(02,46),LENGTH=16,ATTRB=(ASKIP), *00045 INITIAL='CHG ONLY ELG CD:' 00046 SPACE 00047 F1A0263 DFHMDF POS=(02,63),LENGTH=03,ATTRB=(ASKIP) 00048 SPACE 00049 DFHMDF POS=(02,67),LENGTH=01,ATTRB=(ASKIP) 00050 SPACE 00051 F1A0272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=(ASKIP) 00052 SPACE 00053 DFHMDF POS=(04,03),LENGTH=13,ATTRB=(ASKIP), *00054 INITIAL='PRIMARY NAME:' 00055 SPACE 00056 F1A0417 DFHMDF POS=(04,17),LENGTH=40,ATTRB=(ASKIP) 00057 SPACE 00058 DFHMDF POS=(04,58),LENGTH=01,ATTRB=(ASKIP) 00059 SPACE 00060 DFHMDF POS=(04,65),LENGTH=12,ATTRB=(ASKIP), *00061 INITIAL='ENTITY NAME?' 00062 SPACE 00063 F1A0478 DFHMDF POS=(04,78),LENGTH=01,ATTRB=(ASKIP) 00064 SPACE 00065 DFHMDF POS=(04,80),LENGTH=01,ATTRB=(ASKIP) 00066 SPACE 00067 DFHMDF POS=(05,04),LENGTH=12,ATTRB=(ASKIP), *00068 INITIAL='ENTITY NAME:' 00069 SPACE 00070 F1A0517 DFHMDF POS=(05,17),LENGTH=40,ATTRB=(ASKIP) 00071 SPACE 00072 DFHMDF POS=(05,58),LENGTH=01,ATTRB=(ASKIP) 00073 SPACE 00074 F1A0609 DFHMDF POS=(06,09),LENGTH=07,ATTRB=(ASKIP) 00075 SPACE 00076 F1A0617 DFHMDF POS=(06,17),LENGTH=01,ATTRB=(ASKIP) 00077 SPACE 00078 DFHMDF POS=(06,19),LENGTH=01,ATTRB=(ASKIP) 00079 SPACE 00080 DFHMDF POS=(07,01),LENGTH=05,ATTRB=(ASKIP), *00081 INITIAL='ATTN:' 00082 SPACE 00083 F1A0707 DFHMDF POS=(07,07),LENGTH=40,ATTRB=(ASKIP) 00084 SPACE 00085 DFHMDF POS=(07,48),LENGTH=01,ATTRB=(ASKIP) 00086 SPACE 00087 DFHMDF POS=(07,53),LENGTH=13,ATTRB=(ASKIP), *00088 INITIAL='FISCAL AGENT:' 00089 SPACE 00090 F1A0767 DFHMDF POS=(07,67),LENGTH=03,ATTRB=(ASKIP) 00091 SPACE 00092 DFHMDF POS=(07,71),LENGTH=01,ATTRB=(ASKIP) 00093 SPACE 00094 DFHMDF POS=(08,01),LENGTH=05,ATTRB=(ASKIP), *00095 INITIAL='DLV1:' 00096 SPACE 00097 F1A0807 DFHMDF POS=(08,07),LENGTH=40,ATTRB=(ASKIP) 00098 SPACE 00099 DFHMDF POS=(08,48),LENGTH=01,ATTRB=(ASKIP) 00100 SPACE 00101 DFHMDF POS=(08,53),LENGTH=05,ATTRB=(ASKIP), *00102 INITIAL='CASS?' 00103 SPACE 00104 F1A0859 DFHMDF POS=(08,59),LENGTH=01,ATTRB=(ASKIP) 00105 SPACE 00106 DFHMDF POS=(08,61),LENGTH=01,ATTRB=(ASKIP) 00107 SPACE 00108 DFHMDF POS=(09,01),LENGTH=05,ATTRB=(ASKIP), *00109 INITIAL='DLV2:' 00110 SPACE 00111 F1A0907 DFHMDF POS=(09,07),LENGTH=40,ATTRB=(ASKIP) 00112 SPACE 00113 DFHMDF POS=(09,48),LENGTH=01,ATTRB=(ASKIP) 00114 SPACE 00115 DFHMDF POS=(09,53),LENGTH=18,ATTRB=(ASKIP), *00116 INITIAL='CASS RETURN CODES:' 00117 SPACE 00118 DFHMDF POS=(10,01),LENGTH=05,ATTRB=(ASKIP), *00119 INITIAL='CITY:' 00120 SPACE 00121 F1A1007 DFHMDF POS=(10,07),LENGTH=25,ATTRB=(ASKIP) 00122 SPACE 00123 DFHMDF POS=(10,33),LENGTH=01,ATTRB=(ASKIP), *00124 INITIAL=':' 00125 SPACE 00126 F1A1035 DFHMDF POS=(10,35),LENGTH=02,ATTRB=(ASKIP) 00127 SPACE 00128 DFHMDF POS=(10,38),LENGTH=01,ATTRB=(ASKIP), *00129 INITIAL=':' 00130 SPACE 00131 F1A1040 DFHMDF POS=(10,40),LENGTH=10,ATTRB=(ASKIP) 00132 SPACE 00133 DFHMDF POS=(10,51),LENGTH=01,ATTRB=(ASKIP) 00134 SPACE 00135 F1A1054 DFHMDF POS=(10,54),LENGTH=25,ATTRB=(ASKIP) 00136 SPACE 00137 DFHMDF POS=(11,01),LENGTH=05,ATTRB=(ASKIP), *00138 INITIAL='TEL1:' 00139 SPACE 00140 F1A1107 DFHMDF POS=(11,07),LENGTH=03,ATTRB=(ASKIP) 00141 SPACE 00142 F1A1111 DFHMDF POS=(11,11),LENGTH=03,ATTRB=(ASKIP) 00143 SPACE 00144 F1A1115 DFHMDF POS=(11,15),LENGTH=04,ATTRB=(ASKIP) 00145 SPACE 00146 F1A1120 DFHMDF POS=(11,20),LENGTH=05,ATTRB=(ASKIP) 00147 SPACE 00148 DFHMDF POS=(11,26),LENGTH=01,ATTRB=(ASKIP) 00149 SPACE 00150 DFHMDF POS=(11,28),LENGTH=05,ATTRB=(ASKIP), *00151 INITIAL='TEL2:' 00152 SPACE 00153 F1A1134 DFHMDF POS=(11,34),LENGTH=03,ATTRB=(ASKIP) 00154 SPACE 00155 F1A1138 DFHMDF POS=(11,38),LENGTH=03,ATTRB=(ASKIP) 00156 SPACE 00157 F1A1142 DFHMDF POS=(11,42),LENGTH=04,ATTRB=(ASKIP) 00158 SPACE 00159 F1A1147 DFHMDF POS=(11,47),LENGTH=05,ATTRB=(ASKIP) 00160 SPACE 00161 DFHMDF POS=(11,53),LENGTH=01,ATTRB=(ASKIP) 00162 SPACE 00163 DFHMDF POS=(11,55),LENGTH=04,ATTRB=(ASKIP), *00164 INITIAL='FAX:' 00165 SPACE 00166 F1A1160 DFHMDF POS=(11,60),LENGTH=03,ATTRB=(ASKIP) 00167 SPACE 00168 F1A1164 DFHMDF POS=(11,64),LENGTH=03,ATTRB=(ASKIP) 00169 SPACE 00170 F1A1168 DFHMDF POS=(11,68),LENGTH=04,ATTRB=(ASKIP) 00171 SPACE 00172 F1A1173 DFHMDF POS=(11,73),LENGTH=05,ATTRB=(ASKIP) 00173 SPACE 00174 DFHMDF POS=(11,79),LENGTH=01,ATTRB=(ASKIP) 00175 SPACE 00176 DFHMDF POS=(13,08),LENGTH=07,ATTRB=(ASKIP), *00177 INITIAL='SOURCE:' 00178 SPACE 00179 F1A1316 DFHMDF POS=(13,16),LENGTH=02,ATTRB=(ASKIP) 00180 SPACE 00181 F1A1319 DFHMDF POS=(13,19),LENGTH=10,ATTRB=(ASKIP) 00182 SPACE 00183 DFHMDF POS=(13,32),LENGTH=05,ATTRB=(ASKIP), *00184 INITIAL='FEIN:' 00185 SPACE 00186 F1A1338 DFHMDF POS=(13,38),LENGTH=02,ATTRB=(ASKIP) 00187 SPACE 00188 F1A1341 DFHMDF POS=(13,41),LENGTH=07,ATTRB=(ASKIP) 00189 SPACE 00190 DFHMDF POS=(13,49),LENGTH=01,ATTRB=(ASKIP) 00191 SPACE 00192 DFHMDF POS=(13,55),LENGTH=14,ATTRB=(ASKIP), *00193 INITIAL='POT HOUSEHOLD?' 00194 SPACE 00195 F1A1370 DFHMDF POS=(13,70),LENGTH=01,ATTRB=(ASKIP) 00196 SPACE 00197 DFHMDF POS=(13,72),LENGTH=01,ATTRB=(ASKIP) 00198 SPACE 00199 DFHMDF POS=(14,02),LENGTH=13,ATTRB=(ASKIP), *00200 INITIAL='CLAIMANT SSN:' 00201 SPACE 00202 F1A1416 DFHMDF POS=(14,16),LENGTH=03,ATTRB=(ASKIP) 00203 SPACE 00204 F1A1420 DFHMDF POS=(14,20),LENGTH=02,ATTRB=(ASKIP) 00205 SPACE 00206 F1A1423 DFHMDF POS=(14,23),LENGTH=04,ATTRB=(ASKIP) 00207 SPACE 00208 DFHMDF POS=(14,28),LENGTH=01,ATTRB=(ASKIP) 00209 SPACE 00210 DFHMDF POS=(14,32),LENGTH=05,ATTRB=(ASKIP), *00211 INITIAL='NAME:' 00212 SPACE 00213 F1A1438 DFHMDF POS=(14,38),LENGTH=32,ATTRB=(ASKIP) 00214 SPACE 00215 DFHMDF POS=(14,71),LENGTH=01,ATTRB=(ASKIP) 00216 SPACE 00217 DFHMDF POS=(15,02),LENGTH=13,ATTRB=(ASKIP), *00218 INITIAL='POT PRED EMP:' 00219 SPACE 00220 F1A1516 DFHMDF POS=(15,16),LENGTH=03,ATTRB=(ASKIP) 00221 SPACE 00222 F1A1520 DFHMDF POS=(15,20),LENGTH=03,ATTRB=(ASKIP) 00223 SPACE 00224 DFHMDF POS=(15,24),LENGTH=01,ATTRB=(ASKIP) 00225 SPACE 00226 DFHMDF POS=(15,32),LENGTH=05,ATTRB=(ASKIP), *00227 INITIAL='NAME:' 00228 SPACE 00229 F1A1538 DFHMDF POS=(15,38),LENGTH=40,ATTRB=(ASKIP) 00230 SPACE 00231 DFHMDF POS=(16,01),LENGTH=14,ATTRB=(ASKIP), *00232 INITIAL='OPID RESPNSBL:' 00233 SPACE 00234 F1A1616 DFHMDF POS=(16,16),LENGTH=08,ATTRB=(ASKIP) 00235 SPACE 00236 DFHMDF POS=(16,25),LENGTH=01,ATTRB=(ASKIP) 00237 SPACE 00238 F1A1627 DFHMDF POS=(16,27),LENGTH=10,ATTRB=(ASKIP) 00239 SPACE 00240 DFHMDF POS=(16,40),LENGTH=10,ATTRB=(ASKIP), *00241 INITIAL='FIELD REP:' 00242 SPACE 00243 F1A1651 DFHMDF POS=(16,51),LENGTH=02,ATTRB=(ASKIP) 00244 SPACE 00245 F1A1654 DFHMDF POS=(16,54),LENGTH=10,ATTRB=(ASKIP) 00246 SPACE 00247 DFHMDF POS=(17,10),LENGTH=05,ATTRB=(ASKIP), *00248 INITIAL='NOTE:' 00249 SPACE 00250 F1A1716 DFHMDF POS=(17,16),LENGTH=60,ATTRB=(ASKIP) 00251 SPACE 00252 DFHMDF POS=(17,77),LENGTH=01,ATTRB=(ASKIP) 00253 SPACE 00254 DFHMDF POS=(19,02),LENGTH=13,ATTRB=(ASKIP), *00255 INITIAL='CYC A STATUS:' 00256 SPACE 00257 F1A1916 DFHMDF POS=(19,16),LENGTH=02,ATTRB=(ASKIP) 00258 SPACE 00259 F1A1919 DFHMDF POS=(19,19),LENGTH=10,ATTRB=(ASKIP) 00260 SPACE 00261 DFHMDF POS=(19,53),LENGTH=14,ATTRB=(ASKIP), *00262 INITIAL='LTR 1 MAIL DT:' 00263 SPACE 00264 F1A1968 DFHMDF POS=(19,68),LENGTH=02,ATTRB=(ASKIP) 00265 SPACE 00266 F1A1971 DFHMDF POS=(19,71),LENGTH=02,ATTRB=(ASKIP) 00267 SPACE 00268 F1A1974 DFHMDF POS=(19,74),LENGTH=02,ATTRB=(ASKIP) 00269 SPACE 00270 DFHMDF POS=(19,77),LENGTH=01,ATTRB=(ASKIP) 00271 SPACE 00272 DFHMDF POS=(20,04),LENGTH=11,ATTRB=(ASKIP), *00273 INITIAL='LTR 1 TYPE:' 00274 SPACE 00275 F1A2016 DFHMDF POS=(20,16),LENGTH=02,ATTRB=(ASKIP) 00276 SPACE 00277 F1A2019 DFHMDF POS=(20,19),LENGTH=10,ATTRB=(ASKIP) 00278 SPACE 00279 DFHMDF POS=(20,53),LENGTH=14,ATTRB=(ASKIP), *00280 INITIAL='LTR 2 MAIL DT:' 00281 SPACE 00282 F1A2068 DFHMDF POS=(20,68),LENGTH=02,ATTRB=(ASKIP) 00283 SPACE 00284 F1A2071 DFHMDF POS=(20,71),LENGTH=02,ATTRB=(ASKIP) 00285 SPACE 00286 F1A2074 DFHMDF POS=(20,74),LENGTH=02,ATTRB=(ASKIP) 00287 SPACE 00288 DFHMDF POS=(20,77),LENGTH=01,ATTRB=(ASKIP) 00289 SPACE 00290 DFHMDF POS=(21,02),LENGTH=12,ATTRB=(ASKIP), *00291 INITIAL='FR-500 RCVD:' 00292 SPACE 00293 F1A2115 DFHMDF POS=(21,15),LENGTH=02,ATTRB=(ASKIP) 00294 SPACE 00295 F1A2118 DFHMDF POS=(21,18),LENGTH=02,ATTRB=(ASKIP) 00296 SPACE 00297 F1A2121 DFHMDF POS=(21,21),LENGTH=02,ATTRB=(ASKIP) 00298 SPACE 00299 DFHMDF POS=(21,24),LENGTH=01,ATTRB=(ASKIP) 00300 SPACE 00301 DFHMDF POS=(21,49),LENGTH=18,ATTRB=(ASKIP), *00302 INITIAL='INTERSTATE REQ DT:' 00303 SPACE 00304 F1A2168 DFHMDF POS=(21,68),LENGTH=02,ATTRB=(ASKIP) 00305 SPACE 00306 F1A2171 DFHMDF POS=(21,71),LENGTH=02,ATTRB=(ASKIP) 00307 SPACE 00308 F1A2174 DFHMDF POS=(21,74),LENGTH=02,ATTRB=(ASKIP) 00309 SPACE 00310 DFHMDF POS=(21,77),LENGTH=01,ATTRB=(ASKIP) 00311 SPACE 00312 DFHMDF POS=(22,02),LENGTH=17,ATTRB=(ASKIP), *00313 INITIAL='DETR NOT SUBJ DT:' 00314 SPACE 00315 F1A2220 DFHMDF POS=(22,20),LENGTH=02,ATTRB=(ASKIP) 00316 SPACE 00317 F1A2223 DFHMDF POS=(22,23),LENGTH=02,ATTRB=(ASKIP) 00318 SPACE 00319 F1A2226 DFHMDF POS=(22,26),LENGTH=02,ATTRB=(ASKIP) 00320 SPACE 00321 DFHMDF POS=(22,29),LENGTH=01,ATTRB=(ASKIP) 00322 SPACE 00323 DFHMDF POS=(22,51),LENGTH=16,ATTRB=(ASKIP), *00324 INITIAL='FIELD ASSIGN DT:' 00325 SPACE 00326 F1A2268 DFHMDF POS=(22,68),LENGTH=02,ATTRB=(ASKIP) 00327 SPACE 00328 F1A2271 DFHMDF POS=(22,71),LENGTH=02,ATTRB=(ASKIP) 00329 SPACE 00330 F1A2274 DFHMDF POS=(22,74),LENGTH=02,ATTRB=(ASKIP) 00331 SPACE 00332 DFHMDF POS=(22,77),LENGTH=01,ATTRB=(ASKIP) 00333 SPACE 00334 F1A2311 DFHMDF POS=(23,11),LENGTH=07,ATTRB=(ASKIP) 00335 SPACE 00336 F1A2319 DFHMDF POS=(23,19),LENGTH=07,ATTRB=(ASKIP) 00337 SPACE 00338 F1A2328 DFHMDF POS=(23,28),LENGTH=07,ATTRB=(ASKIP) 00339 SPACE 00340 F1A2401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=(ASKIP) 00341 SPACE 00342 F1A2410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=(ASKIP) 00343 SPACE 00344 DFHMDF POS=(24,69),LENGTH=06,ATTRB=(ASKIP), *00345 INITIAL='GO TO:' 00346 SPACE 00347 F1A2476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=(ASKIP) 00348 SPACE 00349 DFHMDF POS=(24,79),LENGTH=01,ATTRB=(ASKIP) 00350