DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
190
Maps/DTSM17.bms
Normal file
190
Maps/DTSM17.bms
Normal file
@ -0,0 +1,190 @@
|
||||
* DATA SET DTSM17 AT LEVEL 003 AS OF 10/22/98
|
||||
* DATA SET MACM17 AT LEVEL 036 AS OF 11/18/95 00001
|
||||
***** 00002
|
||||
* 00003
|
||||
* 17 SPAN OF LIABILITY INQUIRY/UPDATE 00004
|
||||
* 00005
|
||||
***** 00006
|
||||
SPACE 00007
|
||||
DTSM17 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00008**2
|
||||
SPACE 00009
|
||||
F170101 DFHMDF POS=(1,1),LENGTH=02,ATTRB=(FSET,ASKIP), *00010
|
||||
INITIAL='17' 00011
|
||||
SPACE 00012
|
||||
DFHMDF POS=(1,21),LENGTH=32,ATTRB=(ASKIP), *00013
|
||||
INITIAL='SPAN OF LIABILITY INQUIRY/UPDATE' 00014
|
||||
SPACE 00015
|
||||
F170162 DFHMDF POS=(1,62),LENGTH=08,ATTRB=(ASKIP) 00016
|
||||
SPACE 00017
|
||||
F170172 DFHMDF POS=(1,72),LENGTH=08,ATTRB=(ASKIP) 00018
|
||||
SPACE 00019
|
||||
F170272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=(ASKIP) 00020
|
||||
SPACE 00021
|
||||
DFHMDF POS=(03,02),LENGTH=07,ATTRB=(ASKIP), *00022
|
||||
INITIAL='EMP NO:' 00023
|
||||
SPACE 00024
|
||||
F170310 DFHMDF POS=(03,10),LENGTH=03,ATTRB=(ASKIP) 00025
|
||||
SPACE 00026
|
||||
F170314 DFHMDF POS=(03,14),LENGTH=03,ATTRB=(ASKIP) 00027
|
||||
SPACE 00028
|
||||
DFHMDF POS=(03,18),LENGTH=01,ATTRB=(ASKIP) 00029
|
||||
SPACE 00030
|
||||
F170320 DFHMDF POS=(03,20),LENGTH=40,ATTRB=(ASKIP) 00031
|
||||
SPACE 00032
|
||||
F170372 DFHMDF POS=(03,72),LENGTH=02,ATTRB=(ASKIP) 00033
|
||||
SPACE 00034
|
||||
DFHMDF POS=(03,75),LENGTH=02,ATTRB=(ASKIP), *00035
|
||||
INITIAL='OF' 00036
|
||||
SPACE 00037
|
||||
F170378 DFHMDF POS=(03,78),LENGTH=02,ATTRB=(ASKIP) 00038
|
||||
SPACE 00039
|
||||
DFHMDF POS=(05,12),LENGTH=10,ATTRB=(ASKIP), *00040
|
||||
INITIAL='LIAB DATE:' 00041
|
||||
SPACE 00042
|
||||
F170523 DFHMDF POS=(05,23),LENGTH=02,ATTRB=(ASKIP) 00043
|
||||
SPACE 00044
|
||||
F170526 DFHMDF POS=(05,26),LENGTH=02,ATTRB=(ASKIP) 00045
|
||||
SPACE 00046
|
||||
F170529 DFHMDF POS=(05,29),LENGTH=02,ATTRB=(ASKIP) 00047
|
||||
SPACE 00048
|
||||
DFHMDF POS=(05,32),LENGTH=01,ATTRB=(ASKIP) 00049
|
||||
SPACE 00050
|
||||
DFHMDF POS=(05,36),LENGTH=15,ATTRB=(ASKIP), *00051
|
||||
INITIAL='FIRST LIAB QTR:' 00052
|
||||
SPACE 00053
|
||||
F170552 DFHMDF POS=(05,52),LENGTH=04,ATTRB=(ASKIP) 00054
|
||||
SPACE 00055
|
||||
DFHMDF POS=(05,63),LENGTH=06,ATTRB=(ASKIP), *00056
|
||||
INITIAL='CLASS:' 00057
|
||||
SPACE 00058
|
||||
F170570 DFHMDF POS=(05,70),LENGTH=10,ATTRB=(ASKIP) 00059
|
||||
SPACE 00060
|
||||
DFHMDF POS=(06,06),LENGTH=16,ATTRB=(ASKIP), *00061
|
||||
INITIAL='LIAB ESTAB DATE:' 00062
|
||||
SPACE 00063
|
||||
F170623 DFHMDF POS=(06,23),LENGTH=02,ATTRB=(ASKIP) 00064
|
||||
SPACE 00065
|
||||
F170626 DFHMDF POS=(06,26),LENGTH=02,ATTRB=(ASKIP) 00066
|
||||
SPACE 00067
|
||||
F170629 DFHMDF POS=(06,29),LENGTH=02,ATTRB=(ASKIP) 00068
|
||||
SPACE 00069
|
||||
DFHMDF POS=(06,32),LENGTH=01,ATTRB=(ASKIP) 00070
|
||||
SPACE 00071
|
||||
DFHMDF POS=(08,12),LENGTH=10,ATTRB=(ASKIP), *00072
|
||||
INITIAL='LIAB CODE:' 00073
|
||||
SPACE 00074
|
||||
F170823 DFHMDF POS=(08,23),LENGTH=02,ATTRB=(ASKIP) 00075
|
||||
SPACE 00076
|
||||
DFHMDF POS=(08,26),LENGTH=01,ATTRB=(ASKIP) 00077
|
||||
SPACE 00078
|
||||
F170828 DFHMDF POS=(08,28),LENGTH=10,ATTRB=(ASKIP) 00079
|
||||
SPACE 00080
|
||||
DFHMDF POS=(10,11),LENGTH=11,ATTRB=(ASKIP), *00081
|
||||
INITIAL='INACT DATE:' 00082
|
||||
SPACE 00083
|
||||
F171023 DFHMDF POS=(10,23),LENGTH=02,ATTRB=(ASKIP) 00084
|
||||
SPACE 00085
|
||||
F171026 DFHMDF POS=(10,26),LENGTH=02,ATTRB=(ASKIP) 00086
|
||||
SPACE 00087
|
||||
F171029 DFHMDF POS=(10,29),LENGTH=02,ATTRB=(ASKIP) 00088
|
||||
SPACE 00089
|
||||
DFHMDF POS=(10,32),LENGTH=01,ATTRB=(ASKIP) 00090
|
||||
SPACE 00091
|
||||
DFHMDF POS=(10,37),LENGTH=14,ATTRB=(ASKIP), *00092
|
||||
INITIAL='LAST LIAB QTR:' 00093
|
||||
SPACE 00094
|
||||
F171052 DFHMDF POS=(10,52),LENGTH=04,ATTRB=(ASKIP) 00095
|
||||
SPACE 00096
|
||||
DFHMDF POS=(12,11),LENGTH=11,ATTRB=(ASKIP), *00097
|
||||
INITIAL='INACT CODE:' 00098
|
||||
SPACE 00099
|
||||
F171223 DFHMDF POS=(12,23),LENGTH=02,ATTRB=(ASKIP) 00100
|
||||
SPACE 00101
|
||||
DFHMDF POS=(12,26),LENGTH=01,ATTRB=(ASKIP) 00102
|
||||
SPACE 00103
|
||||
F171228 DFHMDF POS=(12,28),LENGTH=10,ATTRB=(ASKIP) 00104
|
||||
SPACE 00105
|
||||
DFHMDF POS=(12,42),LENGTH=18,ATTRB=(ASKIP), *00106
|
||||
INITIAL='INACT LETTER TYPE:' 00107
|
||||
SPACE 00108
|
||||
F171261 DFHMDF POS=(12,61),LENGTH=01,ATTRB=(ASKIP) 00109
|
||||
SPACE 00110
|
||||
DFHMDF POS=(12,63),LENGTH=01,ATTRB=(ASKIP) 00111
|
||||
SPACE 00112
|
||||
DFHMDF POS=(14,13),LENGTH=09,ATTRB=(ASKIP), *00113
|
||||
INITIAL='TRANSFER?' 00114
|
||||
SPACE 00115
|
||||
F171423 DFHMDF POS=(14,23),LENGTH=01,ATTRB=(ASKIP) 00116
|
||||
SPACE 00117
|
||||
DFHMDF POS=(14,25),LENGTH=01,ATTRB=(ASKIP) 00118
|
||||
SPACE 00119
|
||||
DFHMDF POS=(14,29),LENGTH=12,ATTRB=(ASKIP), *00120
|
||||
INITIAL='TRANSFER TO:' 00121
|
||||
SPACE 00122
|
||||
F171442 DFHMDF POS=(14,42),LENGTH=03,ATTRB=(ASKIP) 00123
|
||||
SPACE 00124
|
||||
F171446 DFHMDF POS=(14,46),LENGTH=03,ATTRB=(ASKIP) 00125
|
||||
SPACE 00126
|
||||
DFHMDF POS=(14,50),LENGTH=01,ATTRB=(ASKIP) 00127
|
||||
SPACE 00128
|
||||
DFHMDF POS=(14,54),LENGTH=15,ATTRB=(ASKIP), *00129
|
||||
INITIAL='OVERRIDE EDITS?' 00130
|
||||
SPACE 00131
|
||||
F171470 DFHMDF POS=(14,70),LENGTH=01,ATTRB=(ASKIP) 00132
|
||||
SPACE 00133
|
||||
DFHMDF POS=(14,72),LENGTH=01,ATTRB=(ASKIP) 00134
|
||||
SPACE 00135
|
||||
DFHMDF POS=(16,05),LENGTH=17,ATTRB=(ASKIP), *00136
|
||||
INITIAL='OPID RESPONSIBLE:' 00137
|
||||
SPACE 00138
|
||||
F171623 DFHMDF POS=(16,23),LENGTH=08,ATTRB=(ASKIP) 00139**3
|
||||
SPACE 00140
|
||||
DFHMDF POS=(16,32),LENGTH=01,ATTRB=(ASKIP) 00141**3
|
||||
SPACE 00142
|
||||
F171634 DFHMDF POS=(16,34),LENGTH=10,ATTRB=(ASKIP) 00143**3
|
||||
SPACE 00144
|
||||
DFHMDF POS=(16,53),LENGTH=16,ATTRB=(ASKIP), *00145
|
||||
INITIAL='581/TPS NEW EMP?' 00146**3
|
||||
SPACE 00147
|
||||
F171670 DFHMDF POS=(16,70),LENGTH=01,ATTRB=(ASKIP) 00148
|
||||
SPACE 00149
|
||||
DFHMDF POS=(17,06),LENGTH=16,ATTRB=(ASKIP), *00150
|
||||
INITIAL='LIAB ENTER DATE:' 00151
|
||||
SPACE 00152
|
||||
F171723 DFHMDF POS=(17,23),LENGTH=08,ATTRB=(ASKIP) 00153
|
||||
SPACE 00154
|
||||
DFHMDF POS=(17,40),LENGTH=15,ATTRB=(ASKIP), *00155
|
||||
INITIAL='LIAB MAIL DATE:' 00156
|
||||
SPACE 00157
|
||||
F171756 DFHMDF POS=(17,56),LENGTH=08,ATTRB=(ASKIP) 00158
|
||||
SPACE 00159
|
||||
DFHMDF POS=(18,05),LENGTH=17,ATTRB=(ASKIP), *00160
|
||||
INITIAL='INACT ENTER DATE:' 00161
|
||||
SPACE 00162
|
||||
F171823 DFHMDF POS=(18,23),LENGTH=08,ATTRB=(ASKIP) 00163
|
||||
SPACE 00164
|
||||
DFHMDF POS=(18,36),LENGTH=19,ATTRB=(ASKIP), *00165
|
||||
INITIAL='INACT REVERSE DATE:' 00166
|
||||
SPACE 00167
|
||||
F171856 DFHMDF POS=(18,56),LENGTH=08,ATTRB=(ASKIP) 00168
|
||||
SPACE 00169
|
||||
F172310 DFHMDF POS=(23,10),LENGTH=08,ATTRB=(ASKIP) 00170
|
||||
SPACE 00171
|
||||
F172320 DFHMDF POS=(23,20),LENGTH=07,ATTRB=(ASKIP) 00172
|
||||
SPACE 00173
|
||||
F172329 DFHMDF POS=(23,29),LENGTH=07,ATTRB=(ASKIP) 00174
|
||||
SPACE 00175
|
||||
F172338 DFHMDF POS=(23,38),LENGTH=07,ATTRB=(ASKIP) 00176
|
||||
SPACE 00177
|
||||
F172351 DFHMDF POS=(23,51),LENGTH=07,ATTRB=(ASKIP) 00178
|
||||
SPACE 00179
|
||||
F172401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=(ASKIP) 00180
|
||||
SPACE 00181
|
||||
F172410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=(ASKIP) 00182
|
||||
SPACE 00183
|
||||
DFHMDF POS=(24,69),LENGTH=06,ATTRB=(ASKIP), *00184
|
||||
INITIAL='GO TO:' 00185
|
||||
SPACE 00186
|
||||
F172476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=(ASKIP) 00187
|
||||
SPACE 00188
|
||||
DFHMDF POS=(24,79),LENGTH=01,ATTRB=(ASKIP) 00189
|
||||
Reference in New Issue
Block a user