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

92
Maps/DTSM99.bms Normal file
View File

@ -0,0 +1,92 @@
* DATA SET DTSM99 AT LEVEL 005 AS OF 10/01/98
* DATA SET MACM99 AT LEVEL 018 AS OF 01/24/95 00001
***** 00002
* 00003
* 99 UPDATE LOCK INQUIRY/UPDATE. 00004
* 00005
***** 00006
SPACE 00007
DTSM99 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00008**2
SPACE 00009
F990101 DFHMDF POS=(1,1),LENGTH=02,ATTRB=(FSET,ASKIP), *00010
INITIAL='99' 00011
SPACE 00012
DFHMDF POS=(1,23),LENGTH=26,ATTRB=(ASKIP), *00013
INITIAL='UPDATE LOCK INQUIRY/UPDATE' 00014
SPACE 00015
F990162 DFHMDF POS=(1,62),LENGTH=08,ATTRB=(ASKIP) 00016
SPACE 00017
F990172 DFHMDF POS=(1,72),LENGTH=08,ATTRB=(ASKIP) 00018
SPACE 00019
F990272 DFHMDF POS=(2,72),LENGTH=08,ATTRB=(ASKIP) 00020
SPACE 00021
DFHMDF POS=(03,22),LENGTH=07,ATTRB=(ASKIP), *00022
INITIAL='EMP NO:' 00023
SPACE 00024
F990330 DFHMDF POS=(03,30),LENGTH=03,ATTRB=(ASKIP) 00025
SPACE 00026
F990334 DFHMDF POS=(03,34),LENGTH=03,ATTRB=(ASKIP) 00027
SPACE 00028
DFHMDF POS=(03,38),LENGTH=01,ATTRB=(ASKIP) 00029
SPACE 00030
F990340 DFHMDF POS=(03,40),LENGTH=40,ATTRB=(ASKIP) 00031
SPACE 00032
DFHMDF POS=(05,02),LENGTH=27,ATTRB=(ASKIP), *00033
INITIAL='ON-LINE UPDATE IN PROGRESS?' 00034
SPACE 00035
F990530 DFHMDF POS=(05,30),LENGTH=01,ATTRB=(ASKIP) 00036
SPACE 00037
DFHMDF POS=(05,32),LENGTH=01,ATTRB=(ASKIP) 00038
SPACE 00039
DFHMDF POS=(07,21),LENGTH=08,ATTRB=(ASKIP), *00040
INITIAL='TASK ID:' 00041
SPACE 00042
F990730 DFHMDF POS=(07,30),LENGTH=08,ATTRB=(ASKIP) 00043
SPACE 00044
DFHMDF POS=(08,09),LENGTH=20,ATTRB=(ASKIP), *00045
INITIAL='SIGN-ON OPERATOR ID:' 00046
SPACE 00047
F990830 DFHMDF POS=(08,30),LENGTH=08,ATTRB=(ASKIP) 00048**5
SPACE 00049
DFHMDF POS=(09,17),LENGTH=12,ATTRB=(ASKIP), *00050**4
INITIAL='TERMINAL ID:' 00051
SPACE 00052
F990930 DFHMDF POS=(09,30),LENGTH=04,ATTRB=(ASKIP) 00053
SPACE 00054**3
DFHMDF POS=(10,09),LENGTH=20,ATTRB=(ASKIP), *00055**3
INITIAL='NETWORK DEVICE NAME:' 00056**3
SPACE 00057**3
F991030 DFHMDF POS=(10,30),LENGTH=08,ATTRB=(ASKIP) 00058**3
SPACE 00059
DFHMDF POS=(11,19),LENGTH=10,ATTRB=(ASKIP), *00060**3
INITIAL='SCREEN ID:' 00061
SPACE 00062
F991130 DFHMDF POS=(11,30),LENGTH=02,ATTRB=(ASKIP) 00063**3
SPACE 00064
DFHMDF POS=(12,20),LENGTH=09,ATTRB=(ASKIP), *00065**3
INITIAL='FUNCTION:' 00066
SPACE 00067
F991230 DFHMDF POS=(12,30),LENGTH=01,ATTRB=(ASKIP) 00068**3
SPACE 00069
DFHMDF POS=(13,24),LENGTH=05,ATTRB=(ASKIP), *00070**3
INITIAL='DATE:' 00071
SPACE 00072
F991330 DFHMDF POS=(13,30),LENGTH=08,ATTRB=(ASKIP) 00073**3
SPACE 00074
DFHMDF POS=(14,24),LENGTH=05,ATTRB=(ASKIP), *00075**3
INITIAL='TIME:' 00076
SPACE 00077
F991430 DFHMDF POS=(14,30),LENGTH=08,ATTRB=(ASKIP) 00078**3
SPACE 00079
F992331 DFHMDF POS=(23,31),LENGTH=07,ATTRB=(ASKIP) 00080
SPACE 00081
F992401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=(ASKIP) 00082
SPACE 00083
F992410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=(ASKIP) 00084
SPACE 00085
DFHMDF POS=(24,69),LENGTH=06,ATTRB=(ASKIP), *00086
INITIAL='GO TO:' 00087
SPACE 00088
F992476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=(ASKIP) 00089
SPACE 00090
DFHMDF POS=(24,79),LENGTH=01,ATTRB=(ASKIP) 00091