* 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