giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

116
Maps/DTSM90.bms Normal file
View File

@ -0,0 +1,116 @@
* DATA SET DTSM90 AT LEVEL 004 AS OF 09/13/12
* DATA SET DTSM90 AT LEVEL 001 AS OF 08/12/11 00001
* DATA SET DTSM90 AT LEVEL 002 AS OF 08/10/98 00002
* DATA SET MACM90 AT LEVEL 008 AS OF 01/23/95 00003
***** 00004
* 00005
* 90 SYSTEM ADMINISTRATION MENU 00006
* 00007
***** 00008
SPACE 00009
DTSM90 DFHMDI SIZE=(24,80), *00010
LINE=1, *00011
COLUMN=1 00012
SPACE 00013
F900101 DFHMDF POS=(1,1), *00014
ATTRB=(ASKIP,FSET), *00015
LENGTH=2, *00016
INITIAL='90' 00017
SPACE 00018
DFHMDF POS=(1,25), *00019
ATTRB=(ASKIP), *00020
LENGTH=26, *00021
INITIAL='SYSTEM ADMINISTRATION MENU' 00022
SPACE 00023
F900162 DFHMDF POS=(1,62), *00024
ATTRB=(ASKIP), *00025
LENGTH=8 00026
SPACE 00027
F900172 DFHMDF POS=(1,72), *00028
ATTRB=(ASKIP), *00029
LENGTH=8 00030
SPACE 00031
F900272 DFHMDF POS=(2,72), *00032
ATTRB=(ASKIP), *00033
LENGTH=8 00034
SPACE 00035
DFHMDF POS=(03,13), *00036
ATTRB=(ASKIP), *00037
LENGTH=6, *00038
INITIAL='OPTION' 00039
SPACE 00040
DFHMDF POS=(03,26), *00041
ATTRB=(ASKIP), *00042
LENGTH=11, *00043
INITIAL='DESCRIPTION' 00044
SPACE 00045
DFHMDF POS=(05,16), *00046
ATTRB=(ASKIP,BRT), *00047
LENGTH=1, *00048
INITIAL='1' 00049
SPACE 00050
DFHMDF POS=(05,21), *00051
ATTRB=(ASKIP), *00052
LENGTH=30, *00053
INITIAL='PURGE INDICATOR INQUIRY/UPDATE' 00054
SPACE 00055
DFHMDF POS=(06,16), *00056
ATTRB=(ASKIP,BRT), *00057
LENGTH=1, *00058
INITIAL='2' 00059
SPACE 00060
DFHMDF POS=(06,21), *00061
ATTRB=(ASKIP), *00062
LENGTH=26, *00063
INITIAL='OPERATOR ID INQUIRY/UPDATE' 00064
SPACE 00065
DFHMDF POS=(07,16), *00066
ATTRB=(ASKIP,BRT), *00067
LENGTH=1, *00068
INITIAL=' ' 00069
SPACE 00070
DFHMDF POS=(07,21), *00071
ATTRB=(ASKIP), *00072
LENGTH=01, *00073
INITIAL=' ' 00074
SPACE 00075
DFHMDF POS=(08,16), *00076
ATTRB=(ASKIP,BRT), *00077
LENGTH=1, *00078
INITIAL='8' 00079
SPACE 00080
DFHMDF POS=(08,21), *00081
ATTRB=(ASKIP), *00082
LENGTH=40, *00083
INITIAL='MASTER FILE HEADER RECORD INQUIRY/UPDATE' 00084
SPACE 00085
DFHMDF POS=(09,16), *00086
ATTRB=(ASKIP,BRT), *00087
LENGTH=1, *00088
INITIAL='9' 00089
SPACE 00090
DFHMDF POS=(09,21), *00091
ATTRB=(ASKIP), *00092
LENGTH=26, *00093
INITIAL='UPDATE LOCK INQUIRY/UPDATE' 00094
SPACE 00095
DFHMDF POS=(22,13), *00096
ATTRB=(ASKIP), *00097
LENGTH=7, *00098
INITIAL='OPTION:' 00099
SPACE 00100
F902221 DFHMDF POS=(22,21), *00101
ATTRB=(UNPROT,IC,FSET,BRT), *00102
LENGTH=2 00103
SPACE 00104
DFHMDF POS=(22,24), *00105
ATTRB=(ASKIP), *00106
LENGTH=1 00107
SPACE 00108
F902401 DFHMDF POS=(24,01), *00109
ATTRB=(ASKIP), *00110
LENGTH=8 00111
SPACE 00112
F902410 DFHMDF POS=(24,10), *00113
ATTRB=(ASKIP), *00114
LENGTH=58 00115