DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
162
Maps/OJRM002.bms
Normal file
162
Maps/OJRM002.bms
Normal file
@ -0,0 +1,162 @@
|
||||
* DATA SET OJRM002 AT LEVEL 001 AS OF 05/08/02
|
||||
* DATA SET OJRM002 AT LEVEL 009 AS OF 04/03/02 00001
|
||||
* DATA SET OJRM002 AT LEVEL 004 AS OF 12/11/98 00002
|
||||
OJRM002 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 QUARTER:' 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
|
||||
* QUARTER LITERAL 00051
|
||||
DFHMDF POS=(04,03), X00052
|
||||
ATTRB=(ASKIP), X00053
|
||||
LENGTH=006, X00054
|
||||
INITIAL='YY Q' 00055
|
||||
* FILLER 00056
|
||||
DFHMDF POS=(04,10), X00057
|
||||
ATTRB=(ASKIP), X00058
|
||||
LENGTH=018, 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
|
||||
* YEAR VAR 00071
|
||||
F0020503 DFHMDF POS=(05,03), X00072
|
||||
ATTRB=(NUM,FSET,IC), X00073
|
||||
LENGTH=002 00074
|
||||
DFHMDF POS=(05,06), X00075
|
||||
ATTRB=(ASKIP), X00076
|
||||
LENGTH=001 00077
|
||||
* QUARTER VAR 00078
|
||||
F0020508 DFHMDF POS=(05,08), X00079
|
||||
ATTRB=(NUM,FSET), X00080
|
||||
LENGTH=001 00081
|
||||
DFHMDF POS=(05,10), X00082
|
||||
ATTRB=(ASKIP), X00083
|
||||
LENGTH=001 00084
|
||||
* FILLER 00085
|
||||
DFHMDF POS=(05,12), X00086
|
||||
ATTRB=(ASKIP), X00087
|
||||
LENGTH=016, X00088
|
||||
INITIAL=' ' 00089
|
||||
* RIGHT BORDER 00090
|
||||
DFHMDF POS=(05,29), X00091
|
||||
ATTRB=(ASKIP), X00092
|
||||
LENGTH=001, X00093
|
||||
INITIAL='*' 00094
|
||||
* LEFT BORDER 00095
|
||||
DFHMDF POS=(06,01), X00096
|
||||
ATTRB=(ASKIP), X00097
|
||||
LENGTH=001, X00098
|
||||
INITIAL='*' 00099
|
||||
* BLANK LINE 00100
|
||||
DFHMDF POS=(06,03), X00101
|
||||
ATTRB=(ASKIP), X00102
|
||||
LENGTH=025, X00103
|
||||
INITIAL=' ' 00104
|
||||
* RIGHT BORDER 00105
|
||||
DFHMDF POS=(06,29), X00106
|
||||
ATTRB=(ASKIP), X00107
|
||||
LENGTH=001, X00108
|
||||
INITIAL='*' 00109
|
||||
* LEFT BORDER 00110
|
||||
DFHMDF POS=(07,01), X00111
|
||||
ATTRB=(ASKIP), X00112
|
||||
LENGTH=001, X00113
|
||||
INITIAL='*' 00114
|
||||
* BLANK LINE 00115
|
||||
DFHMDF POS=(07,03), X00116
|
||||
ATTRB=(ASKIP), X00117
|
||||
LENGTH=025, X00118
|
||||
INITIAL=' ' 00119
|
||||
* RIGHT BORDER 00120
|
||||
DFHMDF POS=(07,29), X00121
|
||||
ATTRB=(ASKIP), X00122
|
||||
LENGTH=001, X00123
|
||||
INITIAL='*' 00124
|
||||
* LEFT BORDER 00125
|
||||
DFHMDF POS=(08,01), X00126
|
||||
ATTRB=(ASKIP), X00127
|
||||
LENGTH=001, X00128
|
||||
INITIAL='*' 00129
|
||||
* MSG STUFF 00130
|
||||
F0020803 DFHMDF POS=(08,03), X00131
|
||||
ATTRB=(ASKIP), X00132
|
||||
LENGTH=016 00133
|
||||
F0020827 DFHMDF POS=(08,27), X00134
|
||||
ATTRB=(ASKIP), X00135
|
||||
LENGTH=001 00136
|
||||
* RIGHT BORDER 00137
|
||||
DFHMDF POS=(08,29), X00138
|
||||
ATTRB=(ASKIP), X00139
|
||||
LENGTH=001, X00140
|
||||
INITIAL='*' 00141
|
||||
* LEFT BORDER 00142
|
||||
DFHMDF POS=(09,01), X00143
|
||||
ATTRB=(ASKIP), X00144
|
||||
LENGTH=001, X00145
|
||||
INITIAL='*' 00146
|
||||
* BLANK LINE 00147
|
||||
DFHMDF POS=(09,03), X00148
|
||||
ATTRB=(ASKIP), X00149
|
||||
LENGTH=025, X00150
|
||||
INITIAL=' ' 00151
|
||||
* RIGHT BORDER 00152
|
||||
DFHMDF POS=(09,29), X00153
|
||||
ATTRB=(ASKIP), X00154
|
||||
LENGTH=001, X00155
|
||||
INITIAL='*' 00156
|
||||
* BOTTOM BORDER 00157
|
||||
DFHMDF POS=(10,01), X00158
|
||||
ATTRB=(ASKIP), X00159
|
||||
LENGTH=029, X00160
|
||||
INITIAL='*****************************' 00161
|
||||
Reference in New Issue
Block a user