00001 I1000-EDIT-AND-DEFAULT-PARMS. 10/10/03 00002 PERFORM I1100-PRINT-DETAIL-IND THRU I1100-EXIT. OJRPE609 00003 LV003 00004 PERFORM I1200-PERIOD-START-DATE THRU I1200-EXIT. OJRPE609 00005 OJRPE609 00006 PERFORM I1300-PERIOD-END-DATE THRU I1300-EXIT. OJRPE609 00007 OJRPE609 00008 MOVE +0 TO WRK-PARM-FLD-REP-ID-CNT. OJRPE609 00009 PERFORM I1400-FLD-REP-ID THRU I1400-EXIT OJRPE609 00010 VARYING OJR-PARM-FLD-REP-IDX FROM 1 BY 1 OJRPE609 00011 UNTIL OJR-PARM-FLD-REP-IDX > +10. OJRPE609 00012 I1000-EXIT. OJRPE609 00013 EXIT. OJRPE609 00014 SKIP3 OJRPE609 00015 I1100-PRINT-DETAIL-IND. OJRPE609 00016 IF OJR-PARM-PRINT-DETAIL-IND = SPACE OJRPE609 00017 SET WRK-PARM-PRINT-DETAIL-YES TO TRUE OJRPE609 00018 ELSE OJRPE609 00019 IF OJR-PARM-PRINT-DETAIL-IND = 'Y' OR 'N' OJRPE609 00020 MOVE OJR-PARM-PRINT-DETAIL-IND OJRPE609 00021 TO WRK-PARM-PRINT-DETAIL-IND OJRPE609 00022 ELSE OJRPE609 00023 MOVE 'PARM-PRINT-DETAIL-IND NOT VALID' TO ABEND-MSG OJRPE609 00024 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE609 00025 END-IF OJRPE609 00026 END-IF. OJRPE609 00027 I1100-EXIT. OJRPE609 00028 EXIT. OJRPE609 00029 SKIP3 OJRPE609 00030 I1200-PERIOD-START-DATE. OJRPE609 00031 IF OJR-PARM-PERIOD-START-DATE = SPACES OJRPE609 00032 IF OJR-PERIOD-START-DATE = +0 OJRPE609 00033 MOVE 'PARM-PERIOD-START-DATE MISSING' OJRPE609 00034 TO ABEND-MSG OJRPE609 00035 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE609 00036 ELSE OJRPE609 00037 MOVE OJR-PERIOD-START-DATE OJRPE609 00038 TO WRK-PARM-PERIOD-START-DATE OJRPE609 00039 END-IF OJRPE609 00040 ELSE OJRPE609 00041 MOVE OJR-PARM-PERIOD-START-DATE OJRPE609 00042 TO L001-CAL-6-DATE-X OJRPE609 00043 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE609 00044 IF L001-VALID-DATE OJRPE609 00045 MOVE L001-FED-8-DATE-9 OJRPE609 00046 TO WRK-PARM-PERIOD-START-DATE OJRPE609 00047 ELSE OJRPE609 00048 MOVE 'PARM-PERIOD-START-DATE NOT VALID' OJRPE609 00049 TO ABEND-MSG OJRPE609 00050 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE609 00051 END-IF OJRPE609 00052 END-IF. OJRPE609 00053 I1200-EXIT. OJRPE609 00054 EXIT. OJRPE609 00055 SKIP3 OJRPE609 00056 I1300-PERIOD-END-DATE. OJRPE609 00057 IF OJR-PARM-PERIOD-END-DATE = SPACES OJRPE609 00058 IF OJR-PERIOD-END-DATE = +0 OJRPE609 00059 MOVE 'PARM-PERIOD-END-DATE MISSING' OJRPE609 00060 TO ABEND-MSG OJRPE609 00061 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE609 00062 ELSE OJRPE609 00063 MOVE OJR-PERIOD-END-DATE OJRPE609 00064 TO WRK-PARM-PERIOD-END-DATE OJRPE609 00065 END-IF OJRPE609 00066 ELSE OJRPE609 00067 MOVE OJR-PARM-PERIOD-END-DATE OJRPE609 00068 TO L001-CAL-6-DATE-X OJRPE609 00069 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE609 00070 *& OJRPE609 00071 DISPLAY 'BE609 RESULT ' L001-DAY-OF-WEEK OJRPE609 00072 *& OJRPE609 00073 IF L001-VALID-DATE OJRPE609 00074 MOVE L001-FED-8-DATE-9 OJRPE609 00075 TO WRK-PARM-PERIOD-END-DATE OJRPE609 00076 ELSE OJRPE609 00077 MOVE 'PARM-PERIOD-END-DATE NOT VALID' OJRPE609 00078 TO ABEND-MSG OJRPE609 00079 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE609 00080 END-IF OJRPE609 00081 END-IF. OJRPE609 00082 OJRPE609 00083 IF WRK-PARM-PERIOD-END-DATE OJRPE609 00084 < WRK-PARM-PERIOD-START-DATE OJRPE609 00085 MOVE OJRPE609 00086 'PARM-PERIOD-END-DATE LESS THAN PARM-PERIOD-START-DATE' OJRPE609 00087 TO ABEND-MSG OJRPE609 00088 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE609 00089 END-IF. OJRPE609 00090 I1300-EXIT. OJRPE609 00091 EXIT. OJRPE609 00092 SKIP3 OJRPE609 00093 I1400-FLD-REP-ID. OJRPE609 00094 IF OJR-PARM-FLD-REP-ID (OJR-PARM-FLD-REP-IDX) = SPACES OJRPE609 00095 GO TO I1400-EXIT. OJRPE609 00096 OJRPE609 00097 ADD +1 TO WRK-PARM-FLD-REP-ID-CNT. OJRPE609 00098 MOVE OJR-PARM-FLD-REP-ID (OJR-PARM-FLD-REP-IDX) OJRPE609 00099 TO WRK-PARM-FLD-REP-ID (WRK-PARM-FLD-REP-ID-CNT). OJRPE609 00100 I1400-EXIT. OJRPE609 00101 EXIT. OJRPE609