DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
199
Maps/DTSM77.bms
Normal file
199
Maps/DTSM77.bms
Normal file
@ -0,0 +1,199 @@
|
||||
* DATA SET DTSM77 AT LEVEL 008 AS OF 11/03/99
|
||||
* DATA SET MACM77 AT LEVEL 042 AS OF 01/23/95 00001
|
||||
***** 00002
|
||||
* 00003
|
||||
* DTSM77 CORRESPONDENCE QUEUE INITIATION 00004**3
|
||||
* 00005
|
||||
***** 00006
|
||||
SPACE 00007
|
||||
DTSM77 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00008**2
|
||||
SPACE 00009
|
||||
F770101 DFHMDF POS=(1,1),LENGTH=02,ATTRB=(FSET,ASKIP), *00010
|
||||
INITIAL='77' 00011
|
||||
SPACE 00012
|
||||
DFHMDF POS=(1,18),LENGTH=31,ATTRB=(ASKIP), *00013
|
||||
INITIAL='CORRESPONDENCE QUEUE INITIATION' 00014
|
||||
SPACE 00015
|
||||
F770162 DFHMDF POS=(1,62),LENGTH=08,ATTRB=(ASKIP) 00016
|
||||
SPACE 00017
|
||||
F770172 DFHMDF POS=(1,72),LENGTH=08,ATTRB=(ASKIP) 00018
|
||||
SPACE 00019
|
||||
F770272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=(ASKIP) 00020
|
||||
SPACE 00021
|
||||
DFHMDF POS=(03,04),LENGTH=07,ATTRB=(ASKIP), *00022
|
||||
INITIAL='EMP NO:' 00023
|
||||
SPACE 00024
|
||||
F770312 DFHMDF POS=(03,12),LENGTH=03,ATTRB=(ASKIP) 00025
|
||||
SPACE 00026
|
||||
F770316 DFHMDF POS=(03,16),LENGTH=03,ATTRB=(ASKIP) 00027
|
||||
SPACE 00028
|
||||
DFHMDF POS=(03,20),LENGTH=01,ATTRB=(ASKIP) 00029
|
||||
SPACE 00030
|
||||
F770323 DFHMDF POS=(03,23),LENGTH=40,ATTRB=(ASKIP) 00031
|
||||
SPACE 00032
|
||||
DFHMDF POS=(05,08),LENGTH=12,ATTRB=(ASKIP), *00033
|
||||
INITIAL='TEMPLATE ID:' 00034
|
||||
SPACE 00035
|
||||
F770521 DFHMDF POS=(05,21),LENGTH=40,ATTRB=(ASKIP) 00036
|
||||
SPACE 00037
|
||||
DFHMDF POS=(05,62),LENGTH=01,ATTRB=(ASKIP) 00038
|
||||
SPACE 00039
|
||||
DFHMDF POS=(06,07),LENGTH=13,ATTRB=(ASKIP), *00040
|
||||
INITIAL='ADDRESS TYPE:' 00041
|
||||
SPACE 00042
|
||||
F770621 DFHMDF POS=(06,21),LENGTH=01,ATTRB=(ASKIP) 00043
|
||||
SPACE 00044
|
||||
DFHMDF POS=(06,23),LENGTH=01,ATTRB=(ASKIP) 00045
|
||||
SPACE 00046
|
||||
DFHMDF POS=(07,05),LENGTH=15,ATTRB=(ASKIP), *00047
|
||||
INITIAL='ADDRESS NUMBER:' 00048
|
||||
SPACE 00049
|
||||
F770721 DFHMDF POS=(07,21),LENGTH=03,ATTRB=(ASKIP) 00050
|
||||
SPACE 00051
|
||||
DFHMDF POS=(07,25),LENGTH=01,ATTRB=(ASKIP) 00052**7
|
||||
SPACE 00053
|
||||
DFHMDF POS=(08,01),LENGTH=19,ATTRB=(ASKIP), *00054
|
||||
INITIAL='CORRESPONDENT OPID:' 00055
|
||||
SPACE 00056
|
||||
F770821 DFHMDF POS=(08,21),LENGTH=08,ATTRB=(ASKIP) 00057**3
|
||||
SPACE 00058
|
||||
DFHMDF POS=(08,30),LENGTH=01,ATTRB=(ASKIP) 00059**3
|
||||
SPACE 00060
|
||||
F770830 DFHMDF POS=(08,32),LENGTH=10,ATTRB=(ASKIP) 00061**3
|
||||
SPACE 00062
|
||||
DFHMDF POS=(08,46),LENGTH=24,ATTRB=(ASKIP), *00063**3
|
||||
INITIAL='EMPLOYER MAILING ADDRESS' 00064
|
||||
SPACE 00065
|
||||
DFHMDF POS=(09,09),LENGTH=11,ATTRB=(ASKIP), *00066
|
||||
INITIAL='FLD REP ID:' 00067
|
||||
SPACE 00068
|
||||
F770921 DFHMDF POS=(09,21),LENGTH=02,ATTRB=(ASKIP) 00069
|
||||
SPACE 00070
|
||||
DFHMDF POS=(09,24),LENGTH=01,ATTRB=(ASKIP) 00071
|
||||
SPACE 00072
|
||||
F770926 DFHMDF POS=(09,26),LENGTH=10,ATTRB=(ASKIP) 00073
|
||||
SPACE 00074
|
||||
F770940 DFHMDF POS=(09,40),LENGTH=40,ATTRB=(ASKIP) 00075
|
||||
SPACE 00076
|
||||
DFHMDF POS=(10,08),LENGTH=12,ATTRB=(ASKIP), *00077**4
|
||||
INITIAL='LEIN CERT #:' 00078**4
|
||||
SPACE 00079**4
|
||||
F771021 DFHMDF POS=(10,21),LENGTH=02,ATTRB=(ASKIP) 00080**8
|
||||
SPACE 00081**4
|
||||
F771024 DFHMDF POS=(10,24),LENGTH=04,ATTRB=(ASKIP) 00082**8
|
||||
SPACE 00083**8
|
||||
DFHMDF POS=(10,29),LENGTH=01,ATTRB=(ASKIP) 00084**8
|
||||
SPACE 00085**4
|
||||
F771040 DFHMDF POS=(10,40),LENGTH=40,ATTRB=(ASKIP) 00086**4
|
||||
SPACE 00087**4
|
||||
DFHMDF POS=(11,01),LENGTH=01,ATTRB=(ASKIP) 00088**4
|
||||
SPACE 00089
|
||||
DFHMDF POS=(11,13),LENGTH=07,ATTRB=(ASKIP), *00090**4
|
||||
INITIAL='COPIES:' 00091
|
||||
SPACE 00092
|
||||
F771121 DFHMDF POS=(11,21),LENGTH=02,ATTRB=(ASKIP) 00093**4
|
||||
SPACE 00094
|
||||
DFHMDF POS=(11,24),LENGTH=01,ATTRB=(ASKIP) 00095**4
|
||||
SPACE 00096
|
||||
F771140 DFHMDF POS=(11,40),LENGTH=40,ATTRB=(ASKIP) 00097**4
|
||||
SPACE 00098
|
||||
DFHMDF POS=(12,01),LENGTH=19,ATTRB=(ASKIP), *00099**4
|
||||
INITIAL=' CORRESPONDENCE DT:' 00100
|
||||
SPACE 00101
|
||||
F771221 DFHMDF POS=(12,21),LENGTH=02,ATTRB=(ASKIP) 00102**4
|
||||
SPACE 00103
|
||||
F771224 DFHMDF POS=(12,24),LENGTH=02,ATTRB=(ASKIP) 00104**4
|
||||
SPACE 00105
|
||||
F771227 DFHMDF POS=(12,27),LENGTH=02,ATTRB=(ASKIP) 00106**4
|
||||
SPACE 00107
|
||||
DFHMDF POS=(12,30),LENGTH=01,ATTRB=(ASKIP) 00108**4
|
||||
SPACE 00109
|
||||
F771240 DFHMDF POS=(12,40),LENGTH=40,ATTRB=(ASKIP) 00110**4
|
||||
SPACE 00111
|
||||
DFHMDF POS=(13,01),LENGTH=01,ATTRB=(ASKIP) 00112**4
|
||||
SPACE 00113
|
||||
DFHMDF POS=(13,09),LENGTH=11,ATTRB=(ASKIP), *00114**4
|
||||
INITIAL='CORR STATE:' 00115
|
||||
SPACE 00116
|
||||
F771321 DFHMDF POS=(13,21),LENGTH=02,ATTRB=(ASKIP) 00117**4
|
||||
SPACE 00118
|
||||
DFHMDF POS=(13,24),LENGTH=01,ATTRB=(ASKIP) 00119**4
|
||||
SPACE 00120
|
||||
F771340 DFHMDF POS=(13,40),LENGTH=40,ATTRB=(ASKIP) 00121**4
|
||||
SPACE 00122
|
||||
DFHMDF POS=(14,01),LENGTH=19,ATTRB=(ASKIP), *00123
|
||||
INITIAL='TICKLER TRIGGER DT:' 00124
|
||||
SPACE 00125
|
||||
F771421 DFHMDF POS=(14,21),LENGTH=02,ATTRB=(ASKIP) 00126
|
||||
SPACE 00127
|
||||
F771424 DFHMDF POS=(14,24),LENGTH=02,ATTRB=(ASKIP) 00128
|
||||
SPACE 00129
|
||||
F771427 DFHMDF POS=(14,27),LENGTH=02,ATTRB=(ASKIP) 00130
|
||||
SPACE 00131
|
||||
DFHMDF POS=(14,30),LENGTH=01,ATTRB=(ASKIP) 00132
|
||||
SPACE 00133
|
||||
DFHMDF POS=(15,03),LENGTH=01,ATTRB=(ASKIP), *00134
|
||||
INITIAL=':' 00135
|
||||
SPACE 00136
|
||||
F771505 DFHMDF POS=(15,05),LENGTH=72,ATTRB=(ASKIP) 00137
|
||||
SPACE 00138
|
||||
DFHMDF POS=(15,78),LENGTH=01,ATTRB=(ASKIP) 00139
|
||||
SPACE 00140
|
||||
DFHMDF POS=(16,03),LENGTH=01,ATTRB=(ASKIP), *00141
|
||||
INITIAL=':' 00142
|
||||
SPACE 00143
|
||||
F771605 DFHMDF POS=(16,05),LENGTH=72,ATTRB=(ASKIP) 00144
|
||||
SPACE 00145
|
||||
DFHMDF POS=(16,78),LENGTH=01,ATTRB=(ASKIP) 00146
|
||||
SPACE 00147
|
||||
DFHMDF POS=(17,03),LENGTH=01,ATTRB=(ASKIP), *00148
|
||||
INITIAL=':' 00149
|
||||
SPACE 00150
|
||||
F771705 DFHMDF POS=(17,05),LENGTH=72,ATTRB=(ASKIP) 00151
|
||||
SPACE 00152
|
||||
DFHMDF POS=(17,78),LENGTH=01,ATTRB=(ASKIP) 00153
|
||||
SPACE 00154
|
||||
DFHMDF POS=(18,03),LENGTH=01,ATTRB=(ASKIP), *00155
|
||||
INITIAL=':' 00156
|
||||
SPACE 00157
|
||||
F771805 DFHMDF POS=(18,05),LENGTH=72,ATTRB=(ASKIP) 00158
|
||||
SPACE 00159
|
||||
DFHMDF POS=(18,78),LENGTH=01,ATTRB=(ASKIP) 00160
|
||||
SPACE 00161
|
||||
DFHMDF POS=(19,03),LENGTH=01,ATTRB=(ASKIP), *00162
|
||||
INITIAL=':' 00163
|
||||
SPACE 00164
|
||||
F771905 DFHMDF POS=(19,05),LENGTH=72,ATTRB=(ASKIP) 00165
|
||||
SPACE 00166
|
||||
DFHMDF POS=(19,78),LENGTH=01,ATTRB=(ASKIP) 00167
|
||||
SPACE 00168
|
||||
DFHMDF POS=(20,03),LENGTH=01,ATTRB=(ASKIP), *00169
|
||||
INITIAL=':' 00170
|
||||
SPACE 00171
|
||||
F772005 DFHMDF POS=(20,05),LENGTH=72,ATTRB=(ASKIP) 00172
|
||||
SPACE 00173
|
||||
DFHMDF POS=(20,78),LENGTH=01,ATTRB=(ASKIP) 00174
|
||||
SPACE 00175
|
||||
DFHMDF POS=(22,11),LENGTH=09,ATTRB=(ASKIP), *00176
|
||||
INITIAL='QUEUE ID:' 00177
|
||||
SPACE 00178
|
||||
F772221 DFHMDF POS=(22,21),LENGTH=08,ATTRB=(ASKIP) 00179**4
|
||||
SPACE 00180
|
||||
DFHMDF POS=(22,30),LENGTH=01,ATTRB=(ASKIP) 00181**4
|
||||
SPACE 00182
|
||||
F772232 DFHMDF POS=(22,32),LENGTH=10,ATTRB=(ASKIP) 00183**6
|
||||
SPACE 00184**6
|
||||
DFHMDF POS=(22,43),LENGTH=01,ATTRB=(ASKIP) 00185**6
|
||||
SPACE 00186
|
||||
F772310 DFHMDF POS=(23,10),LENGTH=06,ATTRB=(ASKIP) 00187**4
|
||||
SPACE 00188
|
||||
F772401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=(ASKIP) 00189
|
||||
SPACE 00190
|
||||
F772410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=(ASKIP) 00191
|
||||
SPACE 00192
|
||||
DFHMDF POS=(24,69),LENGTH=06,ATTRB=(ASKIP), *00193
|
||||
INITIAL='GO TO:' 00194
|
||||
SPACE 00195
|
||||
F772476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=(ASKIP) 00196
|
||||
SPACE 00197
|
||||
DFHMDF POS=(24,79),LENGTH=01,ATTRB=(ASKIP) 00198
|
||||
Reference in New Issue
Block a user