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