DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
168
Maps/DTSM80.bms
Normal file
168
Maps/DTSM80.bms
Normal file
@ -0,0 +1,168 @@
|
||||
* DATA SET DTSM80 AT LEVEL 012 AS OF 06/29/02
|
||||
* DATA SET DTSM80 AT LEVEL 004 AS OF 06/07/02 00001
|
||||
* DATA SET DTSM80 AT LEVEL 010 AS OF 01/29/02 00002
|
||||
* DATA SET DTSM80 AT LEVEL 009 AS OF 11/30/01 00003
|
||||
* DATA SET DTSM80 AT LEVEL 005 AS OF 06/15/00 00004
|
||||
* DATA SET MACM80 AT LEVEL 009 AS OF 01/23/95 00005
|
||||
***** 00006
|
||||
* 00007
|
||||
* 80 REFERENCE MENU 00008
|
||||
* 00009
|
||||
***** 00010
|
||||
SPACE 00011
|
||||
DTSM80 DFHMDI SIZE=(24,80), *00012
|
||||
LINE=1, *00013
|
||||
COLUMN=1 00014
|
||||
SPACE 00015
|
||||
F800101 DFHMDF POS=(1,1), *00016
|
||||
ATTRB=(ASKIP,FSET), *00017
|
||||
LENGTH=2, *00018
|
||||
INITIAL='80' 00019
|
||||
SPACE 00020
|
||||
DFHMDF POS=(1,25), *00021
|
||||
ATTRB=(ASKIP), *00022
|
||||
LENGTH=14, *00023
|
||||
INITIAL='REFERENCE MENU' 00024
|
||||
SPACE 00025
|
||||
F800162 DFHMDF POS=(1,62), *00026
|
||||
ATTRB=(ASKIP), *00027
|
||||
LENGTH=8 00028
|
||||
SPACE 00029
|
||||
F800172 DFHMDF POS=(1,72), *00030
|
||||
ATTRB=(ASKIP), *00031
|
||||
LENGTH=8 00032
|
||||
SPACE 00033
|
||||
F800272 DFHMDF POS=(2,72), *00034
|
||||
ATTRB=(ASKIP), *00035
|
||||
LENGTH=8 00036
|
||||
SPACE 00037
|
||||
DFHMDF POS=(03,13), *00038
|
||||
ATTRB=(ASKIP), *00039
|
||||
LENGTH=6, *00040
|
||||
INITIAL='OPTION' 00041
|
||||
SPACE 00042
|
||||
DFHMDF POS=(03,26), *00043
|
||||
ATTRB=(ASKIP), *00044
|
||||
LENGTH=11, *00045
|
||||
INITIAL='DESCRIPTION' 00046
|
||||
SPACE 00047
|
||||
DFHMDF POS=(05,16), *00048
|
||||
ATTRB=(ASKIP,BRT), *00049
|
||||
LENGTH=1, *00050
|
||||
INITIAL='1' 00051
|
||||
SPACE 00052
|
||||
DFHMDF POS=(05,21), *00053
|
||||
ATTRB=(ASKIP), *00054
|
||||
LENGTH=28, *00055
|
||||
INITIAL='CALENDAR YEAR INQUIRY/UPDATE' 00056
|
||||
SPACE 00057
|
||||
DFHMDF POS=(06,16), *00058
|
||||
ATTRB=(ASKIP,BRT), *00059
|
||||
LENGTH=1, *00060
|
||||
INITIAL='2' 00061
|
||||
SPACE 00062
|
||||
DFHMDF POS=(06,21), *00063
|
||||
ATTRB=(ASKIP), *00064
|
||||
LENGTH=31, *00065
|
||||
INITIAL='CALENDAR QUARTER INQUIRY/UPDATE' 00066
|
||||
SPACE 00067
|
||||
DFHMDF POS=(07,16), *00068
|
||||
ATTRB=(ASKIP,BRT), *00069
|
||||
LENGTH=1, *00070
|
||||
INITIAL='3' 00071
|
||||
SPACE 00072
|
||||
DFHMDF POS=(07,21), *00073
|
||||
ATTRB=(ASKIP), *00074
|
||||
LENGTH=22, *00075
|
||||
INITIAL='UI RATE INQUIRY/UPDATE' 00076
|
||||
SPACE 00077
|
||||
DFHMDF POS=(08,16), *00078
|
||||
ATTRB=(ASKIP,BRT), *00079
|
||||
LENGTH=1, *00080
|
||||
INITIAL='4' 00081
|
||||
SPACE 00082
|
||||
DFHMDF POS=(08,21), *00083
|
||||
ATTRB=(ASKIP), *00084
|
||||
LENGTH=35, *00085
|
||||
INITIAL='FIELD REPRESENTATIVE INQUIRY/UPDATE' 00086
|
||||
SPACE 00087
|
||||
DFHMDF POS=(09,16), *00088
|
||||
ATTRB=(ASKIP,BRT), *00089
|
||||
LENGTH=1, *00090
|
||||
INITIAL='5' 00091
|
||||
SPACE 00092
|
||||
DFHMDF POS=(09,21), *00093
|
||||
ATTRB=(ASKIP), *00094
|
||||
LENGTH=45, *00095
|
||||
INITIAL='FIELD REPRESENTATIVE TERRITORY INQUIRY/UPDATE' 00096
|
||||
SPACE 00097
|
||||
DFHMDF POS=(10,16), *00098
|
||||
ATTRB=(ASKIP,BRT), *00099
|
||||
LENGTH=1, *00100
|
||||
INITIAL='6' 00101
|
||||
SPACE 00102
|
||||
DFHMDF POS=(10,21), *00103
|
||||
ATTRB=(ASKIP), *00104
|
||||
LENGTH=36, *00105
|
||||
INITIAL='FIELD ASSIGNMENT TYPE INQUIRY/UPDATE' 00106
|
||||
SPACE 00107
|
||||
DFHMDF POS=(11,16), *00108
|
||||
ATTRB=(ASKIP,BRT), *00109
|
||||
LENGTH=1, *00110
|
||||
INITIAL='7' 00111
|
||||
SPACE 00112
|
||||
DFHMDF POS=(11,21), *00113
|
||||
ATTRB=(ASKIP), *00114
|
||||
LENGTH=34, *00115
|
||||
INITIAL='AUDIT CANDIDATE SELECTION CRITERIA' 00116
|
||||
SPACE 00117
|
||||
DFHMDF POS=(12,16), *00118
|
||||
ATTRB=(ASKIP,BRT), *00119
|
||||
LENGTH=1, *00120
|
||||
INITIAL='8' 00121
|
||||
SPACE 00122
|
||||
DFHMDF POS=(12,21), *00123
|
||||
ATTRB=(ASKIP), *00124
|
||||
LENGTH=34, *00125
|
||||
INITIAL='FISCAL AGENT INQUIRY/UPDATE ' 00126
|
||||
SPACE 00127
|
||||
DFHMDF POS=(13,16), *00128
|
||||
ATTRB=(ASKIP,BRT), *00129
|
||||
LENGTH=1, *00130
|
||||
INITIAL='9' 00131
|
||||
SPACE 00132
|
||||
DFHMDF POS=(13,21), *00133
|
||||
ATTRB=(ASKIP), *00134
|
||||
LENGTH=34, *00135
|
||||
INITIAL='ANNUAL FILER UPDATE/INQUIRY ' 00136
|
||||
SPACE 00137
|
||||
DFHMDF POS=(14,16), *00138
|
||||
ATTRB=(ASKIP,BRT), *00139
|
||||
LENGTH=1, *00140
|
||||
INITIAL='A' 00141
|
||||
SPACE 00142
|
||||
DFHMDF POS=(14,21), *00143
|
||||
ATTRB=(ASKIP), *00144
|
||||
LENGTH=34, *00145
|
||||
INITIAL='ONLINE JOB REQUEST INQUIRY ' 00146
|
||||
SPACE 00147
|
||||
DFHMDF POS=(22,13), *00148
|
||||
ATTRB=(ASKIP), *00149
|
||||
LENGTH=7, *00150
|
||||
INITIAL='OPTION:' 00151
|
||||
SPACE 00152
|
||||
F802221 DFHMDF POS=(22,21), *00153
|
||||
ATTRB=(UNPROT,IC,FSET,BRT), *00154
|
||||
LENGTH=2 00155
|
||||
SPACE 00156
|
||||
DFHMDF POS=(22,24), *00157
|
||||
ATTRB=(ASKIP), *00158
|
||||
LENGTH=1 00159
|
||||
SPACE 00160
|
||||
F802401 DFHMDF POS=(24,01), *00161
|
||||
ATTRB=(ASKIP), *00162
|
||||
LENGTH=8 00163
|
||||
SPACE 00164
|
||||
F802410 DFHMDF POS=(24,10), *00165
|
||||
ATTRB=(ASKIP), *00166
|
||||
LENGTH=58 00167
|
||||
Reference in New Issue
Block a user