giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
f8b9dd0f5612ad38b5ea474fd5af67b0e43194ce
DUTAS/Maps/DTSM1A.bms
Neeraj Kumar ca3572c5df DUTAS re-platformed to Raincode - Initial Source Code
2025-07-21 11:20:11 -04:00

352 lines
27 KiB
Plaintext
Raw Blame History

* 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
Reference in New Issue View Git Blame Copy Permalink