missing copybook for Annual job
This commit is contained in:
@ -8,7 +8,7 @@ Write-Host 'Getting ENV'
|
|||||||
|
|
||||||
|
|
||||||
# Compiling and Running
|
# 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'
|
Write-Host 'Compile CHGBD100'
|
||||||
|
|
||||||
& "$env:rcbin\rclrun" "hello"
|
& "$env:rcbin\rclrun" "hello"
|
||||||
|
|||||||
@ -1,8 +1,8 @@
|
|||||||
-IgnoreParseError=TRUE
|
-IgnoreParseError=TRUE
|
||||||
-OutputDir=\\does\fileshares\DUTAS\DOESTAX\PROD\BIN\BATCH\LIB
|
-OutputDir=\\does-rainvm-prd\DefaultVolume\DOESTAX\DEVL\BIN\BATCH\LIB
|
||||||
-RemoveFileVerifyFailed=FALSE
|
-RemoveFileVerifyFailed=FALSE
|
||||||
-MaxMem=1000
|
-MaxMem=1000
|
||||||
-IncludeSearchPath=\\does\fileshares\DUTAS\DOESTAX\PROD\SRC\CPY\LIB
|
-IncludeSearchPath=\\does-rainvm-prd\DefaultVolume\DOESTAX\DEVL\SRC\CPY\LIB
|
||||||
-IncludeExtension=.cpy
|
-IncludeExtension=.cpy
|
||||||
-StringRuntimeEncoding=037
|
-StringRuntimeEncoding=037
|
||||||
-DefInit=TRUE
|
-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