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

136
Maps/DTSM30.bms Normal file
View File

@ -0,0 +1,136 @@
* DATA SET DTSM30 AT LEVEL 004 AS OF 04/05/04
* DATA SET DTSM30 AT LEVEL 002 AS OF 09/11/03 00001
* DATA SET DTSM30 AT LEVEL 002 AS OF 08/10/98 00002
* DATA SET MACM30 AT LEVEL 008 AS OF 01/23/95 00003
***** 00004
* 00005
* 30 ACCOUNTING INQUIRY MENU 00006
* 00007
***** 00008
SPACE 00009
DTSM30 DFHMDI SIZE=(24,80), *00010
LINE=1, *00011
COLUMN=1 00012
SPACE 00013
F300101 DFHMDF POS=(1,1), *00014
ATTRB=(ASKIP,FSET), *00015
LENGTH=2, *00016
INITIAL='30' 00017
SPACE 00018
DFHMDF POS=(1,25), *00019
ATTRB=(ASKIP), *00020
LENGTH=23, *00021
INITIAL='ACCOUNTING INQUIRY MENU' 00022
SPACE 00023
F300162 DFHMDF POS=(1,62), *00024
ATTRB=(ASKIP), *00025
LENGTH=8 00026
SPACE 00027
F300172 DFHMDF POS=(1,72), *00028
ATTRB=(ASKIP), *00029
LENGTH=8 00030
SPACE 00031
F300272 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=15, *00053
INITIAL='QUARTER INQUIRY' 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=25, *00063
INITIAL='ALTERNATE QUARTER INQUIRY' 00064
SPACE 00065
DFHMDF POS=(07,16), *00066
ATTRB=(ASKIP,BRT), *00067
LENGTH=1, *00068
INITIAL='3' 00069
SPACE 00070
DFHMDF POS=(07,21), *00071
ATTRB=(ASKIP), *00072
LENGTH=14, *00073
INITIAL='REPORT INQUIRY' 00074
SPACE 00075
DFHMDF POS=(08,16), *00076
ATTRB=(ASKIP,BRT), *00077
LENGTH=1, *00078
INITIAL='4' 00079
SPACE 00080
DFHMDF POS=(08,21), *00081
ATTRB=(ASKIP), *00082
LENGTH=15, *00083
INITIAL='PAYMENT INQUIRY' 00084
SPACE 00085
DFHMDF POS=(09,16), *00086
ATTRB=(ASKIP,BRT), *00087
LENGTH=1, *00088
INITIAL='5' 00089
SPACE 00090
DFHMDF POS=(09,21), *00091
ATTRB=(ASKIP), *00092
LENGTH=18, *00093
INITIAL='ADJUSTMENT INQUIRY' 00094
SPACE 00095
DFHMDF POS=(10,16), *00096
ATTRB=(ASKIP,BRT), *00097
LENGTH=1, *00098
INITIAL='6' 00099
SPACE 00100
DFHMDF POS=(10,21), *00101
ATTRB=(ASKIP), *00102
LENGTH=15, *00103
INITIAL='JOURNAL INQUIRY' 00104
SPACE 00105
DFHMDF POS=(11,16), *00106
ATTRB=(ASKIP,BRT), *00107
LENGTH=1, *00108
INITIAL='7' 00109
SPACE 00110
DFHMDF POS=(11,21), *00111
ATTRB=(ASKIP), *00112
LENGTH=26, *00113
INITIAL='ELECTRONIC PAYMENT INQUIRY' 00114
SPACE 00115
DFHMDF POS=(22,13), *00116
ATTRB=(ASKIP), *00117
LENGTH=7, *00118
INITIAL='OPTION:' 00119
SPACE 00120
F302221 DFHMDF POS=(22,21), *00121
ATTRB=(UNPROT,IC,FSET,BRT), *00122
LENGTH=2 00123
SPACE 00124
DFHMDF POS=(22,24), *00125
ATTRB=(ASKIP), *00126
LENGTH=1 00127
SPACE 00128
F302401 DFHMDF POS=(24,01), *00129
ATTRB=(ASKIP), *00130
LENGTH=8 00131
SPACE 00132
F302410 DFHMDF POS=(24,10), *00133
ATTRB=(ASKIP), *00134
LENGTH=58 00135