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

112
Maps/DTSM72.bms Normal file
View File

@ -0,0 +1,112 @@
* DATA SET DTSM72 AT LEVEL 005 AS OF 09/29/98
* DATA SET MACM72 AT LEVEL 012 AS OF 01/23/95 00001
***** 00002
* 00003
* 72 EVENT LOG INQUIRY 00004
* 00005
***** 00006
SPACE 00007
DTSM72 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00008**2
SPACE 00009
F720101 DFHMDF POS=(1,1),LENGTH=02,ATTRB=(FSET,ASKIP), *00010
INITIAL='72' 00011
SPACE 00012
DFHMDF POS=(1,24),LENGTH=17,ATTRB=(ASKIP), *00013
INITIAL='EVENT LOG INQUIRY' 00014
SPACE 00015
F720162 DFHMDF POS=(1,62),LENGTH=08,ATTRB=(ASKIP) 00016
SPACE 00017
F720172 DFHMDF POS=(1,72),LENGTH=08,ATTRB=(ASKIP) 00018
SPACE 00019
DFHMDF POS=(02,04),LENGTH=07,ATTRB=(ASKIP), *00020
INITIAL='EMP NO:' 00021
SPACE 00022
F720212 DFHMDF POS=(02,12),LENGTH=03,ATTRB=(ASKIP) 00023
SPACE 00024
F720216 DFHMDF POS=(02,16),LENGTH=03,ATTRB=(ASKIP) 00025
SPACE 00026
DFHMDF POS=(02,20),LENGTH=01,ATTRB=(ASKIP) 00027
SPACE 00028
F720223 DFHMDF POS=(02,23),LENGTH=40,ATTRB=(ASKIP) 00029
SPACE 00030
F720272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=(ASKIP) 00031
SPACE 00032
F720372 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
F720378 DFHMDF POS=(03,78),LENGTH=02,ATTRB=(ASKIP) 00038
SPACE 00039
DFHMDF POS=(04,01),LENGTH=02,ATTRB=(ASKIP), *00040
INITIAL='NO' 00041
SPACE 00042
DFHMDF POS=(04,06),LENGTH=04,ATTRB=(ASKIP), *00043
INITIAL='DATE' 00044
SPACE 00045
DFHMDF POS=(04,15),LENGTH=04,ATTRB=(ASKIP), *00046
INITIAL='TIME' 00047
SPACE 00048
DFHMDF POS=(04,24),LENGTH=11,ATTRB=(ASKIP), *00049
INITIAL='DESCRIPTION' 00050
SPACE 00051
DFHMDF POS=(04,74),LENGTH=05,ATTRB=(ASKIP), *00052
INITIAL='OP ID' 00053
SPACE 00054
F720501 DFHMDF POS=(05,01),LENGTH=78,ATTRB=(ASKIP) 00055
SPACE 00056
F720601 DFHMDF POS=(06,01),LENGTH=78,ATTRB=(ASKIP) 00057
SPACE 00058
F720701 DFHMDF POS=(07,01),LENGTH=78,ATTRB=(ASKIP) 00059
SPACE 00060
F720801 DFHMDF POS=(08,01),LENGTH=78,ATTRB=(ASKIP) 00061
SPACE 00062
F720901 DFHMDF POS=(09,01),LENGTH=78,ATTRB=(ASKIP) 00063
SPACE 00064
F721001 DFHMDF POS=(10,01),LENGTH=78,ATTRB=(ASKIP) 00065
SPACE 00066
F721101 DFHMDF POS=(11,01),LENGTH=78,ATTRB=(ASKIP) 00067
SPACE 00068
F721201 DFHMDF POS=(12,01),LENGTH=78,ATTRB=(ASKIP) 00069
SPACE 00070
F721301 DFHMDF POS=(13,01),LENGTH=78,ATTRB=(ASKIP) 00071
SPACE 00072
F721401 DFHMDF POS=(14,01),LENGTH=78,ATTRB=(ASKIP) 00073
SPACE 00074
F721501 DFHMDF POS=(15,01),LENGTH=78,ATTRB=(ASKIP) 00075
SPACE 00076
F721601 DFHMDF POS=(16,01),LENGTH=78,ATTRB=(ASKIP) 00077
SPACE 00078
F721701 DFHMDF POS=(17,01),LENGTH=78,ATTRB=(ASKIP) 00079
SPACE 00080
F721801 DFHMDF POS=(18,01),LENGTH=78,ATTRB=(ASKIP) 00081
SPACE 00082
F721901 DFHMDF POS=(19,01),LENGTH=78,ATTRB=(ASKIP) 00083
SPACE 00084
F722001 DFHMDF POS=(20,01),LENGTH=78,ATTRB=(ASKIP) 00085
SPACE 00086
DFHMDF POS=(22,01),LENGTH=15,ATTRB=(ASKIP), *00087
INITIAL='SELECT LINE NO:' 00088
SPACE 00089
F722217 DFHMDF POS=(22,17),LENGTH=02,ATTRB=(ASKIP) 00090
SPACE 00091
DFHMDF POS=(22,20),LENGTH=01,ATTRB=(ASKIP) 00092
SPACE 00093
F722301 DFHMDF POS=(23,01),LENGTH=08,ATTRB=(ASKIP) 00094**5
SPACE 00095
F722310 DFHMDF POS=(23,10),LENGTH=07,ATTRB=(ASKIP) 00096**5
SPACE 00097
F722318 DFHMDF POS=(23,18),LENGTH=07,ATTRB=(ASKIP) 00098**5
SPACE 00099
F722326 DFHMDF POS=(23,26),LENGTH=07,ATTRB=(ASKIP) 00100**5
SPACE 00101
F722401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=(ASKIP) 00102
SPACE 00103
F722410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=(ASKIP) 00104
SPACE 00105
DFHMDF POS=(24,69),LENGTH=06,ATTRB=(ASKIP), *00106
INITIAL='GO TO:' 00107
SPACE 00108
F722476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=(ASKIP) 00109
SPACE 00110
DFHMDF POS=(24,79),LENGTH=01,ATTRB=(ASKIP) 00111