Files
DUTAS/Maps/OJRM002.bms
2025-07-21 11:20:11 -04:00

163 lines
12 KiB
Plaintext

* 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