From 2a54f65e13ffdac7ccbe8ea99bd8eb7cbb392cec Mon Sep 17 00:00:00 2001 From: Manoj Patel Date: Fri, 24 Oct 2025 08:39:19 -0400 Subject: [PATCH] missing copybook for Annual job --- Compile.ps1 | 2 +- CompileOptions.txt | 4 +- Copybook/OJRPE127.cpy | 180 ++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 183 insertions(+), 3 deletions(-) create mode 100644 Copybook/OJRPE127.cpy diff --git a/Compile.ps1 b/Compile.ps1 index 167eb00..5a45611 100644 --- a/Compile.ps1 +++ b/Compile.ps1 @@ -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" diff --git a/CompileOptions.txt b/CompileOptions.txt index 26c3ed6..852a2c3 100644 --- a/CompileOptions.txt +++ b/CompileOptions.txt @@ -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 diff --git a/Copybook/OJRPE127.cpy b/Copybook/OJRPE127.cpy new file mode 100644 index 0000000..da87087 --- /dev/null +++ b/Copybook/OJRPE127.cpy @@ -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