DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
184
Maps/DTSM10.bms
Normal file
184
Maps/DTSM10.bms
Normal file
@ -0,0 +1,184 @@
|
||||
* DATA SET DTSM10 AT LEVEL 003 AS OF 08/11/98
|
||||
* DATA SET MACM10 AT LEVEL 008 AS OF 09/21/95 00001
|
||||
***** 00002
|
||||
* 00003
|
||||
* 10 REGISTRATION MENU 00004
|
||||
* 00005
|
||||
***** 00006
|
||||
SPACE 00007
|
||||
DTSM10 DFHMDI SIZE=(24,80), *00008**2
|
||||
LINE=1, *00009
|
||||
COLUMN=1 00010
|
||||
SPACE 00011
|
||||
F100101 DFHMDF POS=(1,1), *00012
|
||||
ATTRB=(ASKIP,FSET), *00013
|
||||
LENGTH=2, *00014
|
||||
INITIAL='10' 00015
|
||||
SPACE 00016
|
||||
DFHMDF POS=(1,25), *00017
|
||||
ATTRB=(ASKIP), *00018
|
||||
LENGTH=17, *00019
|
||||
INITIAL='REGISTRATION MENU' 00020
|
||||
SPACE 00021
|
||||
F100162 DFHMDF POS=(1,62), *00022
|
||||
ATTRB=(ASKIP), *00023
|
||||
LENGTH=8 00024
|
||||
SPACE 00025
|
||||
F100172 DFHMDF POS=(1,72), *00026
|
||||
ATTRB=(ASKIP), *00027
|
||||
LENGTH=8 00028
|
||||
SPACE 00029
|
||||
F100272 DFHMDF POS=(2,72), *00030
|
||||
ATTRB=(ASKIP), *00031
|
||||
LENGTH=8 00032
|
||||
SPACE 00033
|
||||
DFHMDF POS=(03,13), *00034
|
||||
ATTRB=(ASKIP), *00035
|
||||
LENGTH=6, *00036
|
||||
INITIAL='OPTION' 00037
|
||||
SPACE 00038
|
||||
DFHMDF POS=(03,26), *00039
|
||||
ATTRB=(ASKIP), *00040
|
||||
LENGTH=11, *00041
|
||||
INITIAL='DESCRIPTION' 00042
|
||||
SPACE 00043
|
||||
DFHMDF POS=(05,16), *00044
|
||||
ATTRB=(ASKIP,BRT), *00045
|
||||
LENGTH=1, *00046
|
||||
INITIAL='1' 00047
|
||||
SPACE 00048
|
||||
DFHMDF POS=(05,21), *00049
|
||||
ATTRB=(ASKIP), *00050
|
||||
LENGTH=20, *00051
|
||||
INITIAL='REGISTRATION INQUIRY' 00052
|
||||
SPACE 00053
|
||||
DFHMDF POS=(06,16), *00054
|
||||
ATTRB=(ASKIP,BRT), *00055
|
||||
LENGTH=1, *00056
|
||||
INITIAL='2' 00057
|
||||
SPACE 00058
|
||||
DFHMDF POS=(06,21), *00059
|
||||
ATTRB=(ASKIP), *00060
|
||||
LENGTH=21, *00061
|
||||
INITIAL='REGISTRATION SEARCHES' 00062
|
||||
SPACE 00063
|
||||
DFHMDF POS=(07,16), *00064
|
||||
ATTRB=(ASKIP,BRT), *00065
|
||||
LENGTH=1, *00066
|
||||
INITIAL='3' 00067
|
||||
SPACE 00068
|
||||
DFHMDF POS=(07,21), *00069
|
||||
ATTRB=(ASKIP), *00070
|
||||
LENGTH=26, *00071
|
||||
INITIAL='TAX ADDRESS INQUIRY/UPDATE' 00072
|
||||
SPACE 00073
|
||||
DFHMDF POS=(08,16), *00074
|
||||
ATTRB=(ASKIP,BRT), *00075
|
||||
LENGTH=1, *00076
|
||||
INITIAL='4' 00077
|
||||
SPACE 00078
|
||||
DFHMDF POS=(08,21), *00079
|
||||
ATTRB=(ASKIP), *00080
|
||||
LENGTH=16, *00081**3
|
||||
INITIAL='OPO NAME INQUIRY' 00082**3
|
||||
SPACE 00083
|
||||
DFHMDF POS=(09,16), *00084
|
||||
ATTRB=(ASKIP,BRT), *00085
|
||||
LENGTH=1, *00086
|
||||
INITIAL='5' 00087
|
||||
SPACE 00088
|
||||
DFHMDF POS=(09,21), *00089
|
||||
ATTRB=(ASKIP), *00090
|
||||
LENGTH=30, *00091**3
|
||||
INITIAL='OPO NAME/ADDRESS INQUIRY/UPDATE' 00092**3
|
||||
SPACE 00093
|
||||
DFHMDF POS=(10,16), *00094
|
||||
ATTRB=(ASKIP,BRT), *00095
|
||||
LENGTH=1, *00096
|
||||
INITIAL='6' 00097
|
||||
SPACE 00098
|
||||
DFHMDF POS=(10,21), *00099
|
||||
ATTRB=(ASKIP), *00100
|
||||
LENGTH=41, *00101
|
||||
INITIAL='TAX ALTERNATE NAME/ADDRESS INQUIRY/UPDATE' 00102
|
||||
SPACE 00103
|
||||
DFHMDF POS=(11,16), *00104
|
||||
ATTRB=(ASKIP,BRT), *00105
|
||||
LENGTH=1, *00106
|
||||
INITIAL='7' 00107
|
||||
SPACE 00108
|
||||
DFHMDF POS=(11,21), *00109
|
||||
ATTRB=(ASKIP), *00110
|
||||
LENGTH=24, *00111**3
|
||||
INITIAL='LIABILITY INQUIRY/UPDATE' 00112**3
|
||||
SPACE 00113
|
||||
DFHMDF POS=(12,16), *00114
|
||||
ATTRB=(ASKIP,BRT), *00115
|
||||
LENGTH=1, *00116
|
||||
INITIAL='8' 00117
|
||||
SPACE 00118
|
||||
DFHMDF POS=(12,21), *00119
|
||||
ATTRB=(ASKIP), *00120
|
||||
LENGTH=20, *00121
|
||||
INITIAL='RELATIONSHIP INQUIRY' 00122
|
||||
SPACE 00123
|
||||
DFHMDF POS=(13,16), *00124
|
||||
ATTRB=(ASKIP,BRT), *00125
|
||||
LENGTH=1, *00126
|
||||
INITIAL='9' 00127
|
||||
SPACE 00128
|
||||
DFHMDF POS=(13,21), *00129
|
||||
ATTRB=(ASKIP), *00130
|
||||
LENGTH=27, *00131
|
||||
INITIAL='RELATIONSHIP INQUIRY/UPDATE' 00132
|
||||
SPACE 00133
|
||||
DFHMDF POS=(14,16), *00134
|
||||
ATTRB=(ASKIP,BRT), *00135
|
||||
LENGTH=1, *00136
|
||||
INITIAL='A' 00137
|
||||
SPACE 00138
|
||||
DFHMDF POS=(14,21), *00139
|
||||
ATTRB=(ASKIP), *00140
|
||||
LENGTH=43, *00141
|
||||
INITIAL='INITIAL REGISTRATION/CYCLE A INQUIRY/UPDATE' 00142
|
||||
SPACE 00143
|
||||
DFHMDF POS=(15,16), *00144
|
||||
ATTRB=(ASKIP,BRT), *00145
|
||||
LENGTH=1, *00146
|
||||
INITIAL='C' 00147**3
|
||||
SPACE 00148
|
||||
DFHMDF POS=(15,21), *00149
|
||||
ATTRB=(ASKIP), *00150
|
||||
LENGTH=29, *00151**3
|
||||
INITIAL='LIABILITY DETERMINATION ENTRY' 00152**3
|
||||
SPACE 00153
|
||||
DFHMDF POS=(16,16), *00154
|
||||
ATTRB=(ASKIP,BRT), *00155
|
||||
LENGTH=1, *00156
|
||||
INITIAL='D' 00157**3
|
||||
SPACE 00158
|
||||
DFHMDF POS=(16,21), *00159
|
||||
ATTRB=(ASKIP), *00160
|
||||
LENGTH=41, *00161**3
|
||||
INITIAL='MISCELLANEOUS REGISTRATION INQUIRY/UPDATE' 00162**3
|
||||
SPACE 00163
|
||||
DFHMDF POS=(22,13), *00164
|
||||
ATTRB=(ASKIP), *00165
|
||||
LENGTH=7, *00166
|
||||
INITIAL='OPTION:' 00167
|
||||
SPACE 00168
|
||||
F102221 DFHMDF POS=(22,21), *00169
|
||||
ATTRB=(UNPROT,IC,FSET,BRT), *00170
|
||||
LENGTH=2 00171
|
||||
SPACE 00172
|
||||
DFHMDF POS=(22,24), *00173
|
||||
ATTRB=(ASKIP), *00174
|
||||
LENGTH=1 00175
|
||||
SPACE 00176
|
||||
F102401 DFHMDF POS=(24,01), *00177
|
||||
ATTRB=(ASKIP), *00178
|
||||
LENGTH=8 00179
|
||||
SPACE 00180
|
||||
F102410 DFHMDF POS=(24,10), *00181
|
||||
ATTRB=(ASKIP), *00182
|
||||
LENGTH=58 00183
|
||||
Reference in New Issue
Block a user