00001 I1000-EDIT-AND-DEFAULT-PARMS. 06/28/18 00002 PERFORM I1110-RESP-OP-ID THRU I1110-EXIT OJRPE127 00003 LV009 00004 IF WRK-EDIT-PASSED-88 OJRPE127 00005 PERFORM I1120-END-YRQ THRU I1120-EXIT OJRPE127 00006 END-IF OJRPE127 00007 OJRPE127 00008 IF WRK-EDIT-PASSED-88 OJRPE127 00009 PERFORM I1130-START-YRQ THRU I1130-EXIT OJRPE127 00010 END-IF OJRPE127 00011 OJRPE127 00012 IF WRK-EDIT-PASSED-88 OJRPE127 00013 COMPUTE WRK-PARM-NUMBER-QTRS OJRPE127 00014 = WRK-PARM-END-ABS-QTR - WRK-PARM-START-ABS-QTR + 1 OJRPE127 00015 END-IF OJRPE127 00016 CL**3 00017 DISPLAY '# QTRS NOT LIABLE THIS RUN ' WRK-PARM-NUMBER-QTRS CL**3 00018 CL**3 00019 IF WRK-EDIT-PASSED-88 OJRPE127 00020 PERFORM I1140-AUTOMATIC-INACT-IND THRU I1140-EXIT OJRPE127 00021 END-IF OJRPE127 00022 OJRPE127 00023 IF WRK-EDIT-PASSED-88 OJRPE127 00024 PERFORM I1150-EMP-CLASS THRU I1150-EXIT OJRPE127 00025 END-IF. OJRPE127 00026 I1000-EXIT. OJRPE127 00027 EXIT. OJRPE127 00028 SKIP3 OJRPE127 00029 OJRPE127 00030 I1110-RESP-OP-ID. OJRPE127 00031 IF OJR-PARM-RESP-OP-ID = SPACES OJRPE127 00032 MOVE 'PARM-RESP-OP-ID MISSING' TO ABEND-MSG OJRPE127 00033 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127 00034 END-IF OJRPE127 00035 OJRPE127 00036 IF WRK-EDIT-PASSED-88 OJRPE127 00037 MOVE OJR-PARM-RESP-OP-ID TO L082-OP-ID OJRPE127 00038 PERFORM S082-LOOKUP-OP-ID THRU S082-EXIT OJRPE127 00039 IF L082-NOT-VALID-OP OR L082-INTERNAL-88 OJRPE127 00040 MOVE 'OJR-PARM-RESP-OP-ID NOT VALID' OJRPE127 00041 TO ABEND-MSG OJRPE127 00042 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127 00043 END-IF OJRPE127 00044 END-IF OJRPE127 00045 OJRPE127 00046 IF WRK-EDIT-PASSED-88 OJRPE127 00047 MOVE OJR-PARM-RESP-OP-ID TO WRK-PARM-RESP-OP-ID OJRPE127 00048 END-IF. OJRPE127 00049 I1110-EXIT. OJRPE127 00050 EXIT. OJRPE127 00051 SKIP3 OJRPE127 00052 I1120-END-YRQ. OJRPE127 00053 IF OJR-PARM-END-YRQ = SPACES OJRPE127 00054 MOVE OJR-LAST-UC30-DEL-MAIL-YRQ TO WRK-PARM-END-YRQ OJRPE127 00055 ELSE OJRPE127 00056 MOVE OJR-PARM-END-YRQ TO L004-QTR-3-X OJRPE127 00057 PERFORM S004-FROM-3 THRU S004-EXIT OJRPE127 00058 IF L004-VALID-QTR OJRPE127 00059 MOVE L004-QTR-5-9 TO WRK-PARM-END-YRQ OJRPE127 00060 ELSE OJRPE127 00061 MOVE 'PARM-END-YRQ NOT VALID' OJRPE127 00062 TO ABEND-MSG OJRPE127 00063 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127 00064 END-IF OJRPE127 00065 END-IF OJRPE127 00066 OJRPE127 00067 OJRPE127 00068 IF WRK-EDIT-PASSED-88 OJRPE127 00069 IF WRK-PARM-END-YRQ > OJR-LAST-UC30-DEL-MAIL-YRQ OJRPE127 00070 MOVE 'PARM-END-YRQ > LAST-UC30-DEL-MAIL-YRQ' OJRPE127 00071 TO ABEND-MSG OJRPE127 00072 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127 00073 END-IF OJRPE127 00074 END-IF OJRPE127 00075 OJRPE127 00076 OJRPE127 00077 IF WRK-EDIT-PASSED-88 OJRPE127 00078 MOVE WRK-PARM-END-YRQ TO L004-QTR-5-9 OJRPE127 00079 OJRPE127 00080 PERFORM S004-FROM-5 THRU S004-EXIT OJRPE127 00081 OJRPE127 00082 MOVE L004-ABS-QTR TO WRK-PARM-END-ABS-QTR OJRPE127 00083 DISPLAY ' WRK END QTR ' WRK-PARM-END-YRQ CL**3 00084 MOVE L004-QTR-END-DATE TO WRK-END-YRQ-DATE CL**7 00085 END-IF. OJRPE127 00086 I1120-EXIT. OJRPE127 00087 EXIT. OJRPE127 00088 SKIP3 OJRPE127 00089 I1130-START-YRQ. OJRPE127 00090 IF OJR-PARM-START-YRQ = SPACES OJRPE127 00091 MOVE WRK-PARM-END-ABS-QTR TO L004-ABS-QTR OJRPE127 00092 SUBTRACT 7 FROM L004-ABS-QTR OJRPE127 00093 PERFORM S004-FROM-ABS THRU S004-EXIT OJRPE127 00094 MOVE L004-QTR-5-9 TO WRK-PARM-START-YRQ OJRPE127 00095 MOVE L004-ABS-QTR TO WRK-PARM-START-ABS-QTR OJRPE127 00096 DISPLAY 'WRK START QTR ' WRK-PARM-START-YRQ CL**3 00097 MOVE L004-QTR-START-DATE TO WRK-START-YRQ-DATE CL**7 00098 ELSE OJRPE127 00099 MOVE OJR-PARM-START-YRQ TO L004-QTR-3-X OJRPE127 00100 PERFORM S004-FROM-3 THRU S004-EXIT OJRPE127 00101 IF L004-VALID-QTR OJRPE127 00102 MOVE L004-QTR-5-9 TO WRK-PARM-START-YRQ OJRPE127 00103 MOVE L004-ABS-QTR TO WRK-PARM-START-ABS-QTR OJRPE127 00104 MOVE L004-QTR-START-DATE TO WRK-START-YRQ-DATE CL**7 00105 ELSE OJRPE127 00106 MOVE 'PARM-START-YRQ NOT VALID' OJRPE127 00107 TO ABEND-MSG OJRPE127 00108 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127 00109 END-IF OJRPE127 00110 END-IF OJRPE127 00111 OJRPE127 00112 IF WRK-EDIT-PASSED-88 OJRPE127 00113 IF WRK-PARM-START-YRQ < OJR-FIRST-PURSUED-RPT-YRQ OJRPE127 00114 MOVE 'PARM-START-YRQ < FIRST-PURSUED-RPT-YRQ' OJRPE127 00115 TO ABEND-MSG OJRPE127 00116 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127 00117 END-IF OJRPE127 00118 END-IF OJRPE127 00119 OJRPE127 00120 IF WRK-EDIT-PASSED-88 OJRPE127 00121 IF WRK-PARM-START-YRQ > WRK-PARM-END-YRQ OJRPE127 00122 MOVE 'PARM-START-YRQ GREATER THAN WRK-PARM-END-YRQ' OJRPE127 00123 TO ABEND-MSG OJRPE127 00124 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127 00125 END-IF OJRPE127 00126 END-IF. OJRPE127 00127 I1130-EXIT. OJRPE127 00128 EXIT. OJRPE127 00129 SKIP3 OJRPE127 00130 I1140-AUTOMATIC-INACT-IND. OJRPE127 00131 IF OJR-PARM-AUTO-INACT-IND = SPACES OR LOW-VALUES OJRPE127 00132 SET WRK-PARM-AUTO-INACT-NO-88 TO TRUE OJRPE127 00133 GO TO I1140-EXIT OJRPE127 00134 END-IF OJRPE127 00135 OJRPE127 00136 MOVE OJR-PARM-AUTO-INACT-IND TO WRK-PARM-AUTO-INACT-IND OJRPE127 00137 OJRPE127 00138 IF WRK-PARM-AUTO-INACT-YES-88 OJRPE127 00139 OR OJRPE127 00140 WRK-PARM-AUTO-INACT-NO-88 OJRPE127 00141 CONTINUE OJRPE127 00142 ELSE OJRPE127 00143 MOVE 'PARM-AUTO-INACT-IND NOT VALID' OJRPE127 00144 TO ABEND-MSG OJRPE127 00145 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127 00146 END-IF OJRPE127 00147 OJRPE127 00148 IF WRK-EDIT-PASSED-88 OJRPE127 00149 IF WRK-PARM-AUTO-INACT-YES-88 OJRPE127 00150 * IF WRK-PARM-NUMBER-QTRS = +12 CL**9 00151 IF WRK-PARM-NUMBER-QTRS = +08 CL**9 00152 CONTINUE OJRPE127 00153 ELSE OJRPE127 00154 * MOVE 'AUTO INACT = YES, BUT #QTRS NOT =12' CL**9 00155 MOVE 'AUTO INACT = YES, BUT #QTRS NOT =08' CL**9 00156 TO ABEND-MSG OJRPE127 00157 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127 00158 END-IF OJRPE127 00159 END-IF OJRPE127 00160 END-IF. OJRPE127 00161 I1140-EXIT. OJRPE127 00162 EXIT. OJRPE127 00163 SKIP3 OJRPE127 00164 OJRPE127 00165 I1150-EMP-CLASS. OJRPE127 00166 IF OJR-PARM-EMP-CLASS = SPACES OJRPE127 00167 SET WRK-PARM-CLASS-ALL-88 TO TRUE OJRPE127 00168 GO TO I1150-EXIT OJRPE127 00169 END-IF OJRPE127 00170 OJRPE127 00171 IF OJR-PARM-EMP-CLASS = 'R' OR 'S' OJRPE127 00172 MOVE OJR-PARM-EMP-CLASS TO WRK-PARM-EMP-CLASS OJRPE127 00173 ELSE OJRPE127 00174 MOVE 'PARM-EMP-CLASS NOT VALID' OJRPE127 00175 TO ABEND-MSG OJRPE127 00176 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127 00177 END-IF. OJRPE127 00178 I1150-EXIT. OJRPE127 00179 EXIT. OJRPE127 00180 EJECT OJRPE127