54 lines
4.2 KiB
COBOL
54 lines
4.2 KiB
COBOL
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
|