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

155
Maps/OJRM003.bms Normal file
View File

@ -0,0 +1,155 @@
* DATA SET OJRM003 AT LEVEL 001 AS OF 05/08/02
* DATA SET OJRM003 AT LEVEL 009 AS OF 04/03/02 00001
* DATA SET OJRM003 AT LEVEL 004 AS OF 12/11/98 00002
OJRM003 DFHMDI SIZE=(10,30), X00003
LINE=05, X00004
COLUMN=40 00005
* TOP BORDER 00006
DFHMDF POS=(01,01), X00007
ATTRB=(ASKIP), X00008
LENGTH=029, X00009
INITIAL='*****************************' 00010
* LEFT BORDER 00011
DFHMDF POS=(02,01), X00012
ATTRB=(ASKIP), X00013
LENGTH=001, X00014
INITIAL='*' 00015
* QUARTER TYPE LITERAL 00016
DFHMDF POS=(02,03), X00017
ATTRB=(ASKIP), X00018
LENGTH=014, X00019
INITIAL='ENTER USER ID:' 00020
* FILLER 00021
DFHMDF POS=(02,18), X00022
ATTRB=(ASKIP), X00023
LENGTH=010, X00024
INITIAL=' ' 00025
* RIGHT BORDER 00026
DFHMDF POS=(02,29), X00027
ATTRB=(ASKIP), X00028
LENGTH=001, X00029
INITIAL='*' 00030
* LEFT BORDER 00031
DFHMDF POS=(03,01), X00032
ATTRB=(ASKIP), X00033
LENGTH=001, X00034
INITIAL='*' 00035
* BLANK LINE 00036
DFHMDF POS=(03,03), X00037
ATTRB=(ASKIP), X00038
LENGTH=025, X00039
INITIAL=' ' 00040
* RIGHT BORDER 00041
DFHMDF POS=(03,29), X00042
ATTRB=(ASKIP), X00043
LENGTH=001, X00044
INITIAL='*' 00045
* LEFT BORDER 00046
DFHMDF POS=(04,01), X00047
ATTRB=(ASKIP), X00048
LENGTH=001, X00049
INITIAL='*' 00050
* USER ID LITERAL 00051
DFHMDF POS=(04,03), X00052
ATTRB=(ASKIP), X00053
LENGTH=007, X00054
INITIAL='ECNT ' 00055
* FILLER 00056
DFHMDF POS=(04,11), X00057
ATTRB=(ASKIP), X00058
LENGTH=017, X00059
INITIAL=' ' 00060
* RIGHT BORDER 00061
DFHMDF POS=(04,29), X00062
ATTRB=(ASKIP), X00063
LENGTH=001, X00064
INITIAL='*' 00065
* LEFT BORDER 00066
DFHMDF POS=(05,01), X00067
ATTRB=(ASKIP), X00068
LENGTH=001, X00069
INITIAL='*' 00070
* USER ID VAR 00071
F0030503 DFHMDF POS=(05,03), X00072
ATTRB=(FSET,IC), X00073
LENGTH=008 00074
DFHMDF POS=(05,12), X00075
ATTRB=(ASKIP), X00076
LENGTH=001 00077
* FILLER 00078
DFHMDF POS=(05,16), X00079
ATTRB=(ASKIP), X00080
LENGTH=012, X00081
INITIAL=' ' 00082
* RIGHT BORDER 00083
DFHMDF POS=(05,29), X00084
ATTRB=(ASKIP), X00085
LENGTH=001, X00086
INITIAL='*' 00087
* LEFT BORDER 00088
DFHMDF POS=(06,01), X00089
ATTRB=(ASKIP), X00090
LENGTH=001, X00091
INITIAL='*' 00092
* BLANK LINE 00093
DFHMDF POS=(06,03), X00094
ATTRB=(ASKIP), X00095
LENGTH=025, X00096
INITIAL=' ' 00097
* RIGHT BORDER 00098
DFHMDF POS=(06,29), X00099
ATTRB=(ASKIP), X00100
LENGTH=001, X00101
INITIAL='*' 00102
* LEFT BORDER 00103
DFHMDF POS=(07,01), X00104
ATTRB=(ASKIP), X00105
LENGTH=001, X00106
INITIAL='*' 00107
* BLANK LINE 00108
DFHMDF POS=(07,03), X00109
ATTRB=(ASKIP), X00110
LENGTH=025, X00111
INITIAL=' ' 00112
* RIGHT BORDER 00113
DFHMDF POS=(07,29), X00114
ATTRB=(ASKIP), X00115
LENGTH=001, X00116
INITIAL='*' 00117
* LEFT BORDER 00118
DFHMDF POS=(08,01), X00119
ATTRB=(ASKIP), X00120
LENGTH=001, X00121
INITIAL='*' 00122
* MSG STUFF 00123
F0030803 DFHMDF POS=(08,03), X00124
ATTRB=(ASKIP), X00125
LENGTH=016 00126
F0030827 DFHMDF POS=(08,27), X00127
ATTRB=(ASKIP), X00128
LENGTH=001 00129
* RIGHT BORDER 00130
DFHMDF POS=(08,29), X00131
ATTRB=(ASKIP), X00132
LENGTH=001, X00133
INITIAL='*' 00134
* LEFT BORDER 00135
DFHMDF POS=(09,01), X00136
ATTRB=(ASKIP), X00137
LENGTH=001, X00138
INITIAL='*' 00139
* BLANK LINE 00140
DFHMDF POS=(09,03), X00141
ATTRB=(ASKIP), X00142
LENGTH=025, X00143
INITIAL=' ' 00144
* RIGHT BORDER 00145
DFHMDF POS=(09,29), X00146
ATTRB=(ASKIP), X00147
LENGTH=001, X00148
INITIAL='*' 00149
* BOTTOM BORDER 00150
DFHMDF POS=(10,01), X00151
ATTRB=(ASKIP), X00152
LENGTH=029, X00153
INITIAL='*****************************' 00154