* DATA SET OJRM001 AT LEVEL 001 AS OF 05/08/02 * DATA SET OJRM001 AT LEVEL 046 AS OF 04/03/02 00001 * DATA SET OJRM001 AT LEVEL 004 AS OF 11/18/98 00002 OJRM001 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 * DATA TYPE LITERAL 00016 DFHMDF POS=(02,03), X00017 ATTRB=(ASKIP), X00018 LENGTH=011, X00019 INITIAL='ENTER DATE:' 00020 * FILLER 00021 DFHMDF POS=(02,15), X00022 ATTRB=(ASKIP), X00023 LENGTH=013, 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 * DATE LITERAL 00051 DFHMDF POS=(04,03), X00052 ATTRB=(ASKIP), X00053 LENGTH=012, X00054 INITIAL='MM DD YY' 00055 * FILLER 00056 DFHMDF POS=(04,16), X00057 ATTRB=(ASKIP), X00058 LENGTH=012, 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 * MONTH VAR 00071 F0010503 DFHMDF POS=(05,03), X00072 ATTRB=(NUM,FSET,IC), X00073 LENGTH=002 00074 DFHMDF POS=(05,06), X00075 ATTRB=(ASKIP), X00076 LENGTH=001, X00077 INITIAL='/' 00078 * DAY VAR 00079 F0010508 DFHMDF POS=(05,08), X00080 ATTRB=(NUM,FSET), X00081 LENGTH=002 00082 DFHMDF POS=(05,11), X00083 ATTRB=(ASKIP), X00084 LENGTH=001, X00085 INITIAL='/' 00086 * YEAR VAR 00087 F0010513 DFHMDF POS=(05,13), X00088 ATTRB=(NUM,FSET), X00089 LENGTH=002 00090 DFHMDF POS=(05,16), X00091 ATTRB=(ASKIP), X00092 LENGTH=001 00093 * FILLER 00094 DFHMDF POS=(05,18), X00095 ATTRB=(ASKIP), X00096 LENGTH=010, X00097 INITIAL=' ' 00098 * RIGHT BORDER 00099 DFHMDF POS=(05,29), X00100 ATTRB=(ASKIP), X00101 LENGTH=001, X00102 INITIAL='*' 00103 * LEFT BORDER 00104 DFHMDF POS=(06,01), X00105 ATTRB=(ASKIP), X00106 LENGTH=001, X00107 INITIAL='*' 00108 * BLANK LINE 00109 DFHMDF POS=(06,03), X00110 ATTRB=(ASKIP), X00111 LENGTH=025, X00112 INITIAL=' ' 00113 * RIGHT BORDER 00114 DFHMDF POS=(06,29), X00115 ATTRB=(ASKIP), X00116 LENGTH=001, X00117 INITIAL='*' 00118 * LEFT BORDER 00119 DFHMDF POS=(07,01), X00120 ATTRB=(ASKIP), X00121 LENGTH=001, X00122 INITIAL='*' 00123 * BLANK LINE 00124 DFHMDF POS=(07,03), X00125 ATTRB=(ASKIP), X00126 LENGTH=025, X00127 INITIAL=' ' 00128 * RIGHT BORDER 00129 DFHMDF POS=(07,29), X00130 ATTRB=(ASKIP), X00131 LENGTH=001, X00132 INITIAL='*' 00133 * LEFT BORDER 00134 DFHMDF POS=(08,01), X00135 ATTRB=(ASKIP), X00136 LENGTH=001, X00137 INITIAL='*' 00138 * MSG STUFF 00139 F0010803 DFHMDF POS=(08,03), X00140 ATTRB=(ASKIP), X00141 LENGTH=016 00142 F0010827 DFHMDF POS=(08,27), X00143 ATTRB=(ASKIP), X00144 LENGTH=001 00145 * RIGHT BORDER 00146 DFHMDF POS=(08,29), X00147 ATTRB=(ASKIP), X00148 LENGTH=001, X00149 INITIAL='*' 00150 * LEFT BORDER 00151 DFHMDF POS=(09,01), X00152 ATTRB=(ASKIP), X00153 LENGTH=001, X00154 INITIAL='*' 00155 * BLANK LINE 00156 DFHMDF POS=(09,03), X00157 ATTRB=(ASKIP), X00158 LENGTH=025, X00159 INITIAL=' ' 00160 * RIGHT BORDER 00161 DFHMDF POS=(09,29), X00162 ATTRB=(ASKIP), X00163 LENGTH=001, X00164 INITIAL='*' 00165 * BOTTOM BORDER 00166 DFHMDF POS=(10,01), X00167 ATTRB=(ASKIP), X00168 LENGTH=029, X00169 INITIAL='*****************************' 00170