Files
DUTAS/Maps/DTSM1D.bms
2025-07-21 11:20:11 -04:00

193 lines
15 KiB
Plaintext

* DATA SET DTSM1D AT LEVEL 013 AS OF 09/13/12
* DATA SET DTSM1D AT LEVEL 002 AS OF 07/15/09 00001
* DATA SET DTSM1D AT LEVEL 011 AS OF 01/31/06 00002
* DATA SET DTSM1D AT LEVEL 002 AS OF 10/24/05 00003
* DATA SET DTSM1D AT LEVEL 009 AS OF 07/17/03 00004
* DATA SET DTSM1D AT LEVEL 004 AS OF 07/11/03 00005
* DATA SET DTSM1D AT LEVEL 002 AS OF 05/02/03 00006
* DATA SET DTSM1D AT LEVEL 007 AS OF 07/18/00 00007
* DATA SET DTSM1D AT LEVEL 003 AS OF 05/08/00 00008
* DATA SET DTSM1D AT LEVEL 005 AS OF 05/08/00 00009
***** 00010
* 00011
* 1D MISCELLANEOUS REGISTRATION INQUIRY/UPDATE 00012
* 00013
****** 00014
SPACE 00015
DTSM1D DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00016
SPACE 00017
F1D0101 DFHMDF POS=(1,1),LENGTH=02,ATTRB=(FSET,ASKIP), *00018
INITIAL='1D' 00019
SPACE 00020
DFHMDF POS=(1,14),LENGTH=41,ATTRB=(ASKIP), *00021
INITIAL='MISCELLANEOUS REGISTRATION INQUIRY/UPDATE' 00022
SPACE 00023
F1D0162 DFHMDF POS=(1,62),LENGTH=08,ATTRB=(ASKIP) 00024
SPACE 00025
F1D0172 DFHMDF POS=(1,72),LENGTH=08,ATTRB=(ASKIP) 00026
SPACE 00027
F1D0272 DFHMDF POS=(2,72),LENGTH=08,ATTRB=(ASKIP) 00028
SPACE 00029
DFHMDF POS=(03,09),LENGTH=07,ATTRB=(ASKIP), *00030
INITIAL='EMP NO:' 00031
SPACE 00032
F1D0317 DFHMDF POS=(03,17),LENGTH=03,ATTRB=(ASKIP) 00033
SPACE 00034
F1D0321 DFHMDF POS=(03,21),LENGTH=03,ATTRB=(ASKIP) 00035
SPACE 00036
DFHMDF POS=(03,25),LENGTH=01,ATTRB=(ASKIP) 00037
SPACE 00038
F1D0330 DFHMDF POS=(03,30),LENGTH=40,ATTRB=(ASKIP) 00039
SPACE 00040
DFHMDF POS=(05,07),LENGTH=21,ATTRB=(ASKIP), *00041
INITIAL='FISCAL AGENT SERVICES' 00042
SPACE 00043
DFHMDF POS=(06,07),LENGTH=22,ATTRB=(ASKIP), *00044
INITIAL=' ADDR OF RECORD:' 00045
SPACE 00046
F1D0630 DFHMDF POS=(06,30),LENGTH=03,ATTRB=(ASKIP) 00047
SPACE 00048
DFHMDF POS=(06,34),LENGTH=01,ATTRB=(ASKIP) 00049
SPACE 00050
F1D0636 DFHMDF POS=(06,36),LENGTH=40,ATTRB=(ASKIP) 00051
SPACE 00052
DFHMDF POS=(06,77),LENGTH=01,ATTRB=(ASKIP) 00053
SPACE 00054
DFHMDF POS=(07,07),LENGTH=22,ATTRB=(ASKIP), *00055
INITIAL=' QTRLY REPORT:' 00056
SPACE 00057
F1D0730 DFHMDF POS=(07,30),LENGTH=03,ATTRB=(ASKIP) 00058
SPACE 00059
DFHMDF POS=(07,34),LENGTH=01,ATTRB=(ASKIP) 00060
SPACE 00061
F1D0736 DFHMDF POS=(07,36),LENGTH=40,ATTRB=(ASKIP) 00062
SPACE 00063
DFHMDF POS=(07,77),LENGTH=01,ATTRB=(ASKIP) 00064
SPACE 00065
DFHMDF POS=(08,07),LENGTH=22,ATTRB=(ASKIP), *00066
INITIAL=' BENEFIT CHARGE:' 00067
SPACE 00068
F1D0830 DFHMDF POS=(08,30),LENGTH=03,ATTRB=(ASKIP) 00069
SPACE 00070
DFHMDF POS=(08,34),LENGTH=01,ATTRB=(ASKIP) 00071
SPACE 00072
F1D0836 DFHMDF POS=(08,36),LENGTH=40,ATTRB=(ASKIP) 00073
SPACE 00074
DFHMDF POS=(08,77),LENGTH=01,ATTRB=(ASKIP) 00075
SPACE 00076
DFHMDF POS=(10,12),LENGTH=17,ATTRB=(ASKIP), *00077
INITIAL='UC-30 MASS MAIL?' 00078
SPACE 00079
F1D1030 DFHMDF POS=(10,30),LENGTH=01,ATTRB=(ASKIP) 00080
SPACE 00081
DFHMDF POS=(10,32),LENGTH=01,ATTRB=(ASKIP) 00082
SPACE 00083
DFHMDF POS=(10,43),LENGTH=15,ATTRB=(ASKIP), *00084
INITIAL='CREDIT DISPLAY?' 00085
SPACE 00086
F1D0752 DFHMDF POS=(10,59),LENGTH=01,ATTRB=(ASKIP) 00087
SPACE 00088
DFHMDF POS=(10,61),LENGTH=01,ATTRB=(ASKIP) 00089
SPACE 00090
DFHMDF POS=(11,06),LENGTH=23,ATTRB=(ASKIP), *00091
INITIAL='CHARGE STATEMENT PRINT?' 00092
SPACE 00093
F1D1130 DFHMDF POS=(11,30),LENGTH=01,ATTRB=(ASKIP) 00094
SPACE 00095
DFHMDF POS=(11,32),LENGTH=01,ATTRB=(ASKIP) 00096
SPACE 00097
DFHMDF POS=(11,43),LENGTH=15,ATTRB=(ASKIP), *00098
INITIAL=' RETURN MAIL?' 00099
SPACE 00100
F1D1159 DFHMDF POS=(11,59),LENGTH=01,ATTRB=(ASKIP) 00101
SPACE 00102
DFHMDF POS=(11,61),LENGTH=01,ATTRB=(ASKIP) 00103
SPACE 00104
DFHMDF POS=(13,11),LENGTH=09,ATTRB=(ASKIP), *00105
INITIAL='ORG TYPE:' 00106
SPACE 00107
F1D1323 DFHMDF POS=(13,21),LENGTH=03,ATTRB=(ASKIP) 00108
SPACE 00109
DFHMDF POS=(13,25),LENGTH=01,ATTRB=(ASKIP) 00110
SPACE 00111
F1D1329 DFHMDF POS=(13,27),LENGTH=10,ATTRB=(ASKIP) 00112
SPACE 00113
DFHMDF POS=(13,38),LENGTH=01,ATTRB=(ASKIP) 00114
SPACE 00115
DFHMDF POS=(13,50),LENGTH=08,ATTRB=(ASKIP), *00116
INITIAL='ELIG CD:' 00117
SPACE 00118
F1D1330 DFHMDF POS=(13,59),LENGTH=03,ATTRB=(ASKIP) 00119
SPACE 00120
DFHMDF POS=(13,63),LENGTH=01,ATTRB=(ASKIP) 00121
SPACE 00122
F1D1340 DFHMDF POS=(13,65),LENGTH=10,ATTRB=(ASKIP) 00123
SPACE 00124
DFHMDF POS=(14,15),LENGTH=05,ATTRB=(ASKIP), *00125
INITIAL='FEIN:' 00126
SPACE 00127
F1D1421 DFHMDF POS=(14,21),LENGTH=02,ATTRB=(ASKIP) 00128
SPACE 00129
F1D1424 DFHMDF POS=(14,24),LENGTH=07,ATTRB=(ASKIP) 00130
SPACE 00131
DFHMDF POS=(14,32),LENGTH=01,ATTRB=(ASKIP) 00132
SPACE 00133
DFHMDF POS=(14,40),LENGTH=18,ATTRB=(ASKIP), *00134
INITIAL='LETTER IF NO FEIN?' 00135
SPACE 00136
F1D1459 DFHMDF POS=(14,59),LENGTH=01,ATTRB=(ASKIP) 00137
SPACE 00138
DFHMDF POS=(14,61),LENGTH=01,ATTRB=(ASKIP) 00139
SPACE 00140
DFHMDF POS=(15,06),LENGTH=14,ATTRB=(ASKIP), *00141
INITIAL='DC CONTRACTOR:' 00142
SPACE 00143
F1D1521 DFHMDF POS=(15,21),LENGTH=01,ATTRB=(ASKIP) 00144
SPACE 00145
DFHMDF POS=(15,23),LENGTH=01,ATTRB=(ASKIP) 00146
SPACE 00147
DFHMDF POS=(15,40),LENGTH=18,ATTRB=(ASKIP), *00148
INITIAL='POWER OF ATTORNEY:' 00149
SPACE 00150
F1D1558 DFHMDF POS=(15,59),LENGTH=02,ATTRB=(ASKIP) 00151
SPACE 00152
F1D1562 DFHMDF POS=(15,62),LENGTH=02,ATTRB=(ASKIP) 00153
SPACE 00154
F1D1565 DFHMDF POS=(15,65),LENGTH=02,ATTRB=(ASKIP) 00155
SPACE 00156
DFHMDF POS=(15,68),LENGTH=01,ATTRB=(ASKIP) 00157
SPACE 00158
DFHMDF POS=(16,07),LENGTH=13,ATTRB=(ASKIP), *00159
INITIAL='EFT ENROLLED:' 00160
SPACE 00161
F1D1621 DFHMDF POS=(16,21),LENGTH=01,ATTRB=(ASKIP) 00162
SPACE 00163
DFHMDF POS=(16,23),LENGTH=01,ATTRB=(ASKIP) 00164
SPACE 00165
DFHMDF POS=(18,02),LENGTH=27,ATTRB=(ASKIP), *00166
INITIAL='MOST RECENT ARCHIVED AUDIT:' 00167
SPACE 00168
F1D1830 DFHMDF POS=(18,30),LENGTH=02,ATTRB=(ASKIP) 00169
SPACE 00170
F1D1833 DFHMDF POS=(18,33),LENGTH=01,ATTRB=(ASKIP) 00171
SPACE 00172
DFHMDF POS=(18,35),LENGTH=01,ATTRB=(ASKIP) 00173
SPACE 00174
DFHMDF POS=(20,04),LENGTH=25,ATTRB=(ASKIP), *00175
INITIAL='MOST RECENT ARCHIVED QTR:' 00176
SPACE 00177
F1D2030 DFHMDF POS=(20,30),LENGTH=04,ATTRB=(ASKIP) 00178
SPACE 00179
F1D2319 DFHMDF POS=(23,19),LENGTH=07,ATTRB=(ASKIP) 00180
SPACE 00181
F1D2401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=(ASKIP) 00182
SPACE 00183
F1D2410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=(ASKIP) 00184
SPACE 00185
DFHMDF POS=(24,69),LENGTH=06,ATTRB=(ASKIP), *00186
INITIAL='GO TO:' 00187
SPACE 00188
F1D2476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=(ASKIP) 00189
SPACE 00190
DFHMDF POS=(24,79),LENGTH=01,ATTRB=(ASKIP) 00191