79 lines
6.2 KiB
COBOL
79 lines
6.2 KiB
COBOL
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
|