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

58
Maps/DTSM91.bms Normal file
View File

@ -0,0 +1,58 @@
* DATA SET DTSM91 AT LEVEL 003 AS OF 12/22/98
***** 00001
* 00002
* 91 PURGE INDICATOR INQUIRY/UPDATE. 00003
* 00004
***** 00005
SPACE 00006
DTSM91 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00007**2
SPACE 00008
F910101 DFHMDF POS=(1,1),LENGTH=02,ATTRB=(FSET,ASKIP), *00009
INITIAL='91' 00010
SPACE 00011
DFHMDF POS=(1,21),LENGTH=30,ATTRB=(ASKIP), *00012
INITIAL='PURGE INDICATOR INQUIRY/UPDATE' 00013
SPACE 00014
F910162 DFHMDF POS=(1,62),LENGTH=08,ATTRB=(ASKIP) 00015
SPACE 00016
F910172 DFHMDF POS=(1,72),LENGTH=08,ATTRB=(ASKIP) 00017
SPACE 00018
F910272 DFHMDF POS=(2,72),LENGTH=08,ATTRB=(ASKIP) 00019
SPACE 00020
DFHMDF POS=(03,02),LENGTH=07,ATTRB=(ASKIP), *00021
INITIAL='EMP NO:' 00022
SPACE 00023
F910310 DFHMDF POS=(03,10),LENGTH=03,ATTRB=(ASKIP) 00024
SPACE 00025
F910314 DFHMDF POS=(03,14),LENGTH=03,ATTRB=(ASKIP) 00026
SPACE 00027
DFHMDF POS=(03,18),LENGTH=01,ATTRB=(ASKIP) 00028
SPACE 00029
F910336 DFHMDF POS=(03,21),LENGTH=40,ATTRB=(ASKIP) 00030
SPACE 00031
DFHMDF POS=(05,03),LENGTH=06,ATTRB=(ASKIP), *00032
INITIAL='PURGE?' 00033
SPACE 00034
F910510 DFHMDF POS=(05,10),LENGTH=01,ATTRB=(ASKIP) 00035
SPACE 00036
DFHMDF POS=(05,12),LENGTH=01,ATTRB=(ASKIP) 00037
SPACE 00038
DFHMDF POS=(21,01),LENGTH=16,ATTRB=(ASKIP), *00039
INITIAL='DISREGARD EDITS?' 00040
SPACE 00041
F912118 DFHMDF POS=(21,18),LENGTH=01,ATTRB=(ASKIP) 00042
SPACE 00043
DFHMDF POS=(21,20),LENGTH=01,ATTRB=(ASKIP) 00044
SPACE 00045
F912324 DFHMDF POS=(23,24),LENGTH=07,ATTRB=(ASKIP) 00046
SPACE 00047
F912401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=(ASKIP) 00048
SPACE 00049
F912410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=(ASKIP) 00050
SPACE 00051
DFHMDF POS=(24,69),LENGTH=06,ATTRB=(ASKIP), *00052
INITIAL='GO TO:' 00053
SPACE 00054
F912476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=(ASKIP) 00055
SPACE 00056
DFHMDF POS=(24,79),LENGTH=01,ATTRB=(ASKIP) 00057