00001 ************************************************************** 08/02/02 00002 * THIS PARAGRAPH CONTROLS THE EDITING OF THE PARMS FOR THE 306 OJRPE306 00003 ************************************************************** LV001 00004 OJRPE306 00005 I1000-EDIT-AND-DEFAULT-PARMS. OJRPE306 00006 OJRPE306 00007 PERFORM I1100-PERIOD-START-DATE THRU I1100-EXIT OJRPE306 00008 OJRPE306 00009 IF WRK-EDIT-PASSED-88 OJRPE306 00010 PERFORM I1200-PERIOD-END-DATE THRU I1200-EXIT OJRPE306 00011 END-IF. OJRPE306 00012 OJRPE306 00013 I1000-EXIT. OJRPE306 00014 EXIT. OJRPE306 00015 EJECT OJRPE306 00016 ************************************************************** OJRPE306 00017 * THIS PARAGRAPH EDITS THE PERIOD START DATE. OJRPE306 00018 ************************************************************** OJRPE306 00019 OJRPE306 00020 I1100-PERIOD-START-DATE. OJRPE306 00021 OJRPE306 00022 IF OJR-PARM-PERIOD-START-DATE = SPACES OJRPE306 00023 IF OJR-PERIOD-START-DATE > +0 OJRPE306 00024 MOVE OJR-PERIOD-START-DATE OJRPE306 00025 TO WRK-PARM-PERIOD-START-DATE OJRPE306 00026 ELSE OJRPE306 00027 MOVE 'PERIOD-START-DATE MISSING' OJRPE306 00028 TO ABEND-MSG OJRPE306 00029 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE306 00030 END-IF OJRPE306 00031 ELSE OJRPE306 00032 MOVE OJR-PARM-PERIOD-START-DATE TO L001-CAL-6-DATE-X OJRPE306 00033 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE306 00034 IF L001-VALID-DATE OJRPE306 00035 MOVE L001-FED-8-DATE-9 TO WRK-PARM-PERIOD-START-DATE OJRPE306 00036 ELSE OJRPE306 00037 MOVE 'PERIOD-START-DATE NOT VALID' OJRPE306 00038 TO ABEND-MSG OJRPE306 00039 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE306 00040 END-IF OJRPE306 00041 END-IF. OJRPE306 00042 I1100-EXIT. OJRPE306 00043 EXIT. OJRPE306 00044 EJECT OJRPE306 00045 ************************************************************** OJRPE306 00046 * THIS PARAGRAPH EDITS THE PERIOD END DATE. OJRPE306 00047 ************************************************************** OJRPE306 00048 OJRPE306 00049 I1200-PERIOD-END-DATE. OJRPE306 00050 OJRPE306 00051 IF OJR-PARM-PERIOD-END-DATE = SPACES OJRPE306 00052 IF OJR-PERIOD-END-DATE > +0 OJRPE306 00053 MOVE OJR-PERIOD-END-DATE OJRPE306 00054 TO WRK-PARM-PERIOD-END-DATE OJRPE306 00055 ELSE OJRPE306 00056 MOVE 'PERIOD-END-DATE MISSING' OJRPE306 00057 TO ABEND-MSG OJRPE306 00058 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE306 00059 END-IF OJRPE306 00060 ELSE OJRPE306 00061 MOVE OJR-PARM-PERIOD-END-DATE TO L001-CAL-6-DATE-X OJRPE306 00062 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE306 00063 IF L001-VALID-DATE OJRPE306 00064 MOVE L001-FED-8-DATE-9 TO WRK-PARM-PERIOD-END-DATE OJRPE306 00065 ELSE OJRPE306 00066 MOVE 'PERIOD-END-DATE NOT VALID' OJRPE306 00067 TO ABEND-MSG OJRPE306 00068 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE306 00069 END-IF OJRPE306 00070 END-IF OJRPE306 00071 OJRPE306 00072 IF WRK-PARM-PERIOD-START-DATE > WRK-PARM-PERIOD-END-DATE OJRPE306 00073 MOVE 'PERIOD START DATE IS GREATER THAN PERIOD END DATE' OJRPE306 00074 TO ABEND-MSG OJRPE306 00075 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE306 00076 END-IF. OJRPE306 00077 I1200-EXIT. OJRPE306 00078 EXIT. OJRPE306