00001 I1000-EDIT-AND-DEFAULT-PARMS. 08/02/02 00002 PERFORM I1100-STATUS-05-CUTOFF-DATE THRU I1100-EXIT. OJRPE123 00003 LV001 00004 PERFORM I1200-STATUS-06-CUTOFF-DATE THRU I1200-EXIT. OJRPE123 00005 OJRPE123 00006 PERFORM I1300-STATUS-09-CUTOFF-DATE THRU I1300-EXIT. OJRPE123 00007 OJRPE123 00008 PERFORM I1400-STATUS-11-CUTOFF-DATE THRU I1400-EXIT. OJRPE123 00009 OJRPE123 00010 I1000-EXIT. OJRPE123 00011 EXIT. OJRPE123 00012 SKIP3 OJRPE123 00013 I1100-STATUS-05-CUTOFF-DATE. OJRPE123 00014 IF OJR-PARM-05-CUTOFF-DATE = SPACES OJRPE123 00015 IF OJR-PERIOD-END-DATE > +0 OJRPE123 00016 MOVE OJR-PERIOD-END-DATE TO L001-FED-8-DATE-9 OJRPE123 00017 PERFORM S001-FROM-FED-8 THRU S001-EXIT OJRPE123 00018 SUBTRACT DEFAULT-CUTOFF-DAYS FROM L001-JUL-ABS-DAY OJRPE123 00019 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT OJRPE123 00020 MOVE L001-FED-8-DATE-9 TO WRK-PARM-05-CUTOFF-DATE OJRPE123 00021 ELSE OJRPE123 00022 MOVE 'OJR-PARM-05-CUTOFF-DATE MISSING' OJRPE123 00023 TO ABEND-MSG OJRPE123 00024 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE123 00025 END-IF OJRPE123 00026 ELSE OJRPE123 00027 MOVE OJR-PARM-05-CUTOFF-DATE TO L001-CAL-6-DATE-X OJRPE123 00028 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE123 00029 IF L001-VALID-DATE OJRPE123 00030 MOVE L001-FED-8-DATE-9 TO WRK-PARM-05-CUTOFF-DATE OJRPE123 00031 ELSE OJRPE123 00032 MOVE 'OJR-PARM-05-CUTOFF-DATE NOT VALID' OJRPE123 00033 TO ABEND-MSG OJRPE123 00034 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE123 00035 END-IF OJRPE123 00036 END-IF. OJRPE123 00037 I1100-EXIT. OJRPE123 00038 EXIT. OJRPE123 00039 SKIP3 OJRPE123 00040 I1200-STATUS-06-CUTOFF-DATE. OJRPE123 00041 IF OJR-PARM-06-CUTOFF-DATE = SPACES OJRPE123 00042 IF OJR-PERIOD-END-DATE > +0 OJRPE123 00043 MOVE OJR-PERIOD-END-DATE TO L001-FED-8-DATE-9 OJRPE123 00044 PERFORM S001-FROM-FED-8 THRU S001-EXIT OJRPE123 00045 SUBTRACT DEFAULT-CUTOFF-DAYS FROM L001-JUL-ABS-DAY OJRPE123 00046 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT OJRPE123 00047 MOVE L001-FED-8-DATE-9 TO WRK-PARM-06-CUTOFF-DATE OJRPE123 00048 ELSE OJRPE123 00049 MOVE 'OJR-PARM-06-CUTOFF-DATE MISSING' OJRPE123 00050 TO ABEND-MSG OJRPE123 00051 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE123 00052 END-IF OJRPE123 00053 ELSE OJRPE123 00054 MOVE OJR-PARM-06-CUTOFF-DATE TO L001-CAL-6-DATE-X OJRPE123 00055 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE123 00056 IF L001-VALID-DATE OJRPE123 00057 MOVE L001-FED-8-DATE-9 TO WRK-PARM-06-CUTOFF-DATE OJRPE123 00058 ELSE OJRPE123 00059 MOVE 'OJR-PARM-06-CUTOFF-DATE NOT VALID' OJRPE123 00060 TO ABEND-MSG OJRPE123 00061 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE123 00062 END-IF OJRPE123 00063 END-IF. OJRPE123 00064 I1200-EXIT. OJRPE123 00065 EXIT. OJRPE123 00066 SKIP3 OJRPE123 00067 I1300-STATUS-09-CUTOFF-DATE. OJRPE123 00068 IF OJR-PARM-09-CUTOFF-DATE = SPACES OJRPE123 00069 IF OJR-PERIOD-END-DATE > +0 OJRPE123 00070 MOVE OJR-PERIOD-END-DATE TO L001-FED-8-DATE-9 OJRPE123 00071 PERFORM S001-FROM-FED-8 THRU S001-EXIT OJRPE123 00072 SUBTRACT DEFAULT-CUTOFF-DAYS FROM L001-JUL-ABS-DAY OJRPE123 00073 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT OJRPE123 00074 MOVE L001-FED-8-DATE-9 TO WRK-PARM-09-CUTOFF-DATE OJRPE123 00075 ELSE OJRPE123 00076 MOVE 'OJR-PARM-09-CUTOFF-DATE MISSING' OJRPE123 00077 TO ABEND-MSG OJRPE123 00078 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE123 00079 END-IF OJRPE123 00080 ELSE OJRPE123 00081 MOVE OJR-PARM-09-CUTOFF-DATE TO L001-CAL-6-DATE-X OJRPE123 00082 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE123 00083 IF L001-VALID-DATE OJRPE123 00084 MOVE L001-FED-8-DATE-9 TO WRK-PARM-09-CUTOFF-DATE OJRPE123 00085 ELSE OJRPE123 00086 MOVE 'OJR-PARM-09-CUTOFF-DATE NOT VALID' OJRPE123 00087 TO ABEND-MSG OJRPE123 00088 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE123 00089 END-IF OJRPE123 00090 END-IF. OJRPE123 00091 I1300-EXIT. OJRPE123 00092 EXIT. OJRPE123 00093 SKIP3 OJRPE123 00094 I1400-STATUS-11-CUTOFF-DATE. OJRPE123 00095 IF OJR-PARM-11-CUTOFF-DATE = SPACES OJRPE123 00096 IF OJR-PERIOD-END-DATE > +0 OJRPE123 00097 MOVE OJR-PERIOD-END-DATE TO L001-FED-8-DATE-9 OJRPE123 00098 PERFORM S001-FROM-FED-8 THRU S001-EXIT OJRPE123 00099 SUBTRACT DEFAULT-CUTOFF-DAYS FROM L001-JUL-ABS-DAY OJRPE123 00100 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT OJRPE123 00101 MOVE L001-FED-8-DATE-9 TO WRK-PARM-11-CUTOFF-DATE OJRPE123 00102 ELSE OJRPE123 00103 MOVE 'OJR-PARM-11-CUTOFF-DATE MISSING' OJRPE123 00104 TO ABEND-MSG OJRPE123 00105 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE123 00106 END-IF OJRPE123 00107 ELSE OJRPE123 00108 MOVE OJR-PARM-11-CUTOFF-DATE TO L001-CAL-6-DATE-X OJRPE123 00109 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE123 00110 IF L001-VALID-DATE OJRPE123 00111 MOVE L001-FED-8-DATE-9 TO WRK-PARM-11-CUTOFF-DATE OJRPE123 00112 ELSE OJRPE123 00113 MOVE 'OJR-PARM-11-CUTOFF-DATE NOT VALID' OJRPE123 00114 TO ABEND-MSG OJRPE123 00115 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE123 00116 END-IF OJRPE123 00117 END-IF. OJRPE123 00118 I1400-EXIT. OJRPE123 00119 EXIT. OJRPE123