missing copybook for Annual job
This commit is contained in:
@ -8,7 +8,7 @@ Write-Host 'Getting ENV'
|
||||
|
||||
|
||||
# Compiling and Running
|
||||
& "$env:rcbin\cobrc" "@CompileOptions.txt" "E:\DUTAS\src\Batch\CHGBD100.cob"
|
||||
& "$env:rcbin\cobrc" "@CompileOptions.txt" "E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE127.cob"
|
||||
Write-Host 'Compile CHGBD100'
|
||||
|
||||
& "$env:rcbin\rclrun" "hello"
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
-IgnoreParseError=TRUE
|
||||
-OutputDir=\\does\fileshares\DUTAS\DOESTAX\PROD\BIN\BATCH\LIB
|
||||
-OutputDir=\\does-rainvm-prd\DefaultVolume\DOESTAX\DEVL\BIN\BATCH\LIB
|
||||
-RemoveFileVerifyFailed=FALSE
|
||||
-MaxMem=1000
|
||||
-IncludeSearchPath=\\does\fileshares\DUTAS\DOESTAX\PROD\SRC\CPY\LIB
|
||||
-IncludeSearchPath=\\does-rainvm-prd\DefaultVolume\DOESTAX\DEVL\SRC\CPY\LIB
|
||||
-IncludeExtension=.cpy
|
||||
-StringRuntimeEncoding=037
|
||||
-DefInit=TRUE
|
||||
|
||||
180
Copybook/OJRPE127.cpy
Normal file
180
Copybook/OJRPE127.cpy
Normal file
@ -0,0 +1,180 @@
|
||||
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
|
||||
Reference in New Issue
Block a user