DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
192
Maps/DTSM1D.bms
Normal file
192
Maps/DTSM1D.bms
Normal file
@ -0,0 +1,192 @@
|
||||
* 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
|
||||
Reference in New Issue
Block a user