00001 I1000-EDIT-AND-DEFAULT-PARMS. 10/16/03 00002 OJRPE612 00003 MOVE OJR-CURR-RUN-DATE TO L004-DATE. LV003 00004 OJRPE612 00005 PERFORM S004-FROM-DATE THRU S004-EXIT. OJRPE612 00006 OJRPE612 00007 PERFORM I1100-START-DATE THRU I1100-EXIT. OJRPE612 00008 OJRPE612 00009 PERFORM I1200-END-DATE THRU I1200-EXIT. OJRPE612 00010 OJRPE612 00011 IF WRK-PARM-END-DATE < WRK-PARM-START-DATE OJRPE612 00012 MOVE 'PARM-END-DATE LESS THAN PARM-START-DATE' OJRPE612 00013 TO ABEND-MSG OJRPE612 00014 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE612 00015 END-IF. OJRPE612 00016 OJRPE612 00017 I1000-EXIT. EXIT. OJRPE612 00018 SKIP3 OJRPE612 00019 I1100-START-DATE. OJRPE612 00020 OJRPE612 00021 IF OJR-PARM-START-DATE = SPACE OJRPE612 00022 MOVE L004-QTR-START-DATE TO WRK-PARM-START-DATE OJRPE612 00023 ELSE OJRPE612 00024 MOVE OJR-PARM-START-DATE TO L001-CAL-6-DATE-X OJRPE612 00025 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE612 00026 IF L001-VALID-DATE OJRPE612 00027 MOVE L001-FED-8-DATE-9 TO WRK-PARM-START-DATE OJRPE612 00028 ELSE OJRPE612 00029 MOVE 'PARM-START-DATE NOT VALID' OJRPE612 00030 TO ABEND-MSG OJRPE612 00031 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE612 00032 END-IF OJRPE612 00033 END-IF. OJRPE612 00034 OJRPE612 00035 I1100-EXIT. EXIT. OJRPE612 00036 SKIP3 OJRPE612 00037 I1200-END-DATE. OJRPE612 00038 OJRPE612 00039 IF OJR-PARM-END-DATE = SPACE OJRPE612 00040 MOVE L004-QTR-END-DATE TO WRK-PARM-END-DATE OJRPE612 00041 ELSE OJRPE612 00042 MOVE OJR-PARM-END-DATE TO L001-CAL-6-DATE-X OJRPE612 00043 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE612 00044 IF L001-VALID-DATE OJRPE612 00045 MOVE L001-FED-8-DATE-9 TO WRK-PARM-END-DATE OJRPE612 00046 ELSE OJRPE612 00047 MOVE 'PARM-END-DATE NOT VALID' OJRPE612 00048 TO ABEND-MSG OJRPE612 00049 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE612 00050 END-IF OJRPE612 00051 END-IF. OJRPE612 00052 OJRPE612 00053 I1200-EXIT. EXIT. OJRPE612