diff --git a/Batch/DESBD310.cob b/Batch/DESBD310.cob index 6a15361..69cfdc9 100644 --- a/Batch/DESBD310.cob +++ b/Batch/DESBD310.cob @@ -35,6 +35,10 @@ 00035 * 02/23/2009 MODIFIED SELECTION TO INCLUDE DC GOV WAGES DESBD310 00036 * REFERENCE: PROGRAMMER: GD DESBD310 00037 * DESBD310 +00034 * DESBD310 +00035 * 10/04/2025 MODIFIED SELECTION TO use 18 byte wwgh DESBD310 +00036 * copybook : PROGRAMMER: zl1 DESBD310 +00037 * DESBD310 00038 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD310 00039 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD310 00040 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DESBD310 diff --git a/Batch/DESBD470.cob b/Batch/DESBD470.cob new file mode 100644 index 0000000..baf095d --- /dev/null +++ b/Batch/DESBD470.cob @@ -0,0 +1,519 @@ +00001 IDENTIFICATION DIVISION. 01/24/24 +00002 PROGRAM-ID. DESBD470. DESBD470 +00003 AUTHOR. NGC. LV131 +00004 DATE-WRITTEN. DECEMBER 2012. CL113 +00005 DATE-COMPILED. DESBD470 +00006 SKIP3 DESBD470 +00007 ***** DESBD470 +00008 * DESBD470 +00009 * ZUNCTION: DELETE WAGES TO WGH FILE FOR TESTING. CL129 +00010 * FOR TAX WAGES SINCE UIBS 01/21/24 ZL1 CL117 +00011 * DESBD470 +00012 * DESBD470 +00013 * MODIFICATION LOG: DESBD470 +00014 * DESBD470 +00015 * 12/06/2012 INITIAL DEVELOPMENT. CL113 +00016 * WORK ORDER: PROGRAMMER: GD DESBD470 +00017 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD470 +00018 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD470 +00019 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DESBD470 +00020 * DESBD470 +00021 * DESBD470 +00022 * DESCRIPTION: DESBD470 +00023 * DESBD470 +00024 * CL*89 +00025 * CL*89 +00026 * CL*89 +00027 * CL*89 +00028 * DESBD470 +00029 * CL*89 +00030 * CL*89 +00031 * CL*89 +00032 * CL*89 +00033 * DESBD470 +00034 * GENERAL SPECIFICATIONS: DESBD470 +00035 * DESBD470 +00036 * ALL COMMANDS ARE VALID. DESBD470 +00037 * DESBD470 +00038 * IF AN INVALID COMMAND IS REQUESTED, THEN ABEND THE DESBD470 +00039 * MODULE. DESBD470 +00040 * DESBD470 +00041 * IF A FILE-STATUS OF OTHER THAN '00', '10', OR '23' IS DESBD470 +00042 * ENCOUNTERED, THEN ABEND PROCESSING (TOLERATE A DESBD470 +00043 * FILE-STATUS OF '97' FROM AN OPEN COMMAND). DESBD470 +00044 * DESBD470 +00045 * DESBD470 +00046 * DESBD470 +00047 * COMMAND SPECIFIC SPECIFICATIONS: DESBD470 +00048 * DESBD470 +00049 * OPEN-READ DESBD470 +00050 * OPEN INPUT. DESBD470 +00051 * DESBD470 +00052 * OPEN-UPDATE DESBD470 +00053 * OPEN I-O. DESBD470 +00054 * DESBD470 +00055 * CLOSE DESBD470 +00056 * DESBD470 +00057 * READ DESBD470 +00058 * DESBD470 +00059 * START BROWSE DESBD470 +00060 * IF THE START-BROWSE IS SUCCESSFUL, THEN PERFORM THE DESBD470 +00061 * READ-NEXT LOGIC. A SUCCESSFUL START-BROWSE RETURNS DESBD470 +00062 * A RECORD. DESBD470 +00063 * DESBD470 +00064 * READ NEXT DESBD470 +00065 * DESBD470 +00066 * WRITE DESBD470 +00067 * DESBD470 +00068 * REWRITE DESBD470 +00069 * DESBD470 +00070 * DELETE DESBD470 +00071 * DESBD470 +00072 * DESBD470 +00073 ***** DESBD470 +00074 CL114 +00075 ENVIRONMENT DIVISION. CL114 +00076 CL114 +00077 INPUT-OUTPUT SECTION. CL114 +00078 DESBD470 +00079 FILE-CONTROL. CL114 +00080 SELECT WAGE-TRANS-FILE ASSIGN TO DTSFWTRN CL114 +00081 FILE STATUS IS WAGE-TRANS-STATUS. CL114 +00082 CL114 +00083 * SELECT TAXWGH-FILE ASSIGN TO DTSXWGH CL129 +00084 * FILE STATUS IS DOWNLOAD-STATUS. CL129 +00085 DESBD470 +00086 DATA DIVISION. DESBD470 +00087 CL114 +00088 FILE SECTION. CL114 +00089 CL114 +00090 FD WAGE-TRANS-FILE CL114 +00091 RECORDING MODE IS F CL114 +00092 BLOCK CONTAINS 0 RECORDS. CL114 +00093 CL114 +00094 01 WAGE-TRANS-REC PIC X(80). CL131 +00095 CL114 +00096 *FD TAXWGH-FILE CL129 +00097 * RECORDING MODE IS F CL129 +00098 * BLOCK CONTAINS 0 RECORDS. CL129 +00099 CL117 +00100 *01 TAXWGH-REC PIC X(18). CL129 +00101 DESBD470 +00102 WORKING-STORAGE SECTION. DESBD470 +001025 77 PAN-VALET PICTURE X(24) VALUE '131DESBD470 01/24/24'. DESBD470 +00103 SKIP3 DESBD470 +00104 01 WRK-AREA. DESBD470 +00105 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +480. CL114 +00106 DESBD470 +00107 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBU480'. CL114 +00108 DESBD470 +00109 05 W-CURR-EMP-NO PIC S9(06) COMP-3 VALUE +0. DESBD470 +00110 05 W-CURR-YRQ PIC S9(05) COMP-3 CL*62 +00111 VALUE +20121. CL*62 +00112 05 W-CURR-BATCH PIC S9(05) COMP-3 VALUE +0. CL*53 +00113 05 W-CURR-ITEM PIC S9(03) COMP-3 VALUE +0. CL*81 +00114 05 W-MQTR-TOT-WAGE PIC S9(11)V99 COMP-3 CL*58 +00115 VALUE +0. CL*58 +00116 05 W-WTC-BATCH-NO PIC S9(05) COMP-3 CL*90 +00117 VALUE +90001. CL*95 +00118 05 W-WTC-ITEM-NO PIC S9(03) COMP-3 CL*90 +00119 VALUE +003. CL*98 +00120 05 W-WTC-SEQ-NO PIC S9(03) COMP-3 CL*92 +00121 VALUE +001. CL*92 +00122 05 W-MAX-BATCH PIC S9(05) COMP-3 VALUE +0. CL*52 +00123 05 W-MIN-BATCH PIC S9(05) COMP-3 CL*52 +00124 VALUE +99999. CL*52 +00125 05 WRK-W2-CNT PIC S9(07) COMP-3 VALUE +0. DESBD470 +00126 05 WRK-W4-CNT PIC S9(07) COMP-3 VALUE +0. DESBD470 +00127 05 WRK-WWGH-CNT PIC S9(07) COMP-3 VALUE +0. DESBD470 +00128 05 WRK-DELETE-CNT PIC S9(07) COMP-3 VALUE +0. DESBD470 +00129 05 W-BYPASSED-CNT PIC S9(07) COMP-3 VALUE +0. DESBD470 +00130 05 W-BACKLOG PIC S9(07) COMP-3 VALUE +0. CL**9 +00131 05 AMT-DISP1 PIC ----------9.99. CL*60 +00132 05 AMT-DISP2 PIC ----------9.99. CL*60 +00133 05 AMT-DISP3 PIC ----------9.99. CL*60 +00134 05 AMT-DISP4 PIC ----------9.99. CL*57 +00135 DESBD470 +00136 05 WRK-NET-WAGE PIC S9(11)V99 COMP-3 DESBD470 +00137 VALUE +0. DESBD470 +00138 05 W-WGH-WAGE PIC S9(11)V99 COMP-3 CL*70 +00139 VALUE +0. CL*70 +00140 05 W-WORKER-CNT PIC S9(07) COMP-3 VALUE +0. CL*63 +00141 05 W-DIFFERENCE PIC S9(11)V99 COMP-3 CL*63 +00142 VALUE +0. CL*63 +00143 DESBD470 +00144 05 W2-REC-READ PIC 9(9) VALUE 0. CL124 +00145 05 W4-REC-READ PIC 9(9) VALUE 0. CL124 +00146 05 W4-REC-FOUND PIC 9(9) VALUE 0. CL124 +00147 05 W4-REC-ADDED PIC 9(9) VALUE 0. CL124 +00148 05 W2-REC-DELETED PIC 9(9) VALUE 0. CL124 +00149 05 W2-REC-FOUND PIC 9(9) VALUE 0. CL124 +00150 CL123 +00151 05 W-RESP-OPID PIC X(08). CL*78 +00152 05 WRK-ERROR-IND PIC X(01). DESBD470 +00153 88 WRK-ERROR-YES-88 VALUE 'Y'. DESBD470 +00154 88 WRK-ERROR-NO-88 VALUE 'N'. DESBD470 +00155 DESBD470 +00156 05 W-EMP-EXISTS-IND PIC X(01). CL*67 +00157 88 W-EMP-EXISTS-YES-88 VALUE 'Y'. CL*67 +00158 88 W-EMP-EXISTS-NO-88 VALUE 'N'. CL*67 +00159 05 W-DELINQUENT-IND PIC X(01). CL*67 +00160 88 W-DELINQUENT-YES-88 VALUE 'Y'. CL*67 +00161 88 W-DELINQUENT-NO-88 VALUE 'N'. CL*67 +00162 05 WAGE-TRANS-STATUS PIC X(02). DESBD470 +00163 88 WAGE-TRANS-FILE-OK-88 VALUE '00'. DESBD470 +00164 88 WAGE-TRANS-FILE-NO-REC-88 VALUE '10' '23'. DESBD470 +00165 88 WAGE-TRANS-FILE-VERIFY-88 VALUE '97'. DESBD470 +00166 DESBD470 +00167 05 DOWNLOAD-STATUS PIC X(02). DESBD470 +00168 88 DOWNLOAD-FILE-OK-88 VALUE '00'. DESBD470 +00169 DESBD470 +00170 05 WRK-YRQ PIC 9(05). DESBD470 +00171 05 FILLER REDEFINES WRK-YRQ. DESBD470 +00172 10 WRK-YRQ-YEAR PIC 9(04). DESBD470 +00173 10 WRK-YRQ-QTR PIC 9(01). DESBD470 +00174 DESBD470 +00175 05 WRK-YRQ-X. DESBD470 +00176 10 WRK-YRQ-YEAR-X PIC 9(04). DESBD470 +00177 10 FILLER PIC X(01) VALUE '/'. DESBD470 +00178 10 WRK-YRQ-QTR-X PIC 9(01). DESBD470 +00179 DESBD470 +00180 01 L004-COMM-AREA. CL*35 +00181 ++INCLUDE DTSIL004 CL*35 +00182 CL*35 +00183 01 L424-LINK-AREA. CL100 +00184 ++INCLUDE DTSIL424 CL100 +00185 CL100 +00186 01 L516-LINK-AREA. CL*48 +00187 ++INCLUDE DTSIL516 CL*48 +00188 CL*48 +00189 01 L910-LINK-AREA. CL*47 +00190 ++INCLUDE DTSIL910 CL*47 +00191 CL*47 +00192 01 X147-REC. CL129 +00193 ++INCLUDE DTSIX147 CL129 +00194 CL129 +00195 01 MSKL-REC. CL*47 +00196 ++INCLUDE DTSIMSKL CL*47 +00197 CL*47 +00198 01 MPRF-REC. CL*47 +00199 ++INCLUDE DTSIMPRF CL*47 +00200 CL*47 +00201 01 MQTR-REC. CL*47 +00202 ++INCLUDE DTSIMQTR CL*47 +00203 CL*47 +00204 01 L931-LINK-AREA. CL*50 +00205 ++INCLUDE DTSIL931 CL*50 +00206 CL*50 +00207 01 FSKL-REC. CL*50 +00208 ++INCLUDE DTSIFSKL CL*50 +00209 CL*50 +00210 01 L981-LINK-AREA. CL*69 +00211 ++INCLUDE DTSIL981 CL*69 +00212 CL*69 +00213 01 WWGH-REC. CL*69 +00214 ++INCLUDE DTSIWWGH CL*69 +00215 CL*69 +00216 01 L983-LINK-AREA. DESBD470 +00217 ++INCLUDE DTSIL983 DESBD470 +00218 DESBD470 +00219 01 WSKL-REC. DESBD470 +00220 ++INCLUDE DTSIWSKL DESBD470 +00221 DESBD470 +00222 01 W001-REC. DESBD470 +00223 ++INCLUDE DTSIW001 DESBD470 +00224 DESBD470 +00225 01 L982-LINK-AREA. DESBD470 +00226 ++INCLUDE DTSIL982 DESBD470 +00227 DESBD470 +00228 01 WNAM-REC. DESBD470 +00229 ++INCLUDE DTSIWNAM DESBD470 +00230 CL114 +00231 01 WAGE-TRANS-AREA. CL131 +00232 05 ESP-TRANSACTION-AREA PIC X(80). CL131 +00233 ++INCLUDE EWGTRNW2 CL131 +00234 CL114 +00235 PROCEDURE DIVISION. DESBD470 +00236 DESBD470 +00237 PERFORM I0000-INIT THRU I0000-EXIT. CL*96 +00238 IF WRK-ERROR-NO-88 DESBD470 +00239 PERFORM P0000-PROCESS THRU P0000-EXIT CL114 +00240 PERFORM T0000-TERM THRU T0000-EXIT DESBD470 +00241 END-IF. DESBD470 +00242 DESBD470 +00243 GOBACK. DESBD470 +00244 EJECT DESBD470 +00245 I0000-INIT. DESBD470 +00246 SET WRK-ERROR-NO-88 TO TRUE. DESBD470 +00247 DESBD470 +00248 OPEN INPUT WAGE-TRANS-FILE. CL115 +00249 IF WAGE-TRANS-FILE-OK-88 CL114 +00250 OR WAGE-TRANS-FILE-VERIFY-88 CL114 +00251 NEXT SENTENCE CL114 +00252 ELSE CL114 +00253 PERFORM S999-ABEND THRU S999-EXIT CL114 +00254 END-IF. CL114 +00255 CL114 +00256 CL117 +00257 * OPEN OUTPUT TAXWGH-FILE. CL129 +00258 * IF WAGE-TRANS-FILE-OK-88 CL129 +00259 * OR WAGE-TRANS-FILE-VERIFY-88 CL129 +00260 * NEXT SENTENCE CL129 +00261 * ELSE CL129 +00262 * PERFORM S999-ABEND THRU S999-EXIT CL129 +00263 * END-IF. CL129 +00264 CL117 +00265 PERFORM S981A-OPEN-UPDATE THRU S981A-EXIT. CL*89 +00266 PERFORM S983-OPEN-UPDATE THRU S983-EXIT. CL*89 +00267 PERFORM S931-OPEN-READ THRU S931-EXIT. CL102 +00268 CL*35 +00269 I0000-EXIT. DESBD470 +00270 EXIT. DESBD470 +00271 CL*35 +00272 P0000-PROCESS. CL114 +00273 READ WAGE-TRANS-FILE INTO ESP-TRANSACTION-AREA CL131 +00274 CL114 +00275 PERFORM UNTIL WAGE-TRANS-FILE-NO-REC-88 CL114 +00276 PERFORM P2000-WGH THRU P2000-EXIT CL115 +00277 READ WAGE-TRANS-FILE INTO ESP-TRANSACTION-AREA CL131 +00278 CL114 +00279 END-PERFORM. CL114 +00280 CL114 +00281 P0000-EXIT. CL114 +00282 EXIT. CL114 +00283 CL114 +00284 CL*60 +00285 P2000-WGH. CL*92 +00286 IF W2-TRAN-ID = 'W2' CL131 +00287 ADD 1 TO W2-REC-READ CL131 +00288 ELSE CL131 +00289 DISPLAY 'RECORD NOT W2 ' W2-TRAN-ID CL131 +00290 GO TO P2000-EXIT. CL131 +00291 CL123 +00292 MOVE LOW-VALUE TO WWGH-REC. CL*73 +00293 MOVE W2-ACCOUNT-NUMBER TO WWGH-EMP-NO. CL131 +00294 MOVE W2-QTR TO WWGH-YRQ CL131 +00295 MOVE W2-SSN TO WWGH-SSN. CL131 +00296 * MOVE X147-EARNINGS TO WWGH-EARNINGS. CL130 +00297 PERFORM S981C-READ THRU S981C-EXIT. CL117 +00298 IF L981-OK-88 CL117 +00299 DISPLAY 'WGH REC FOUND ' WWGH-EMP-NO ' ' WWGH-YRQ CL129 +00300 ' ' WWGH-SSN ' ' WWGH-EARNINGS CL129 +00301 ELSE CL117 +00302 DISPLAY 'WGH REC NOT FOUND ' W2-ACCOUNT-NUMBER CL131 +00303 ' ' W2-SSN ' ' W2-QTR CL131 +00304 GO TO P2000-EXIT. CL129 +00305 CL117 +00306 ADD 1 TO W2-REC-FOUND CL123 +00307 PERFORM S981E-DELETE THRU S981E-EXIT CL117 +00308 IF NOT L981-OK-88 CL117 +00309 DISPLAY 'DELET FAILED ' W2-ACCOUNT-NUMBER CL131 +00310 ' ' W2-SSN ' ' W2-QTR CL131 +00311 ELSE CL121 +00312 ADD 1 TO W2-REC-DELETED CL123 +00313 DISPLAY 'WAGES DELETED' WWGH-EMP-NO ' ' WWGH-YRQ CL129 +00314 ' ' WWGH-SSN. CL129 +00315 GO TO P2000-EXIT. CL117 +00316 CL117 +00317 P2000-CONTINUE. CL117 +00318 * IF W4-TRAN-ID = 'W2' CL129 +00319 * GO TO P2000-EXIT. CL129 +00320 CL127 +00321 * MOVE LOW-VALUE TO WWGH-REC. CL129 +00322 * MOVE W4-ACCOUNT TO WWGH-EMP-NO. CL129 +00323 * MOVE W4-QUARTER TO WWGH-YRQ CL129 +00324 * MOVE W4-SSN TO WWGH-SSN. CL129 +00325 * MOVE W4-QUARTER-EARNINGS TO WWGH-EARNINGS. CL129 +00326 CL117 +00327 * WRITE TAXWGH-REC FROM WWGH-REC. CL129 +00328 * ADD 1 TO W4-REC-ADDED. CL129 +00329 * PERFORM S981B-WRITE THRU S981B-EXIT. CL128 +00330 * IF NOT L981-OK-88 CL128 +00331 * DISPLAY 'WRITE FAILED ' W4-ACCOUNT ' ' W4-QUARTER CL128 +00332 * ' ' W4-SSN. CL128 +00333 CL*73 +00334 P2000-EXIT. CL*92 +00335 EXIT. CL*73 +00336 CL*69 +00337 T0000-TERM. DESBD470 +00338 PERFORM S981D-CLOSE THRU S981D-EXIT. CL*73 +00339 PERFORM S983-CLOSE THRU S983-EXIT. CL*69 +00340 PERFORM S931-CLOSE THRU S931-EXIT. CL102 +00341 DESBD470 +00342 * CLOSE WAGE-TRANS-FILE TAXWGH-FILE. CL130 +00343 CLOSE WAGE-TRANS-FILE. CL130 +00344 DESBD470 +00345 DISPLAY '******************************************' DESBD470 +00346 DISPLAY '** DTSBZ479 TERMINATION STATISTICS **'. CL*91 +00347 CL123 +00348 DISPLAY 'TOTAL W4 TRANS REC READ = ' W4-REC-READ. CL123 +00349 DISPLAY 'TOTAL W4 TRANS REC FOUND = ' W4-REC-FOUND. CL123 +00350 DISPLAY 'TOTAL W4 TRANS REC ADDED = ' W4-REC-ADDED. CL123 +00351 DISPLAY 'TOTAL W2 TRANS REC READ = ' W2-REC-READ. CL123 +00352 DISPLAY 'TOTAL W2 TRANS REC FOUND = ' W2-REC-FOUND. CL123 +00353 DISPLAY 'TOTAL W2 TRANS REC DELETED = ' W2-REC-DELETED. CL125 +00354 DISPLAY ' '. CL123 +00355 T0000-EXIT. DESBD470 +00356 EXIT. DESBD470 +00357 DESBD470 +00358 S004-EDIT-QTR. CL*35 +00359 CALL 'DTSBU004' USING L004-COMM-AREA. CL*35 +00360 CL*35 +00361 S004-EXIT. CL*35 +00362 EXIT. CL*35 +00363 CL*35 +00364 S516-LIABILITY-INFO. CL*48 +00365 CALL 'DTSBU516' USING L516-LINK-AREA CL*48 +00366 MPRF-REC. CL*48 +00367 S516-EXIT. CL*48 +00368 EXIT. CL*48 +00369 CL*48 +00370 S910-OPEN-READ. CL*47 +00371 SET L910-OPEN-READ-88 TO TRUE. CL*47 +00372 GO TO S910-MSTR-IO. CL*47 +00373 CL*47 +00374 S910-READ. CL*47 +00375 SET L910-READ-88 TO TRUE. CL*47 +00376 GO TO S910-MSTR-IO. CL*47 +00377 CL*47 +00378 S910-START-BROWSE. CL*47 +00379 SET L910-START-BROWSE-88 TO TRUE. CL*49 +00380 GO TO S910-MSTR-IO. CL*47 +00381 CL*47 +00382 S910-READ-NEXT. CL*47 +00383 SET L910-READ-NEXT-88 TO TRUE. CL*47 +00384 GO TO S910-MSTR-IO. CL*47 +00385 CL*47 +00386 S910-CLOSE. CL*47 +00387 SET L910-CLOSE-88 TO TRUE. CL*47 +00388 GO TO S910-MSTR-IO. CL*47 +00389 CL*47 +00390 S910-MSTR-IO. CL*47 +00391 CALL 'DTSBU910' USING L910-LINK-AREA CL*47 +00392 MSKL-REC. CL*47 +00393 S910-EXIT. CL*47 +00394 EXIT. CL*47 +00395 CL*47 +00396 S931-OPEN-READ. CL*50 +00397 SET L931-OPEN-READ-88 TO TRUE. CL*50 +00398 GO TO S931-REF-IO. CL*50 +00399 CL*50 +00400 S931-CLOSE. CL*50 +00401 SET L931-CLOSE-88 TO TRUE. CL*50 +00402 GO TO S931-REF-IO. CL*50 +00403 CL*50 +00404 S931-REF-IO. CL*50 +00405 CALL 'DTSBU931' USING L931-LINK-AREA CL*50 +00406 FSKL-REC. CL*50 +00407 S931-EXIT. CL*50 +00408 EXIT. CL*50 +00409 CL*50 +00410 S981A-OPEN-UPDATE. CL*89 +00411 SET L981-OPEN-UPDATE-88 TO TRUE. CL*89 +00412 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. CL*69 +00413 CL*69 +00414 S981A-EXIT. CL*69 +00415 EXIT. CL*69 +00416 CL*69 +00417 S981B-WRITE. CL*91 +00418 SET L981-WRITE-88 TO TRUE. CL*91 +00419 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. CL*69 +00420 CL*69 +00421 S981B-EXIT. CL*69 +00422 EXIT. CL*69 +00423 S981C-READ. CL117 +00424 SET L981-READ-88 TO TRUE. CL117 +00425 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. CL117 +00426 CL117 +00427 S981C-EXIT. CL117 +00428 EXIT. CL117 +00429 S981E-DELETE. CL118 +00430 SET L981-DELETE-88 TO TRUE. CL117 +00431 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. CL117 +00432 CL117 +00433 S981E-EXIT. CL117 +00434 EXIT. CL117 +00435 CL*69 +00436 S981D-CLOSE. CL*69 +00437 SET L981-CLOSE-88 TO TRUE. CL*69 +00438 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. CL*69 +00439 CL*69 +00440 S981D-EXIT. CL*69 +00441 EXIT. CL*69 +00442 CL*69 +00443 S981Z-WWGH-IO. CL*69 +00444 CALL 'DTSBU981' USING L981-LINK-AREA CL*69 +00445 WWGH-REC. CL*69 +00446 S981Z-EXIT. CL*69 +00447 EXIT. CL*69 +00448 CL*69 +00449 S983-OPEN-UPDATE. DESBD470 +00450 SET L983-OPEN-UPDATE-88 TO TRUE. DESBD470 +00451 GO TO S983-WAGE-I. DESBD470 +00452 DESBD470 +00453 S983-WRITE. CL*90 +00454 SET L983-WRITE-88 TO TRUE. CL*90 +00455 GO TO S983-WAGE-I. DESBD470 +00456 DESBD470 +00457 S983-DELETE. DESBD470 +00458 SET L983-DELETE-88 TO TRUE. DESBD470 +00459 GO TO S983-WAGE-I. DESBD470 +00460 DESBD470 +00461 S983-CLOSE. DESBD470 +00462 SET L983-CLOSE-88 TO TRUE. DESBD470 +00463 GO TO S983-WAGE-I. DESBD470 +00464 DESBD470 +00465 S983-WAGE-I. DESBD470 +00466 CALL 'DTSBU983' USING L983-LINK-AREA DESBD470 +00467 WSKL-REC. DESBD470 +00468 S983-EXIT. DESBD470 +00469 EXIT. DESBD470 +00470 DESBD470 +00471 S982A-START-BROWSE. DESBD470 +00472 SET L982-START-BROWSE-88 TO TRUE. DESBD470 +00473 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DESBD470 +00474 DESBD470 +00475 S982A-EXIT. DESBD470 +00476 EXIT. DESBD470 +00477 DESBD470 +00478 S982B-READ-NEXT. DESBD470 +00479 SET L982-READ-NEXT-88 TO TRUE. DESBD470 +00480 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DESBD470 +00481 DESBD470 +00482 S982B-EXIT. DESBD470 +00483 EXIT. DESBD470 +00484 DESBD470 +00485 S982C-OPEN-READ. DESBD470 +00486 SET L982-OPEN-READ-88 TO TRUE. DESBD470 +00487 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DESBD470 +00488 DESBD470 +00489 S982C-EXIT. DESBD470 +00490 EXIT. DESBD470 +00491 DESBD470 +00492 S982D-CLOSE. DESBD470 +00493 SET L982-CLOSE-88 TO TRUE. DESBD470 +00494 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DESBD470 +00495 DESBD470 +00496 S982D-EXIT. DESBD470 +00497 EXIT. DESBD470 +00498 DESBD470 +00499 S982Z-WNAM-IO. DESBD470 +00500 CALL 'DTSBU982' USING L982-LINK-AREA DESBD470 +00501 WNAM-REC. DESBD470 +00502 S982Z-EXIT. DESBD470 +00503 EXIT. DESBD470 +00504 DESBD470 +00505 DESBD470 +00506 S999-ABEND. DESBD470 +00507 DISPLAY '*** I/O MODULE ABENDING'. DESBD470 +00508 DESBD470 +00509 DISPLAY '*** CMND-CD = ' L983-CMND-CD. DESBD470 +00510 DESBD470 +00511 DISPLAY '*** FILE-STATUS = ' WAGE-TRANS-STATUS. DESBD470 +00512 DESBD470 +00513 DISPLAY '*** CALLING MODULE = ' L983-MOD-NAME. DESBD470 +00514 DESBD470 +00515 DESBD470 +00516 CALL 'DTSBU999' USING WRK-ABEND-CD. DESBD470 +00517 S999-EXIT. DESBD470 +00518 EXIT. DESBD470 diff --git a/Batch/DESBD474.cob b/Batch/DESBD474.cob index 9caf773..8e67456 100644 --- a/Batch/DESBD474.cob +++ b/Batch/DESBD474.cob @@ -1,5 +1,5 @@ 00001 IDENTIFICATION DIVISION. 10/02/24 -00002 PROGRAM-ID. DESBD471. DESBD474 +00002 PROGRAM-ID. DESBD474. DESBD474 00003 AUTHOR. NGC. LV018 00004 DATE-WRITTEN. DECEMBER 2012. DESBD474 00005 DATE-COMPILED. DESBD474 diff --git a/Batch/DESBD475.cob b/Batch/DESBD475.cob index 6e04409..0d48530 100644 --- a/Batch/DESBD475.cob +++ b/Batch/DESBD475.cob @@ -1,5 +1,5 @@ 00001 IDENTIFICATION DIVISION. 10/10/24 -00002 PROGRAM-ID. DESBD471. DESBD475 +00002 PROGRAM-ID. DESBD475. DESBD475 00003 AUTHOR. NGC. LV005 00004 DATE-WRITTEN. DECEMBER 2012. DESBD475 00005 DATE-COMPILED. DESBD475 diff --git a/Batch/DOESU946.cob b/Batch/DOESU946.cob new file mode 100644 index 0000000..096467c --- /dev/null +++ b/Batch/DOESU946.cob @@ -0,0 +1,135 @@ +00001 IDENTIFICATION DIVISION. 02/26/01 +00002 PROGRAM-ID. DOESU946. DOESU946 +00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV002 +00004 DATE-WRITTEN. DECEMBER 1991. DOESU946 +00005 DATE-COMPILED. DOESU946 +00006 DOESU946 +00007 ***** DOESU946 +00008 * DOESU946 +00009 * FUNCTION: VARIABLE LENGTH RECORD (FILE 1) OUTPUT. DOESU946 +00010 * DOESU946 +00011 * DOESU946 +00012 * MODIFICATION LOG: DOESU946 +00013 * DOESU946 +00014 * 12/18/91 INITIAL DEVELOPMENT. DOESU946 +00015 * WORK ORDER: PROGRAMMER: TCL DOESU946 +00016 * DOESU946 +00017 * 09/30/1998 REVIEWED AND MODIFIED FOR DC. DOESU946 +00018 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DOESU946 +00019 * DOESU946 +00020 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DOESU946 +00021 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DOESU946 +00022 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DOESU946 +00023 * DOESU946 +00024 * DOESU946 +00025 * DESCRIPTION: DOESU946 +00026 * DOESU946 +00027 * DTSBU946 WRITES REPORT RECORDS TO DTSFVRO1. DOESU946 +00028 * DOESU946 +00029 * DOESU946 +00030 ***** DOESU946 +00031 DOESU946 +00032 ENVIRONMENT DIVISION. DOESU946 +00033 DOESU946 +00034 INPUT-OUTPUT SECTION. DOESU946 +00035 DOESU946 +00036 FILE-CONTROL. DOESU946 +00037 SELECT VAR-FILE ASSIGN TO DOESVRO1 CL**2 +00038 FILE STATUS IS FILE-STATUS. DOESU946 +00039 DOESU946 +00040 DATA DIVISION. DOESU946 +00041 DOESU946 +00042 FILE SECTION. DOESU946 +00043 DOESU946 +00044 FD VAR-FILE DOESU946 +00045 RECORDING MODE IS V DOESU946 +00046 BLOCK CONTAINS 0 RECORDS. DOESU946 +00047 DOESU946 +00048 01 FILE-REC. DOESU946 +00049 ++INCLUDE DTSIRVAR DOESU946 +00050 EJECT DOESU946 +00051 WORKING-STORAGE SECTION. DOESU946 +000515 77 PAN-VALET PICTURE X(24) VALUE '002DOESU946 02/26/01'. DOESU946 +00052 DOESU946 +00053 01 WRK-AREA. DOESU946 +00054 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +946.DOESU946 +00055 DOESU946 +00056 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DOESU946 +00057 DOESU946 +00058 05 VAR-CHAR-CNT PIC S9(04) COMP. DOESU946 +00059 DOESU946 +00060 05 WRK-REC-CNT PIC S9(07) COMP-3. DOESU946 +00061 DOESU946 +00062 05 FILE-STATUS PIC X(02). DOESU946 +00063 88 FILE-OK-88 VALUE '00'. DOESU946 +00064 EJECT DOESU946 +00065 01 RLEN-LENGTH-LITERALS. DOESU946 +00066 ++INCLUDE DTSIRLEN DOESU946 +00067 EJECT DOESU946 +00068 LINKAGE SECTION. DOESU946 +00069 DOESU946 +00070 01 LINK-REC. DOESU946 +00071 ++INCLUDE DTSIRVAR DOESU946 +00072 EJECT DOESU946 +00073 PROCEDURE DIVISION USING LINK-REC. DOESU946 +00074 DOESU946 +00075 IF FIRST-TIME-IND = 'Y' DOESU946 +00076 PERFORM P1000-OPEN THRU P1000-EXIT DOESU946 +00077 MOVE +0 TO WRK-REC-CNT DOESU946 +00078 MOVE 'N' TO FIRST-TIME-IND. DOESU946 +00079 DOESU946 +00080 IF RVAR-LENGTH OF LINK-REC = -1 DOESU946 +00081 DISPLAY '*** ' DOESU946 +00082 WRK-REC-CNT DOESU946 +00083 ' DTSFVRO1 RECORDS WRITTEN' DOESU946 +00084 PERFORM P2000-CLOSE THRU P2000-EXIT DOESU946 +00085 ELSE DOESU946 +00086 IF RVAR-LENGTH OF LINK-REC < RLEN-MIN-LENGTH DOESU946 +00087 OR RVAR-LENGTH OF LINK-REC > RLEN-MAX-LENGTH DOESU946 +00088 DISPLAY 'RECORD LENGTH: ' RVAR-LENGTH OF LINK-REC DOESU946 +00089 PERFORM S999-ABEND THRU S999-EXIT DOESU946 +00090 ELSE DOESU946 +00091 COMPUTE VAR-CHAR-CNT = RVAR-LENGTH OF LINK-REC - 2 DOESU946 +00092 MOVE LINK-REC TO FILE-REC DOESU946 +00093 PERFORM P3000-WRITE THRU P3000-EXIT DOESU946 +00094 ADD +1 TO WRK-REC-CNT. DOESU946 +00095 DOESU946 +00096 GOBACK. DOESU946 +00097 EJECT DOESU946 +00098 P1000-OPEN. DOESU946 +00099 OPEN OUTPUT VAR-FILE. DOESU946 +00100 DOESU946 +00101 IF NOT FILE-OK-88 DOESU946 +00102 DISPLAY 'CANT OPEN VARIABLE LENGTH FILE' DOESU946 +00103 PERFORM S999-ABEND THRU S999-EXIT. DOESU946 +00104 P1000-EXIT. DOESU946 +00105 EXIT. DOESU946 +00106 DOESU946 +00107 DOESU946 +00108 DOESU946 +00109 P2000-CLOSE. DOESU946 +00110 CLOSE VAR-FILE. DOESU946 +00111 IF NOT FILE-OK-88 DOESU946 +00112 DISPLAY 'CANT CLOSE VARIABLE LENGTH FILE' DOESU946 +00113 PERFORM S999-ABEND THRU S999-EXIT. DOESU946 +00114 P2000-EXIT. DOESU946 +00115 EXIT. DOESU946 +00116 DOESU946 +00117 DOESU946 +00118 DOESU946 +00119 P3000-WRITE. DOESU946 +00120 WRITE FILE-REC. DOESU946 +00121 DOESU946 +00122 IF NOT FILE-OK-88 DOESU946 +00123 DISPLAY 'CANT WRITE VARIABLE LENGTH FILE' DOESU946 +00124 PERFORM S999-ABEND THRU S999-EXIT. DOESU946 +00125 P3000-EXIT. DOESU946 +00126 EXIT. DOESU946 +00127 EJECT DOESU946 +00128 S999-ABEND. DOESU946 +00129 DISPLAY '*** I/O MODULE ABENDING'. DOESU946 +00130 DISPLAY '*** FILE-STATUS = ' FILE-STATUS. DOESU946 +00131 DOESU946 +00132 CALL 'DTSBU999' USING WRK-ABEND-CD. DOESU946 +00133 S999-EXIT. DOESU946 +00134 EXIT. DOESU946 diff --git a/Batch/DTSBD120.cob b/Batch/DTSBD120.cob index 4c56ea5..b2c1b91 100644 --- a/Batch/DTSBD120.cob +++ b/Batch/DTSBD120.cob @@ -583,8 +583,10 @@ 00582 GO TO S910-MSTR-IO. DTSBD120 00583 DTSBD120 00584 S910-MSTR-IO. DTSBD120 +RCCODE DISPLAY 'START-Time:' CURRENT-DATE. 00585 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD120 00586 MSKL-REC. DTSBD120 +RCCODE DISPLAY 'END-Time:' CURRENT-DATE. 00587 S910-EXIT. EXIT. DTSBD120 00588 SKIP3 DTSBD120 00589 S921-OPEN-READ. DTSBD120 diff --git a/Batch/DTSBU910.cob b/Batch/DTSBU910.cob index a6b986b..f3d28cd 100644 --- a/Batch/DTSBU910.cob +++ b/Batch/DTSBU910.cob @@ -419,7 +419,7 @@ 00418 P0100-EXIT. DTSBU910 00419 EXIT. DTSBU910 00420 EJECT DTSBU910 -00421 P1100-READ. DTSBU910 +00421 P1100-READ. DTSBU910 00422 IF FILE-SUB = +1 DTSBU910 00423 MOVE MSKL-KEY-AREA OF LINK-REC DTSBU910 00424 TO MSKL-KEY-AREA OF MSTA-SKL-REC DTSBU910 diff --git a/Batch/DTSBX418.cob b/Batch/DTSBX418.cob index 7d6d779..eefb077 100644 --- a/Batch/DTSBX418.cob +++ b/Batch/DTSBX418.cob @@ -1,6 +1,6 @@ -00001 IDENTIFICATION DIVISION. 08/27/25 +00001 IDENTIFICATION DIVISION. 04/03/15 00002 PROGRAM-ID. DTSBX418. DTSBX418 -00003 AUTHOR. NGC. LV052 +00003 AUTHOR. NGC. LV051 00004 DATE-WRITTEN. APRIL 2005. DTSBX418 00005 DATE-COMPILED. DTSBX418 00006 SKIP3 DTSBX418 @@ -142,7 +142,7 @@ 00142 05 SORT-DATA PIC X(512). DTSBX418 00143 DTSBX418 00144 WORKING-STORAGE SECTION. DTSBX418 -001445 77 PAN-VALET PICTURE X(24) VALUE '052DTSBX418 08/27/25'. DTSBX418 +001445 77 PAN-VALET PICTURE X(24) VALUE '051DTSBX418 04/03/15'. DTSBX418 00145 77 PAN-VALET PICTURE X(24) VALUE '013DTSBX418 10/07/14'. CL*49 00146 77 PAN-VALET PICTURE X(24) VALUE '154DTSBX418 10/07/14'. CL*49 00147 SKIP3 DTSBX418 @@ -566,8 +566,8 @@ 00565 MOVE W-CURR-RUN-DATE TO LX42-CURR-RUN-DATE. DTSBX418 00566 MOVE L005-DATE TO LX42-SYS-DATE. DTSBX418 00567 MOVE L005-TIME TO LX42-SYS-TIME. DTSBX418 -00568 * MOVE ZERO TO LX42-BATCH-NO CL*52 -00569 MOVE ZERO TO LX42-PSEUDO-BATCH-NO CL*52 +00568 * MOVE ZERO TO LX42-BATCH-NO DTSBX418 +00568 MOVE ZERO TO LX42-PSEUDO-BATCH-NO DTSBX418 00570 LX42-LAST-DETERM-EMP DTSBX418 00571 LX42-RPT-CNT DTSBX418 00572 LX42-RPT-REMIT-AMT DTSBX418 diff --git a/Batch/DTSBX802.cob b/Batch/DTSBX802.cob new file mode 100644 index 0000000..d7307a5 --- /dev/null +++ b/Batch/DTSBX802.cob @@ -0,0 +1,268 @@ +00001 IDENTIFICATION DIVISION. 10/07/25 +00002 PROGRAM-ID. DTSBX802. DTSBX802 +00003 AUTHOR. NGC. LV011 +00004 DATE-WRITTEN. OCTOBER 2006. DTSBX802 +00005 DATE-COMPILED. DTSBX802 +00006 SKIP3 DTSBX802 +00007 ***** DTSBX802 +00008 * DTSBX802 +00009 * FUNCTION: CREATE FILE OF RELATIONSHIP RECORDS DTSBX802 +00010 * IN EFFECTIVE DATE, PREDECESSOR, SUCCESSOR DTSBX802 +00011 * ORDER. USED FOR TRANSFERRING EXPERIENCE. DTSBX802 +00012 * DTSBX802 +00013 * >>> THIS PROGRAM CAN RUN IN TWO MODES, BASED ON A PARM. DTSBX802 +00014 * >>> PARM = 0: SELECT ONLY EXPERIENCE RATING RELATIONSHIPS. DTSBX802 +00015 * >>> PARM = 1: SELECT ALL RELATIONSHIPS. DTSBX802 +00016 * >>> THE 'SELECT ALL' SETTING IS USED IN PROCESSING ICESA DTSBX802 +00017 * >>> REPORTS (DTSBD551). DTSBX802 +00018 * DTSBX802 +00019 * 07/11/2019 MODIFIED TO NOT EXCLUDE EMPLOYER FROM THE SUC TAB CL**9 +00020 * PROGRAM DTSZX800 NEED TO RUN BEFORE THIS PROGRAM CL**9 +00021 * REBUILT THE PRED/SUCC REL TABLE. CL**9 +00022 * REFERENCE: PROGRAMMER: ZL1 CL**9 +00023 * CL**9 +00024 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**9 +00025 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**9 +00026 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: CL**9 +00027 * CL**9 +00028 ***** DTSBX802 +00029 SKIP3 DTSBX802 +00030 ENVIRONMENT DIVISION. DTSBX802 +00031 SKIP2 DTSBX802 +00032 INPUT-OUTPUT SECTION. DTSBX802 +00033 DTSBX802 +00034 FILE-CONTROL. DTSBX802 +00035 * SELECT SORT-FILE ASSIGN TO SORTFILE. CL*10 +00036 DTSBX802 +00037 SELECT ESP-FILE ASSIGN TO DTSFIESP DTSBX802 +00038 FILE STATUS IS ESP-STATUS. DTSBX802 +00039 DTSBX802 +00040 DATA DIVISION. DTSBX802 +00041 DTSBX802 +00042 FILE SECTION. DTSBX802 +00043 DTSBX802 +00044 *SD SORT-FILE. CL*10 +00045 DTSBX802 +00046 *01 SORT-REC. CL*10 +00047 * 05 SORT-KEY PIC X(16). CL*10 +00048 DTSBX802 +00049 FD ESP-FILE DTSBX802 +00050 RECORDING MODE IS F DTSBX802 +00051 BLOCK CONTAINS 0 RECORDS DTSBX802 +00052 LABEL RECORDS ARE OMITTED. DTSBX802 +00053 DTSBX802 +00054 01 ESP-FILE-REC PIC X(16). DTSBX802 +00055 DTSBX802 +00056 DTSBX802 +00057 WORKING-STORAGE SECTION. DTSBX802 +000575 77 PAN-VALET PICTURE X(24) VALUE '011DTSBX802 10/07/25'. DTSBX802 +00058 77 PAN-VALET PICTURE X(24) VALUE '001DTSBX800 01/16/08'. DTSBX802 +00059 SKIP3 DTSBX802 +00060 01 WRK-AREA. DTSBX802 +00061 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +340. DTSBX802 +00062 DTSBX802 +00063 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBZ340'.DTSBX802 +00064 DTSBX802 +00065 05 WRK-SRT-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX802 +00066 05 WRK-ESP-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX802 +00067 DTSBX802 +00068 05 WRK-ERROR-IND PIC X(01). DTSBX802 +00069 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBX802 +00070 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBX802 +00071 DTSBX802 +00072 05 ESP-STATUS PIC X(02). DTSBX802 +00073 88 ESP-STATUS-OK-88 VALUE '00'. DTSBX802 +00074 DTSBX802 +00075 05 SORT-STATUS PIC X(02) VALUE '00'. DTSBX802 +00076 88 SORT-OK-88 VALUE '00'. DTSBX802 +00077 88 SORT-EOF-88 VALUE '10'. DTSBX802 +00078 DTSBX802 +00079 05 WRK-TRACE-IND PIC X(01). DTSBX802 +00080 DTSBX802 +00081 05 PCT-DISP PIC 9.9999. DTSBX802 +00082 DTSBX802 +00083 05 WRK-ESP-REC. DTSBX802 +00084 10 WRK-ESP-EFF-DT PIC S9(09) COMP-3. DTSBX802 +00085 10 WRK-ESP-PRED PIC S9(07) COMP-3. DTSBX802 +00086 10 WRK-ESP-SUC PIC S9(07) COMP-3. DTSBX802 +00087 10 WRK-ESP-PCT PIC S9V9(04) COMP-3. DTSBX802 +00088 DTSBX802 +00089 01 L921-LINK-AREA. DTSBX802 +00090 ++INCLUDE DTSIL921 DTSBX802 +00091 DTSBX802 +00092 01 ISKL-REC. DTSBX802 +00093 ++INCLUDE DTSIISKL DTSBX802 +00094 DTSBX802 +00095 01 IPES-REC. DTSBX802 +00096 ++INCLUDE DTSIIPES DTSBX802 +00097 DTSBX802 +00098 LINKAGE SECTION. DTSBX802 +00099 DTSBX802 +00100 01 PARM-AREA. DTSBX802 +00101 05 PARM-LENGTH PIC S9(04) COMP. DTSBX802 +00102 DTSBX802 +00103 *********************************************************** DTSBX802 +00104 * PARM = 0: SELECT ONLY 'EXPERIENCE RATING' RELATIONSHIPS. DTSBX802 +00105 * PARM = 1: SELECT ALL RELATIONSHIPS. DTSBX802 +00106 *********************************************************** DTSBX802 +00107 05 PARM-DATA. DTSBX802 +00108 10 PARM-EMP-NO PIC X(01). DTSBX802 +00109 88 PARM-RATING-ONLY-88 VALUE '0'. DTSBX802 +00110 88 PARM-SELECT-ALL-88 VALUE '1'. DTSBX802 +00111 DTSBX802 +00112 PROCEDURE DIVISION USING PARM-AREA. DTSBX802 +00113 DTSBX802 +00114 DTSBX800-MAIN. DTSBX802 +00115 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX802 +00116 IF WRK-ERROR-YES-88 DTSBX802 +00117 GO TO DTSBX800-MAIN-EXIT. DTSBX802 +00118 DTSBX802 +00119 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBX802 +00120 DTSBX802 +00121 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBX802 +00122 DTSBX802 +00123 DTSBX800-MAIN-EXIT. DTSBX802 +00124 GOBACK. DTSBX802 +00125 EJECT DTSBX802 +00126 I0000-INITIATE. DTSBX802 +00127 DTSBX802 +00128 SET WRK-ERROR-NO-88 TO TRUE. DTSBX802 +00129 DTSBX802 +00130 PERFORM I1000-OPEN-FILES THRU I1000-EXIT. DTSBX802 +00131 IF WRK-ERROR-YES-88 DTSBX802 +00132 GO TO I0000-EXIT. DTSBX802 +00133 DTSBX802 +00134 I0000-EXIT. DTSBX802 +00135 EXIT. DTSBX802 +00136 I1000-OPEN-FILES. DTSBX802 +00137 MOVE WRK-TRACE-IND TO L921-TRACE-IND. DTSBX802 +00138 DTSBX802 +00139 MOVE WRK-MOD-NAME TO L921-MOD-NAME. DTSBX802 +00140 DTSBX802 +00141 OPEN OUTPUT ESP-FILE. DTSBX802 +00142 IF NOT ESP-STATUS-OK-88 DTSBX802 +00143 DISPLAY 'CANNOT OPEN ESP OUTPUT FILE ' ESP-STATUS DTSBX802 +00144 SET WRK-ERROR-YES-88 TO TRUE DTSBX802 +00145 GO TO I1000-EXIT DTSBX802 +00146 END-IF. DTSBX802 +00147 PERFORM S921A-OPEN-READ THRU S921A-EXIT. DTSBX802 +00148 DTSBX802 +00149 I1000-EXIT. DTSBX802 +00150 EXIT. DTSBX802 +00151 DTSBX802 +00152 EJECT DTSBX802 +00153 P0000-PROCESS. DTSBX802 +00154 PERFORM P1000-GET-IPES THRU P1000-EXIT. CL*10 +00155 DTSBX802 +00156 P0000-EXIT. DTSBX802 +00157 EXIT. DTSBX802 +00158 DTSBX802 +00159 P1000-GET-IPES. DTSBX802 +00160 MOVE LOW-VALUES TO IPES-KEY-AREA. DTSBX802 +00161 SET IPES-PES-88 TO TRUE. DTSBX802 +00162 MOVE IPES-KEY-AREA TO ISKL-KEY-AREA. DTSBX802 +00163 PERFORM S921B-START-BROWSE THRU S921B-EXIT. DTSBX802 +00164 DTSBX802 +00165 PERFORM UNTIL L921-NO-REC-88 DTSBX802 +00166 MOVE ISKL-REC TO IPES-REC DTSBX802 +00167 DISPLAY 'TRANSFER EXP RATING ' IPES-SUC-EMP-NO CL**7 +00168 ' TRANSFER CODE ' IPES-EXP-TRNSF-CD CL**7 +00169 CL**7 +00170 IF PARM-RATING-ONLY-88 DTSBX802 +00171 IF IPES-EXP-TRNSF-YES-88 DTSBX802 +00172 PERFORM P1100-WRITE-SORT-REC THRU P1100-EXIT DTSBX802 +00173 ADD +1 TO WRK-SRT-CNT DTSBX802 +00174 END-IF DTSBX802 +00175 ELSE DTSBX802 +00176 PERFORM P1100-WRITE-SORT-REC THRU P1100-EXIT DTSBX802 +00177 ADD +1 TO WRK-SRT-CNT DTSBX802 +00178 END-IF DTSBX802 +00179 PERFORM S921D-READ-NEXT THRU S921D-EXIT DTSBX802 +00180 END-PERFORM. DTSBX802 +00181 DTSBX802 +00182 P1000-EXIT. DTSBX802 +00183 EXIT. DTSBX802 +00184 DTSBX802 +00185 P1100-WRITE-SORT-REC. DTSBX802 +00186 * IF IPES-SUC-EMP-NO = 582326 OR 813262 OR 862472 CL**8 +00187 * OR 753582 CL**8 +00188 * DISPLAY 'PASS ' WRK-ESP-EFF-DT ' ' WRK-ESP-PRED CL**8 +00189 * ' ' WRK-ESP-SUC ' ' WRK-ESP-PCT CL**8 +00190 * GO TO P1100-EXIT. CL**8 +00191 CL**3 +00192 MOVE IPES-EFF-DATE TO WRK-ESP-EFF-DT. DTSBX802 +00193 MOVE IPES-PRED-EMP-NO TO WRK-ESP-PRED. DTSBX802 +00194 MOVE IPES-SUC-EMP-NO TO WRK-ESP-SUC. DTSBX802 +00195 MOVE IPES-PERCENT-TRNSFRD TO WRK-ESP-PCT. DTSBX802 +00196 DTSBX802 +00197 DISPLAY 'IN ' WRK-ESP-EFF-DT ' ' WRK-ESP-PRED CL**2 +00198 ' ' WRK-ESP-SUC ' ' WRK-ESP-PCT. CL**7 +00199 DTSBX802 +00200 P1100-WRITE-ESP. CL*10 +00201 DTSBX802 +00202 ** DISPLAY 'OUT ' WRK-ESP-EFF-DT ' ' WRK-ESP-PRED DTSBX802 +00203 ** ' ' WRK-ESP-SUC ' ' WRK-ESP-PCT. DTSBX802 +00204 WRITE ESP-FILE-REC FROM WRK-ESP-REC. CL*10 +00205 IF NOT ESP-STATUS-OK-88 DTSBX802 +00206 DISPLAY 'CANNOT WRITE ESP REC ' ESP-STATUS DTSBX802 +00207 GO TO P1100-EXIT CL*11 +00208 ELSE DTSBX802 +00209 ADD +1 TO WRK-ESP-CNT DTSBX802 +00210 END-IF. DTSBX802 +00211 DTSBX802 +00212 P1100-EXIT. CL*10 +00213 EXIT. DTSBX802 +00214 DTSBX802 +00215 T0000-TERMINATE. DTSBX802 +00216 DTSBX802 +00217 DISPLAY ' '. DTSBX802 +00218 DTSBX802 +00219 DISPLAY '*** DTSBX800 TERMINATION STATISTICS ***'. DTSBX802 +00220 DTSBX802 +00221 DISPLAY ' '. DTSBX802 +00222 DTSBX802 +00223 DISPLAY 'IPES AIX RECORDS READ : ' DTSBX802 +00224 WRK-SRT-CNT. DTSBX802 +00225 DTSBX802 +00226 DISPLAY 'NUMBER OF ESP RECORDS WRITTEN : ' DTSBX802 +00227 WRK-ESP-CNT. DTSBX802 +00228 DTSBX802 +00229 PERFORM S921C-CLOSE THRU S921C-EXIT. DTSBX802 +00230 DTSBX802 +00231 T0000-EXIT. DTSBX802 +00232 EXIT. DTSBX802 +00233 EJECT DTSBX802 +00234 S921A-OPEN-READ. DTSBX802 +00235 SET L921-OPEN-READ-88 TO TRUE. DTSBX802 +00236 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX802 +00237 ISKL-REC. DTSBX802 +00238 S921A-EXIT. DTSBX802 +00239 EXIT. DTSBX802 +00240 DTSBX802 +00241 S921B-START-BROWSE. DTSBX802 +00242 SET L921-START-BROWSE-88 TO TRUE. DTSBX802 +00243 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX802 +00244 ISKL-REC. DTSBX802 +00245 S921B-EXIT. DTSBX802 +00246 EXIT. DTSBX802 +00247 DTSBX802 +00248 S921C-CLOSE. DTSBX802 +00249 SET L921-CLOSE-88 TO TRUE. DTSBX802 +00250 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX802 +00251 ISKL-REC. DTSBX802 +00252 S921C-EXIT. DTSBX802 +00253 EXIT. DTSBX802 +00254 DTSBX802 +00255 S921D-READ-NEXT. DTSBX802 +00256 SET L921-READ-NEXT-88 TO TRUE. DTSBX802 +00257 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX802 +00258 ISKL-REC. DTSBX802 +00259 S921D-EXIT. DTSBX802 +00260 EXIT. DTSBX802 +00261 DTSBX802 +00262 DTSBX802 +00263 S999-ABEND. DTSBX802 +00264 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX802 +00265 S999-EXIT. DTSBX802 +00266 EXIT. DTSBX802 +00267 DTSBX802 diff --git a/Copybook/DTSIWWGH.cpy b/Copybook/DTSIWWGH.cpy index cbbe607..5531719 100644 --- a/Copybook/DTSIWWGH.cpy +++ b/Copybook/DTSIWWGH.cpy @@ -9,9 +9,9 @@ 00009 * 02/18/2002 INITIAL DEVELOPMENT. GD DTSIWWGH 00010 * 03/18/2004 MODIFIED FOR NEW WAGE PROCESS. GD DTSIWWGH 00011 * 02/27/2024 MODIFIED FOR UIBS WAGE PROCESSING ZL CL**3 -00012 * DTSIWWGH -00013 * KEY = 12 LENGTH = 23 CL**2 -00014 * DTSIWWGH +00012 * TAXWGH FILE CHANGE ONLY TO 23 BYTES DTSIWWGH +00013 * KEY = 12 LENGTH = 23 (TAXWGH ONLY) CL**2 +00014 * WGH FILE STAYED AT 18 BYTES DTSIWWGH 00015 ***** DTSIWWGH 00016 DTSIWWGH 00017 10 WWGH-KEY-AREA. DTSIWWGH @@ -21,4 +21,4 @@ 00021 DTSIWWGH 00022 10 WWGH-DATA-AREA. DTSIWWGH 00023 15 WWGH-EARNINGS PIC S9(09)V9(02) COMP-3. DTSIWWGH -00024 15 WWGH-CHNG-DATE PIC S9(09) COMP-3. CL**2 +00024* 15 WWGH-CHNG-DATE PIC S9(09) COMP-3. CL**2 diff --git a/Copybook/DTSNH104 (2).cpy b/Copybook/DTSNH104 (2).cpy new file mode 100644 index 0000000..6923728 --- /dev/null +++ b/Copybook/DTSNH104 (2).cpy @@ -0,0 +1,132 @@ +00001 ***** 01/11/19 +00002 * DTSNH104 +00003 * DTSIX104 EMPLOYER DETERMINATION EXTRACT RECORD LV016 +00004 * DTSNH104 +00005 * EXCHANGES EMPLOYER DETERMINATION INFORMATION BETWEEN THE DTSNH104 +00006 * MAINFRAME AND SQL SERVER DATABASE. DTSNH104 +00007 * DTSNH104 +00008 * DTSNH104 +00009 ***** DTSNH104 +00010 DTSNH104 +00011 15 X104-REC-TYPE PIC X(03) VALUE '104'. DTSNH104 +00012 15 FILLER PIC X(01) VALUE ','. DTSNH104 +00013 15 X104-EMP-NO PIC 9(06). DTSNH104 +00014 15 FILLER PIC X(01) VALUE ','. DTSNH104 +00015 15 X104-STAFF-REVIEW-IND PIC X(01). DTSNH104 +00016 88 X104-STAFF-REVIEW-YES-88 VALUE 'Y'. CL**3 +00017 88 X104-STAFF-REVIEW-NO-88 VALUE 'N'. CL**3 +00018 15 FILLER PIC X(01) VALUE ','. DTSNH104 +00019 15 X104-LIAB-CD PIC X(02). DTSNH104 +00020 88 X104-LIAB-NO-DETERM-88 VALUE ' '. DTSNH104 +00021 88 X104-LIAB-NOT-LIABLE-88 VALUE '00'. DTSNH104 +00022 88 X104-LIAB-RATED-REG-88 VALUE '01'. DTSNH104 +00023 88 X104-LIAB-RATED-NON-PROF-88 VALUE '02'. DTSNH104 +00024 88 X104-LIAB-RATED-DOMESTIC-88 VALUE '04'. DTSNH104 +00025 88 X104-LIAB-RATED-FOREIGN-88 VALUE '07'. DTSNH104 +00026 88 X104-LIAB-SELF-INS-CITY-88 VALUE '22'. DTSNH104 +00027 88 X104-LIAB-SELF-INS-COUNTY-88 VALUE '23'. DTSNH104 +00028 88 X104-LIAB-SELF-INS-STATE-88 VALUE '24'. DTSNH104 +00029 88 X104-LIAB-SELF-INS-CHURCH-88 VALUE '25'. DTSNH104 +00030 88 X104-LIAB-SELF-INS-NON-PROF-88 VALUE '26'. DTSNH104 +00031 88 X104-LIAB-RATED-88 VALUE DTSNH104 +00032 '01' '02' '04' '07'. DTSNH104 +00033 88 X104-LIAB-SELF-INS-88 VALUE DTSNH104 +00034 '22' '23' '24' '25' '26'. DTSNH104 +00035 88 X104-LIAB-VALID-88 VALUE DTSNH104 +00036 '00' '01' '02' '04' '07' '22' '23' '24' '25' '26'. DTSNH104 +00037 15 FILLER PIC X(01) VALUE ','. DTSNH104 +00038 15 X104-ELIG-CD PIC X(02). DTSNH104 +00039 88 X104-ELIG-NO-DETERM-88 VALUE ' '. DTSNH104 +00040 88 X104-ELIG-RATED-88 VALUE '00'. DTSNH104 +00041 88 X104-ELIG-UCX-88 VALUE '01'. DTSNH104 +00042 88 X104-ELIG-UCFE-88 VALUE '02'. DTSNH104 +00043 88 X104-ELIG-INTERSTATE-88 VALUE '04'. DTSNH104 +00044 88 X104-ELIG-VOLUNTARY-QUIT-88 VALUE '05'. CL**8 +00045 88 X104-ELIG-MISCONDUCT-88 VALUE '06'. CL**8 +00046 88 X104-ELIG-EB-88 VALUE '07'. CL**8 +00047 88 X104-ELIG-SELF-INS-88 VALUE '08'. DTSNH104 +00048 88 X104-ELIG-TRA-88 VALUE '09'. CL**8 +00049 88 X104-ELIG-DC-GOV-88 VALUE '10'. DTSNH104 +00050 88 X104-ELIG-NOT-SUBJECT-88 VALUE '13'. DTSNH104 +00051 88 X104-ELIG-TEUC-88 VALUE '16'. CL**8 +00052 88 X104-ELIG-VALID-88 VALUE DTSNH104 +00053 ' ' '00' '01' '02' '04' '05' '06' '07' CL**8 +00054 '08' '09' '10' '13' '16'. CL**8 +00055 15 FILLER PIC X(01) VALUE ','. DTSNH104 +00056 15 X104-NAICS-CD PIC 9(06). DTSNH104 +00057 15 FILLER PIC X(01) VALUE ','. DTSNH104 +00058 15 X104-ORG-TYPE PIC X(03). DTSNH104 +00059 88 X104-ORG-SOLE-PROPRIETOR-88 VALUE 'S '. DTSNH104 +00060 88 X104-ORG-PARTNERSHIP-88 VALUE 'P '. DTSNH104 +00061 88 X104-ORG-LTD-LIAB-CO-88 VALUE 'LLC'. DTSNH104 +00062 88 X104-ORG-LTD-LIAB-PARTN-88 VALUE 'LLP'. DTSNH104 +00063 88 X104-ORG-CORPORATION-88 VALUE 'C '. DTSNH104 +00064 88 X104-ORG-J-JOINT-VENT-88 VALUE 'J '. CL**4 +00065 88 X104-ORG-S-CORPORATION-88 VALUE 'SC '. CL**4 +00066 88 X104-ORG-TRUST-BANK-88 VALUE 'TB '. CL**5 +00067 88 X104-ORG-RECEIVERSHIP-88 VALUE 'R '. CL**5 +00068 88 X104-ORG-TRUST-PENSION-88 VALUE 'TP '. CL*13 +00069 88 X104-ORG-ASSOCIATION-88 VALUE 'ASS'. CL**5 +00070 88 X104-ORG-HSEHLD-DMSTIC-88 VALUE 'H '. CL**5 +00071 88 X104-ORG-NON-PROFIT-88 VALUE 'NP '. DTSNH104 +00072 88 X104-ORG-OTH-NON-GOV-88 VALUE 'ONG'. DTSNH104 +00073 88 X104-ORG-UNINC-ASSOC-88 VALUE 'UNA'. CL*14 +00074 88 X104-ORG-FED-IND-TRIBE-88 VALUE 'FIT'. CL*14 +00075 88 X104-ORG-OTH-88 VALUE 'OTH'. CL*14 +00076 88 X104-ORG-STATE-88 VALUE 'ST'. DTSNH104 +00077 88 X104-ORG-COUNTY-88 VALUE 'CO '. DTSNH104 +00078 88 X104-ORG-CITY-88 VALUE 'CTY'. DTSNH104 +00079 88 X104-ORG-SCHOOL-DISTRICT-88 VALUE 'SCH'. DTSNH104 +00080 88 X104-ORG-FORGN-GOV-88 VALUE 'FG '. DTSNH104 +00081 88 X104-ORG-OTH-GOV-88 VALUE 'OG '. DTSNH104 +00082 88 X104-ORG-UNKNOWN-88 VALUE 'UNK'. CL*11 +00083 88 X104-ORG-TYPE-VALID-88 VALUE DTSNH104 +00084 'S ', 'P ', 'LLC', 'LLP', 'C ', 'SC ', DTSNH104 +00085 'H ', 'NP ', 'ONG', 'ST ', 'CO ', 'CTY', DTSNH104 +00086 'SCH', 'FG ', 'OG ', 'J ', 'TB ', 'R ', CL*13 +00087 'ASS', 'TP ', 'UNK', 'UNA', 'FIT', 'OTH'. CL*14 +00088 15 FILLER PIC X(01) VALUE ','. DTSNH104 +00089 15 X104-INCORP-STATE PIC X(02). DTSNH104 +00090 15 FILLER PIC X(01) VALUE ','. DTSNH104 +00091 15 X104-INCORP-DATE PIC X(10). DTSNH104 +00092 15 FILLER PIC X(01) VALUE ','. DTSNH104 +00093 15 X104-HOUSEHOLD-FILING PIC X(01). DTSNH104 +00094 88 X104-HH-ANNUAL-88 VALUE 'A'. DTSNH104 +00095 88 X104-HH-QUARTERLY-88 VALUE 'Q'. DTSNH104 +00096 15 FILLER PIC X(01) VALUE ','. DTSNH104 +00097 15 X104-FIRST-WAGE-DT PIC X(10). DTSNH104 +00098 15 FILLER PIC X(01) VALUE ','. DTSNH104 +00099 15 X104-FIRST-500-QTR PIC X(06). DTSNH104 +00100 15 FILLER PIC X(01) VALUE ','. DTSNH104 +00101 15 X104-ACQUIRE-IND PIC X(01). DTSNH104 +00102 88 X104-ACQUIRE-YES-88 VALUE 'Y'. CL**2 +00103 88 X104-ACQUIRE-NO-88 VALUE 'N'. CL**2 +00104 15 FILLER PIC X(01) VALUE ','. DTSNH104 +00105 15 X104-MERGER-SPLIT-IND PIC X(01). DTSNH104 +00106 88 X104-MERGE-SPLIT-YES-88 VALUE 'Y'. CL**2 +00107 88 X104-MERGE-SPLIT-NO-88 VALUE 'N'. CL**2 +00108 15 FILLER PIC X(01) VALUE ','. DTSNH104 +00109 15 X104-REORG-IND PIC X(01). DTSNH104 +00110 88 X104-REORG-YES-88 VALUE 'Y'. CL**2 +00111 88 X104-REORG-NO-88 VALUE 'N'. CL**2 +00112 15 FILLER PIC X(01) VALUE ','. DTSNH104 +00113 15 X104-COMMON-OWN-IND PIC X(01). DTSNH104 +00114 88 X104-COMMON-OWN-YES-88 VALUE 'Y'. CL**2 +00115 88 X104-COMMON-OWN-NO-88 VALUE 'N'. CL**2 +00116 15 FILLER PIC X(01) VALUE ','. DTSNH104 +00117 15 X104-SALE-TRANSFER-IND PIC X(01). DTSNH104 +00118 88 X104-SALE-TRANSFER-YES-88 VALUE 'Y'. CL**2 +00119 88 X104-SALE-TRANSFER-NO-88 VALUE 'N'. CL**2 +00120 15 FILLER PIC X(01) VALUE ','. DTSNH104 +00121 15 X104-NOT-LIAB-REASON PIC X(01). CL*16 +00122 88 X104-NOT-LIAB-NULL-88 VALUE '0'. DTSNH104 +00123 88 X104-NOT-LIAB-BUS-ACT-88 VALUE '1'. DTSNH104 +00124 88 X104-NOT-LIAB-NO-EMPL-88 VALUE '2'. DTSNH104 +00125 88 X104-NOT-LIAB-NO-WAGES-88 VALUE '3'. DTSNH104 +00126 88 X104-NOT-LIAB-LOCALIZE-88 VALUE '4'. DTSNH104 +00127 88 X104-NOT-LIAB-VALID-88 VALUES DTSNH104 +00128 '0' '1' '2' '3' '4'. DTSNH104 +00129 15 FILLER PIC X(01) VALUE ','. CL*12 +00130 15 X104-INACTIVE-DATE PIC X(10). CL*12 +00131 15 FILLER PIC X(01) VALUE ','. CL*15 +00132 15 X104-INACTIVE-CODE PIC X(02). CL*16 diff --git a/Copybook/DTSWX120 (2).cpy b/Copybook/DTSWX120 (2).cpy new file mode 100644 index 0000000..e45c506 --- /dev/null +++ b/Copybook/DTSWX120 (2).cpy @@ -0,0 +1,62 @@ +00001 ***** 03/25/15 +00002 * DTSWX120 +00003 * DTSWX120 EMPLOYER OWNER/PARNTER-OFFICER EXTRACT RECORD. LV005 +00004 * DTSWX120 +00005 * EXCHANGES OWNER/PARTNER/OFFICER DATA BETWEEN MAINFRAME AND DTSWX120 +00006 * SQL SERVER DATABASE. DTSWX120 +00007 * DTSWX120 +00008 * 11-10-14 ESSP IS PASSING COMMAS IN ADDRESS FIELDS, OUR CL**2 +00009 * DELIMITER IN BX205 IS A COMMA FIELDS ARE BEING CL**2 +00010 * CUTOFF, TO FIX PROBLEM DO NOT CALL BX205 FOR CL**2 +00011 * ADDRESSES. MODIFIED W120 RECORD TO PASS ONLY CL**4 +00012 * SIZE NEEDED FROM ESSP TO X120 ZL1 CL**4 +00013 ***** DTSWX120 +00014 DTSWX120 +00015 15 W120-REC-TYPE PIC X(03) VALUE '120'. CL**4 +00016 15 FILLER PIC X(01) VALUE ','. DTSWX120 +00017 15 W120-EMP-NO PIC 9(06). CL**4 +00018 15 FILLER PIC X(01) VALUE ','. DTSWX120 +00019 15 W120-TYPE-IND PIC X(02). CL**4 +00020 88 W120-TYPE-OPO-88 VALUE '00'. CL**4 +00021 88 W120-TYPE-RPT-BSNS-88 VALUE '03'. CL**4 +00022 88 W120-TYPE-RPT-TECH-88 VALUE '04'. CL**4 +00023 88 W120-TYPE-FR500-88 VALUE '05'. CL**4 +00024 88 W120-TYPE-CHARGE-88 VALUE '06'. CL**4 +00025 88 W120-TYPE-BENEFITS-88 VALUE '07'. CL**4 +00026 88 W120-TYPE-STATUS-88 VALUE '08'. CL**4 +00027 15 FILLER PIC X(01) VALUE ','. DTSWX120 +00028 15 W120-OPO-ESSP-FNAME. CL**4 +00029 25 W120-OPO-FIRST-NAME PIC X(20). CL**4 +00030 25 W120-OPO-FIRST-FILLER PIC X(20). CL**4 +00031 15 FILLER PIC X(01) VALUE ','. DTSWX120 +00032 15 W120-OPO-MID-INIT PIC X(01). CL**4 +00033 15 FILLER PIC X(01) VALUE ','. DTSWX120 +00034 15 W120-OPO-ESSP-LNAME. CL**4 +00035 25 W120-OPO-LAST-NAME PIC X(20). CL**4 +00036 25 W120-OPO-LAST-FILLER PIC X(20). CL**4 +00037 15 FILLER PIC X(01) VALUE ','. DTSWX120 +00038 15 W120-OPO-MEMBER-NAME PIC X(40). CL**4 +00039 15 FILLER PIC X(01) VALUE ','. DTSWX120 +00040 15 W120-OPO-SSN PIC X(09). CL**4 +00041 15 FILLER PIC X(01) VALUE ','. DTSWX120 +00042 15 W120-OPO-TITLE PIC X(40). CL**4 +00043 15 FILLER PIC X(01) VALUE ','. DTSWX120 +00044 15 W120-OPO-ATTENTION PIC X(40). CL**4 +00045 15 FILLER PIC X(01) VALUE ','. DTSWX120 +00046 15 W120-OPO-STREET-1 PIC X(40). CL**4 +00047 15 FILLER PIC X(01) VALUE ','. DTSWX120 +00048 15 W120-OPO-STREET-2 PIC X(40). CL**4 +00049 15 FILLER PIC X(01) VALUE ','. DTSWX120 +00050 15 W120-OPO-ESSP-CITY. CL**4 +00051 25 W120-OPO-CITY PIC X(20). CL**4 +00052 25 W120-OPO-CITY-FILLER PIC X(05). CL**4 +00053 15 FILLER PIC X(01) VALUE ','. DTSWX120 +00054 15 W120-OPO-STATE PIC X(02). CL**4 +00055 15 FILLER PIC X(01) VALUE ','. DTSWX120 +00056 15 W120-OPO-ZIP PIC X(10). CL**4 +00057 15 FILLER PIC X(01) VALUE ','. DTSWX120 +00058 15 W120-OPO-PHONE PIC X(15). CL**4 +00059 15 FILLER PIC X(01) VALUE ','. DTSWX120 +00060 15 W120-OPO-FAX PIC X(16). CL**5 +00061 15 FILLER PIC X(01) VALUE ','. DTSWX120 +00062 15 W120-OPO-EMAIL PIC X(40). CL**4 diff --git a/Copybook/WSDATES (2).cpy b/Copybook/WSDATES (2).cpy new file mode 100644 index 0000000..6461e5c --- /dev/null +++ b/Copybook/WSDATES (2).cpy @@ -0,0 +1,5 @@ +00001 01 WS-SYSTEM-DATE-TIME. 04/29/04 +00002 05 WS-SYSTEM-DATE PIC 9(06). WSDATES +00003 05 WS-SYSTEM-TIME PIC 9(08). LV001 +00004 05 WS-SYSTEM-DAY PIC 9(05). WSDATES +00005 05 WS-SYSTEM-DOW PIC 9(01). WSDATES diff --git a/JCL/CAUDX144.JCL b/JCL/CAUDX144.JCL new file mode 100644 index 0000000..b3fef1c --- /dev/null +++ b/JCL/CAUDX144.JCL @@ -0,0 +1,15 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X +//*STEP001 EXEC PGM=IDCAMS +//*SYSPRINT DD SYSOUT=* +//*SYSIN DD * +//*DELETE ECNTSUP.DOESTAX.CONV.AUDIT.X144 +//*SET MAXCC=0 +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD DOESTAX.PROD.BTC(+1), +// DISP=(NEW,CATLG,CATLG), +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8182), +// PATH=('E:\DUTASJOBS\DEFAULTVOLUME\DOESTAX.PROD.BD400.BTC.BACKUP(+0)', +// COPY) diff --git a/JCL/COPYMISSWAGS.JCL b/JCL/COPYMISSWAGS.JCL new file mode 100644 index 0000000..c7af0a7 --- /dev/null +++ b/JCL/COPYMISSWAGS.JCL @@ -0,0 +1,15 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DELETE DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES + SET MAXCC=0 +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES, +// DISP=(NEW,CATLG,CATLG), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120), +// PATH=('E:\flat_files\DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES', +// COPY) diff --git a/JCL/COPYX999.JCL b/JCL/COPYX999.JCL new file mode 100644 index 0000000..43c15d5 --- /dev/null +++ b/JCL/COPYX999.JCL @@ -0,0 +1,15 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DELETE ECNTSUP.DOESTAX.CONV.FROMESSP.X999 + SET MAXCC=0 +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999, +// DISP=(NEW,CATLG,CATLG), +// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=8000), +// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.FROMESSP.X999', +// COPY) diff --git a/JCL/CopyFLAT.jcl b/JCL/CopyFLAT.jcl new file mode 100644 index 0000000..7236b7a --- /dev/null +++ b/JCL/CopyFLAT.jcl @@ -0,0 +1,10 @@ +//TEST0200 JOB (INNOVA,DEV,TEAM),NEERAJ,CLASS=S,MSGCLASS=X +//* COPY DATA TO VSAM FILE +//STEP017 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.PROD.R414.EXCL.RPT4, +// DISP=(NEW,CATLG,CATLG), +// DCB=(LRECL=133,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.PROD.R414.EXCL.RPT4', +// COPY) \ No newline at end of file diff --git a/JCL/DESBD427.jcl b/JCL/DESBD427.jcl index cf59a7a..44f2416 100644 --- a/JCL/DESBD427.jcl +++ b/JCL/DESBD427.jcl @@ -61,7 +61,11 @@ //*TSFX144 DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20181,DISP=SHR 00331006 //* 00340000 //*TSFX146 DD DSN=ECNTSUP.DOESTAX.CONV.TAXWEB.ESSPX146,DISP=SHR 00350013 -//DTSFX146 DD DSN=DOESTAX.PROD.WAGE.NAME.EXP,DISP=SHR 00351013 +//DTSFX146 DD DSN=DOESTAX.PROD.WAGE.NAME.EXP, +//* DISP=SHR 00351013 +// DISP=(NEW,CATLG,DELETE), 00050206 +// UNIT=SYSDA,SPACE=(CYL,(20,15),RLSE), 00050306 +// DCB=(RECFM=LSEQ,LRECL=76,BLKSIZE=7600) //* 00360000 //********************************************************************* 00370000 //*** COPY ESSP DAILY WAGES TO ARCHIVE BACKUP FILE. 00390007 diff --git a/JCL/DTSBE405.jcl b/JCL/DTSBE405.jcl index f185c7e..2449989 100644 --- a/JCL/DTSBE405.jcl +++ b/JCL/DTSBE405.jcl @@ -15,7 +15,7 @@ //**** //PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB -//* +//* RAINCODE TESTED 08/30/25 ZL1 //********************************************************************* //STEP0100 EXEC DTSUEXT, BD400 PERIODIC EXTRACT // RUNTYPE='QD', diff --git a/JCL/DTSBX215.jcl b/JCL/DTSBX215.jcl index 3d43027..8fd70a1 100644 --- a/JCL/DTSBX215.jcl +++ b/JCL/DTSBX215.jcl @@ -12,9 +12,11 @@ //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //* -//* 00070000 +//* RAINCODE TESTED 08/30/25 ZL1 +//* 00070000 //STEP0200 EXEC DTSBX215 -//* 00014000 +//* +// 00014000 //***************************************** //STEP0210 EXEC PGM=FTP, // COND=(0,LT) diff --git a/JCL/DTSBX216.jcl b/JCL/DTSBX216.jcl new file mode 100644 index 0000000..e27210a --- /dev/null +++ b/JCL/DTSBX216.jcl @@ -0,0 +1,42 @@ +//DTSRQ202 JOB (UI,4300,3400,T),BY202,CLASS=A,MSGCLASS=X, 00000010 +// NOTIFY=ECNTZL1, +// USER=#DOADTS, +//*** TYPRUN=SCAN, +// REGION=0M +//* +//****************************************************************** +//* +//* JOB : EMAIL ICESA REPORTS AND INITILIZE ALL EXTERNAL INPUT +//* FILES USED BY DUTAS ZL1 +//* +//* 10/08/14 ADD STEP TO DELETE AND CREATE NEW FILES FOR ESSP INPUT +//* TO DUTAS INCLUDING BTC FILES CREATED BY JOB DTSBX420 +//* ZL1 +//* +//* 01/04/15 ADD STEP TO DELETE AND CREATE NEW FILES FOR ESSP INPUT +//* TO DUTAS INCLUDING BTC FILES CREATED BY JOB DTSBX429 +//* ZL1 +//* +//* 02/23/15 ADD STEPS TO DELETE AND CREATE NEW FILES FOR ESSP ACH +//* PAYMENTS AND RETURNS FROM WELLS FARGO. +//* ZL1 +//* +//* 03/30/15 ADD STEPS TO DELETE AND CREATE NEW FILES FOR TAXWEB +//* TO CHECK FOR DUPLICATE PAYMENTS +//* ZL1 +//* 12/23/16 ADD STEP TO DELETE JOB DTSPACHD FTP LOG FILE +//* +//* 07/25/17 ADD STEP TO DELETE/CREATE NEW W4 WAGE FILE ZL1 +//* 09/26/25 TESTING RAINCODE ZL1 +//****************************************************************** +// SET EXTNODE='CONV' +// SET MSTNODE='PROD' +// SET LVLNODE='PROD' +//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB +//*** +//LOADLIBS INCLUDE MEMBER=DTSIJLIB +//* +//********************************************************************* +//STEP0100 EXEC DTSIX415 CREDIT MEMO PRINT +//* +//* diff --git a/JCL/DTSBX305.jcl b/JCL/DTSBX305.jcl index eb6dbd4..9c73e81 100644 --- a/JCL/DTSBX305.jcl +++ b/JCL/DTSBX305.jcl @@ -55,7 +55,7 @@ //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR //OUTDD01 DD DSN=DOESTAX.PROD.DIFSRFND.X305IMP(+1), -// DISP=(,CATLG,DELETE), +// DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA,SPACE=(CYL,(15,5),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=109,BLKSIZE=5450) //SYSIN DD * @@ -71,13 +71,16 @@ //STEP0075 EXEC PGM=SORT SORT FTP RECORDS //SYSOUT DD SYSOUT=* //SORTIN DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR -//SORTOUT DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR +//SORTOUT DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP.SORTED,DISP=SHR +//** DISP=(,CATLG,DELETE), +//** UNIT=SYSDA,SPACE=(CYL,(15,5),RLSE), +//** DCB=(SYS3.MODEL,RECFM=FB,LRECL=109,BLKSIZE=5450) //SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSX305),DISP=SHR //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //********************************************************************* -//STEP0100 EXEC DTSUTVSM, -// BKUPGEN='(+1)' +//*STEP0100 EXEC DTSUTVSM, +//* BKUPGEN='(+1)' //***** //STEP0200 EXEC DTSBX305 //** 00001700 diff --git a/JCL/DTSBX403.jcl b/JCL/DTSBX403.jcl index 3b22dac..9e52fc2 100644 --- a/JCL/DTSBX403.jcl +++ b/JCL/DTSBX403.jcl @@ -1,7 +1,7 @@ //DTSBX403 JOB (UI,4300,3400,T),SC,CLASS=A,MSGLEVEL=(1,1), JOB10082 // USER=#DOADTS, // MSGCLASS=X,NOTIFY=EUSC01K,REGION=4096K -//* +//*-------------- RAINCODE TESTED 08/30/25 ZL1 //*************************************************** //* TO EXTRACT 403/405 RECORDS, UNPACK AND WRITE TO OUTPUT FILE. //*************************************************** diff --git a/JCL/DTSBX405.jcl b/JCL/DTSBX405.jcl index 6a9f6b6..18c8012 100644 --- a/JCL/DTSBX405.jcl +++ b/JCL/DTSBX405.jcl @@ -16,7 +16,7 @@ //PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //*LOADLIBS INCLUDE MEMBER=DTSIPJLB -//* +//* RAINCODE TESTED 08/30/25 ZL1 //****************************************************************** //STEP0100 EXEC PGM=DTSBX403, // COND=(0,LT), @@ -26,7 +26,7 @@ //SYSABEND DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //* -//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//*DTSFMSTR INCLUDE MEMBER=DTSIMSTR //* //DTSFVRI1 DD DSN=DOESTAX.PROD.PER.RPT(+0), // DISP=SHR diff --git a/JCL/DTSBX427.jcl b/JCL/DTSBX427.jcl index 780242a..acf5e21 100644 --- a/JCL/DTSBX427.jcl +++ b/JCL/DTSBX427.jcl @@ -35,7 +35,7 @@ //STEP0200 EXEC DTSRSESP //*** //* REPORT GENERATION -//STEP0300 EXEC DTSRQRPT +//*STEP0300 EXEC DTSRQRPT //STEP0100.RPT140R1 DD HOLD=YES //STEP0100.RPT140R2 DD HOLD=YES //STEP0100.RPT907R1 DD HOLD=YES diff --git a/JCL/DTSBX430.jcl b/JCL/DTSBX430.jcl index d5e7994..00132a5 100644 --- a/JCL/DTSBX430.jcl +++ b/JCL/DTSBX430.jcl @@ -39,17 +39,25 @@ //***** REPORT WILL BE REPORTED ON THE PENDING FILES WHEN PROCESSED 00001700 //* IT REBUILDS THE OUTPUT BTC AND WAGE FILE EACH TIME IT RUNS. 00001700 //** 00001700 -//************************************* 01/19/17 ZL1 +//*****************************TESTING RC 09/06/25 ZL1 //STEP0100 EXEC PGM=SORT,REGION=1024K //SORT.SYSPRINT DD SYSOUT=* //SORT.STATOUT DD SYSOUT=* //SORT.SYSDBOUT DD SYSOUT=* //SORT.SYSUDUMP DD SYSOUT=* //SORT.SYSOUT DD SYSOUT=* -//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR +//*SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR //SORTIN DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR -// DD DSN=DOESTAX.DEVL.FIX.REPORTS,DISP=SHR +//* DD DSN=DOESTAX.DEVL.FIX.REPORTS,DISP=SHR +//* DISP=(NEW,CATLG,DELETE), 00006000 +//* UNIT=SYSDA, 00007000 +//* SPACE=(8192,(100,200),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.DORGX140,DISP=SHR +//* DISP=(NEW,CATLG,DELETE), 00006000 +//* UNIT=SYSDA, 00007000 +//* SPACE=(8192,(100,200),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) //SYSIN DD * @@ -66,8 +74,16 @@ //SORT.SYSOUT DD SYSOUT=* //*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR //SORTIN DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR -// DD DSN=DOESTAX.DEVL.FIX.WAGES,DISP=SHR +//* DD DSN=DOESTAX.DEVL.FIX.WAGES,DISP=SHR +//* DISP=(NEW,CATLG,DELETE), 00006000 +//* UNIT=SYSDA, 00007000 +//* SPACE=(8192,(100,200),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.DORGX144,DISP=SHR +//* DISP=(NEW,CATLG,DELETE), 00006000 +//* UNIT=SYSDA, 00007000 +//* SPACE=(8192,(100,200),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) //SYSIN DD * diff --git a/JCL/DTSBX450.jcl b/JCL/DTSBX450.jcl index 5ce4ea1..b2e5e59 100644 --- a/JCL/DTSBX450.jcl +++ b/JCL/DTSBX450.jcl @@ -101,8 +101,9 @@ END //* //* -//*TEP0200 EXEC DTSRP451 / REGULAR +//*STEP0200 EXEC DTSRP451 / REGULAR //* -//*TEP0200 EXEC DTSSN451 / X147 PROCESS +//*STEP0200 EXEC DTSSN451 / X147 PROCESS //* //** 00001700 +// \ No newline at end of file diff --git a/JCL/DTSBX451.jcl b/JCL/DTSBX451.jcl index 45390ba..c966f5d 100644 --- a/JCL/DTSBX451.jcl +++ b/JCL/DTSBX451.jcl @@ -6,7 +6,7 @@ //* 00001700 // SET LVLNODE='CONV' // SET MSTNODE='PROD' -// SET PRGNODE='CONV' +// SET PRGNODE='PROD' // SET IMPNODE='CONV' // SET LVDHOLD='YES' 00001700 // SET EXTNODE='CONV' 00001700 @@ -62,8 +62,9 @@ // 'SUBJECT: FAILED AMENDED REPORTS', // 'FILENAME:ESSP_X451_FAILED.TXT'), // MAILFROM=DUTAS@DC.GOV -//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PEND.TXT(+1),DISP=SHR -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PEND.TXT(+1),DISP=SHR, +// CODEPAGE=1252,AUTOENCODE=YES +//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //SYSUDUMP DD SYSOUT=(*,,DUMP) //* @@ -81,8 +82,9 @@ // 'SUBJECT: DUTAS DAILY AMENDED REPORTS', // 'FILENAME:ESSP_X451_PASSED.TXT'), // MAILFROM=DUTAS@DC.GOV -//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PAID.TXT(+1),DISP=SHR -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PAID.TXT(+1),DISP=SHR, +// CODEPAGE=1252,AUTOENCODE=YES +//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //SYSUDUMP DD SYSOUT=(*,,DUMP) //** 00001700 diff --git a/JCL/DTSBX479.jcl b/JCL/DTSBX479.jcl index 9e17ad9..fe2004e 100644 --- a/JCL/DTSBX479.jcl +++ b/JCL/DTSBX479.jcl @@ -71,6 +71,6 @@ //OUTOUT DD SYSOUT=* //SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 //SYSGET DD *,DCB=BLKSIZE=80 -//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(UIBCHGOB),DISP=SHR +//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBCHGOB),DISP=SHR // //******************************************************************* diff --git a/JCL/DTSBX500.jcl b/JCL/DTSBX500.jcl index 3cbc0a3..adea33e 100644 --- a/JCL/DTSBX500.jcl +++ b/JCL/DTSBX500.jcl @@ -23,7 +23,7 @@ //DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //* -//DTSFNAME DD DSN=DOESTAX.DEVL.VSAM.WAGE.NAME,DISP=SHR, +//DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGE.NAME,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSFWGH DD DSN=DOESTAX.PROD.VSAM.WGH,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') diff --git a/JCL/DTSBX552.jcl b/JCL/DTSBX552.jcl index 3c12522..c46d5b3 100644 --- a/JCL/DTSBX552.jcl +++ b/JCL/DTSBX552.jcl @@ -32,8 +32,7 @@ //* SPACE=(30720,(2000,4000),RLSE), 00211048 // SPACE=(CYL,(20,50),RLSE), 00211149 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00212007 -//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR -//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00213007 +//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00213007 //* 00214007 //STEP0200 EXEC PGM=SORT, SORT TRANSACTIONS 00216009 // COND=(0,LT) 00217009 @@ -50,7 +49,7 @@ //* SPACE=(30720,(2000,4000),RLSE), 00330048 // SPACE=(CYL,(50,50),RLSE), 00331048 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340021 -//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00350009 +//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00350009 //* 00360009 //* 00370041 //STEP0150 EXEC PGM=SORT, SORT TRANSACTIONS 00380041 @@ -67,7 +66,7 @@ // UNIT=SYSDA, 00490041 // SPACE=(30720,(2000,4000),RLSE), 00500041 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00510041 -//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00520041 +//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00520041 //* 00530041 //************************************************************** 01210000 //* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000 diff --git a/JCL/DTSBX553.jcl b/JCL/DTSBX553.jcl index 8b6940a..432bac5 100644 --- a/JCL/DTSBX553.jcl +++ b/JCL/DTSBX553.jcl @@ -31,7 +31,7 @@ // UNIT=SYSDA, 00210000 // SPACE=(30720,(2000,2000),RLSE), 00211000 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00212000 -//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00213003 +//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00213003 //* 00214000 //* 00215001 //STEP0200 EXEC PGM=SORT, SORT TRANSACTIONS 00216002 @@ -48,7 +48,7 @@ // UNIT=SYSDA, 00320000 // SPACE=(30720,(2000,2000),RLSE), 00330000 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340000 -//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00350003 +//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00350003 //* 00360000 //* 00370005 //STEP0300 EXEC PGM=SORT, SORT TRANSACTIONS 00380005 @@ -65,7 +65,7 @@ // UNIT=SYSDA, 00490005 // SPACE=(30720,(2000,2000),RLSE), 00500005 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00510005 -//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00520005 +//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00520005 //* 00530005 //************************************************************** 01210000 //* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000 diff --git a/JCL/DTSBX601.jcl b/JCL/DTSBX601.jcl index efbbac0..c610832 100644 --- a/JCL/DTSBX601.jcl +++ b/JCL/DTSBX601.jcl @@ -7,6 +7,7 @@ //*CREATE FILE FOR WEB TO VERIFY ADDRESS IS CORRECT BEFORE ISSUING //*REFUNDS //***************************************************** 06/22/17 ZL1*** +//* RAINCODE TESTED ON 08/30/25 ZL1 //* // SET MSTNODE='PROD' // SET LVLNODE='DEVL' diff --git a/JCL/DTSBX626.jcl b/JCL/DTSBX626.jcl index 9a23fd4..ce4a3b5 100644 --- a/JCL/DTSBX626.jcl +++ b/JCL/DTSBX626.jcl @@ -28,7 +28,7 @@ //* OUTPUT FILE: 00001700 //* 00001700 //* 00001700 -//* THIS JOB MAY BE RERUN. 00001700 +//* THIS JOB MAY BE RERUN. TESTING RC ZL1 09/06/25 00001700 //* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700 //** 00001700 //STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS @@ -108,7 +108,8 @@ //* //STEP0400 EXEC DTSBX626 //*********************************************************** -//* +// +// // IF (STEP0400.STEP0450.RC EQ 0) THEN //STEP0500 EXEC PGM=IEBGENER,REGION=4M, // COND=(0,LT) @@ -122,7 +123,7 @@ // 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'), // MAILFROM=DUTAS@DC.GOV //SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //* // ELSE @@ -139,7 +140,7 @@ // 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'), // MAILFROM=DUTAS@DC.GOV //SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSUT2 DD SCODEPAGE=1252,AUTOENCODE=YES,YSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //* // ENDIF diff --git a/JCL/DTSBX629.jcl b/JCL/DTSBX629.jcl index 970b85c..6cb2165 100644 --- a/JCL/DTSBX629.jcl +++ b/JCL/DTSBX629.jcl @@ -22,7 +22,7 @@ // COND=(0,LT) 00100000 //SYSOUT DD SYSOUT=* 00110000 //* 00120000 -//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.WAGES(+0),DISP=SHR 00130010 +//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+0),DISP=SHR 00130010 // DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,DISP=SHR 00131013 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00140000 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00150000 @@ -34,7 +34,7 @@ // UNIT=SYSDA, 00210000 // SPACE=(30720,(2000,2000),RLSE), 00211000 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00212002 -//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX629),DISP=SHR 00213002 +//*SYSIN DD DSN=DOESTAX.&LVLNODE..USER.PARMLIB(DTSSX629),DISP=SHR 00213002 //SYSIN DD * 00213102 SORT FIELDS=(62,6,CH,A,86,5,CH,A) 00213202 SUM FIELDS=NONE 00213302 @@ -57,8 +57,7 @@ // UNIT=SYSDA, 00320000 // SPACE=(30720,(2000,2000),RLSE), 00330000 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340000 -//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSBX629),DISP=SHR -//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBX629),DISP=SHR 00350001 +//SYSIN DD DSN=DOESTAX.&LVLNODE..USER.PARMLIB(DTSBX629),DISP=SHR 00350001 //* 00360000 //************************************************************** 01210000 //* CREATE REPORT FOR STAFF TO REVIEW TDEC MISSING REPORTS. MISSING 01220012 @@ -73,10 +72,15 @@ //DTSFX140 DD DSN=&&TDECMISS,DISP=(OLD,PASS,DELETE) 01290202 //DTSFI144 DD DSN=&&TDECANN,DISP=(OLD,PASS,DELETE) 01291013 //DTSFO144 DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,DISP=SHR 01292013 -//RPT627R1 DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT,DISP=SHR 01307006 +//RPT627R1 DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT, +//* DISP=(NEW,CATLG,DELETE), 00300000 +// DISP=SHR, 00310000 +// UNIT=SYSDA, 00320000 +// SPACE=(30720,(2000,2000),RLSE), 00330000 +// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330) 01307006 //SYSOUT DD SYSOUT=* 01308000 -//* 01360006 -//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01361000 +//* +//EMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01361000 // REGION=4M 01362000 //SYSPRINT DD SYSOUT=* 01363000 //OUT1 OUTPUT DEST=U1003, 01364000 @@ -85,13 +89,13 @@ // 'CC:RAJINI.JUJJAVARAPU@DC.GOV', 01368010 // 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', 01368118 // 'CC:TIM.PERLOW@DC.GOV', 01369016 -// 'CC:ESAYAS.LEMMA@DC.GOV', 01369110 +//* 'CC:ESAYAS.LEMMA@DC.GOV', 01369110 // 'SUBJECT: TDEC-ESSP REPORTS SENT/RECEIVED', 01369212 // 'FILENAME:ESSP_TDEC_WAGES.TXT', 01369411 // 'FILEDESC: TDEC REPORTS RECEIVED FROM ESSP '), 01369515 // MAILFROM=DUTAS@DC.GOV 01369615 //SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT,DISP=SHR 01369706 -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01369800 +//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 01369800 //SYSIN DD DUMMY 01369900 //SYSUDUMP DD SYSOUT=(*,,DUMP) 01370000 //**********************************************************************01380000 diff --git a/JCL/DTSBX630.jcl b/JCL/DTSBX630.jcl index ea09de3..f9f5fd1 100644 --- a/JCL/DTSBX630.jcl +++ b/JCL/DTSBX630.jcl @@ -4,7 +4,7 @@ //** CROSS CHECK ESSP DAILY RECORD COUNT WITH FILES RECEIVED. 00051005 //** PROGRAM ABENDS IF COUNTS DONT MATCH 07/12/18 ZL1 00053005 //** 00054000 -//** 00055000 +//** RAINCODE TESTED 08/30/25 ZL1 00055000 // SET PRGNODE='DEVL' 00056000 // SET LVLNODE='CONV' 00056100 // SET MSTNODE='PROD' 00056200 @@ -28,8 +28,9 @@ //** 00160017 //OFILE DD DSN=DOESTAX.CONV.FROMESSP.BKPX999(+1), 00170017 // DISP=(NEW,CATLG,DELETE), 00180017 -// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE), 00190017 -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=80) 00200017 +// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE), +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=80) 00200017 //SYSPRINT DD SYSOUT=(*) 00210017 //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR 00220017 //* 00230017 @@ -54,9 +55,13 @@ //DTSFX147 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR 01295001 //DTSFX998 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR 01296002 //DTSFX999 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR 01297001 -//RPT630R1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR 01307001 +//RPT630R1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR, +//* DISP=(NEW,CATLG,DELETE), 00180017 +// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE), +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330) 01307001 //SYSOUT DD SYSOUT=* 01308000 -//* 01360000 +//* 01360000 //STEP0400 EXEC PGM=IEBGENER,COND=(0,LT), 01361010 // REGION=4M 01362000 //SYSPRINT DD SYSOUT=* 01363000 @@ -72,8 +77,11 @@ // 'FILENAME:ESSP_DOES_COUNT.TXT', 01369604 // 'FILEDESC: ESSP DAILY SUMMARY RECORD COUNTS TO DUTAS'), 01369721 // MAILFROM=DUTAS@DC.GOV 01369821 -//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR 01369904 -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01370004 +//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT, +// DISP=SHR, +//* CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330) +//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 01370004 //SYSIN DD DUMMY 01370104 //SYSUDUMP DD SYSOUT=(*,,DUMP) 01370204 //* 01371006 @@ -92,8 +100,11 @@ // 'FILENAME:ESSP_DOES_COUNT.TXT', 01379506 // 'FILEDESC: ESSP DAILY SUMMARY RECORD COUNTS TO DUTAS'), 01379620 // MAILFROM=DUTAS@DC.GOV 01379720 -//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR 01379806 -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01379906 +//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT, +// DISP=SHR, +//* CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330) +//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 01379906 //SYSIN DD DUMMY 01380006 //SYSUDUMP DD SYSOUT=(*,,DUMP) 01381006 //**********************************************************************01390004 diff --git a/JCL/DTSBXACH.jcl b/JCL/DTSBXACH.jcl index c4b328a..24ed36b 100644 --- a/JCL/DTSBXACH.jcl +++ b/JCL/DTSBXACH.jcl @@ -16,7 +16,7 @@ //PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCS.BATCH.LIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600 //** 00001700 -//* PROCESS ESSP ACH PAYMENTS FILES 00001700 +//* PROCESS ESSP ACH PAYMENTS FILES - testing RC ZL1 00001700 //* 00001700 //** 00001700 //** THIS JOB WILL PROCESS ESSP ACH PAYMENTS TO DUTAS 00001700 @@ -28,11 +28,11 @@ //***************************************************************** //** //STEP0200 EXEC DTSBXACH -//* +// //STEP0300 EXEC DTSRSESP //*** //* REPORT GENERATION -//STEP0300 EXEC DTSRERPT +//*STEP0300 EXEC DTSRERPT //STEP0100.RPT140R1 DD HOLD=YES //STEP0100.RPT140R2 DD HOLD=YES //STEP0100.RPT907R1 DD HOLD=YES diff --git a/JCL/DTSBXPFL.jcl b/JCL/DTSBXPFL.jcl index ef5c6d0..728c86e 100644 --- a/JCL/DTSBXPFL.jcl +++ b/JCL/DTSBXPFL.jcl @@ -29,7 +29,13 @@ //SYSPRINT DD SYSOUT=(*) //SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR // DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,DISP=SHR -//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459, +// DISP=SHR, +//* DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,10),RLSE), +//* CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792) //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) @@ -68,13 +74,13 @@ OMIT COND(24,9,CH,EQ,C'060726487') //* //******************************************************************* -//STEP0300 EXEC PGM=FTP,REGION=2M +//*STEP0300 EXEC PGM=FTP,REGION=2M //*YSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9) -//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9) -//SYSIN DD * -FWFRIENDLY TRUE -//SYSPRINT DD SYSOUT=*,HOLD=YES -//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR +//***SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9) +//*SYSIN DD * +//**FWFRIENDLY TRUE +//*SYSPRINT DD SYSOUT=*,HOLD=YES +//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR //* //******************************************************************* //STEP0400 EXEC PGM=IDCAMS @@ -84,7 +90,8 @@ FWFRIENDLY TRUE // DISP=(,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(CYL,(20,10),RLSE), -// DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=386,BLKSIZE=27792) //SYSIN DD * REPRO INFILE(INDD01) OUTFILE(OUTDD01) /* diff --git a/JCL/DTSBXREL.jcl b/JCL/DTSBXREL.jcl index 2576558..aea915d 100644 --- a/JCL/DTSBXREL.jcl +++ b/JCL/DTSBXREL.jcl @@ -17,7 +17,7 @@ //LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600 //** 00001700 //* PROCESS ESSP PENDING DATA FILES (REPORTS AND PAYMENTS) 00001700 -//* 00001700 +//* TESTING RC ZL1 00001700 //** 00001700 //** THIS JOB WILL PROCESS ESSP PENDING REPORT WAGES AND PAYMENTS 00001700 //** 1. REPORTS(X140) WILL GO TO PENDING FILE IF NO 00001700 @@ -40,13 +40,12 @@ //* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700 //** 00001700 //***************************************************************** -//** //STEP0200 EXEC DTSNXREL //* //STEP0200 EXEC DTSRSESP //*** //* REPORT GENERATION -//STEP0300 EXEC DTSRERPT +//*STEP0300 EXEC DTSRERPT //STEP0100.RPT140R1 DD HOLD=YES //STEP0100.RPT140R2 DD HOLD=YES //STEP0100.RPT907R1 DD HOLD=YES diff --git a/JCL/DTSCHGQ1.jcl b/JCL/DTSCHGQ1.jcl index 053ed98..e603c09 100644 --- a/JCL/DTSCHGQ1.jcl +++ b/JCL/DTSCHGQ1.jcl @@ -17,7 +17,7 @@ // SET CHGNODE='PROD' 00070017 // SET CHGMNBR='CHGM002' 00071004 // SET CHGMSSN='CHGM030' 00072014 -// SET QTRLY='QTR251' <<<<<<<<< CHANGE PARM <<<<<<<<<<<<<<< 00080038 +// SET QTRLY='QTR253' <<<<<<<<< CHANGE PARM <<<<<<<<<<<<<<< 00080038 // SET LDEST=U@PRT65 00090000 // SET LVDHOLD='YES' 00100027 // SET LHOLD='YES' 00101027 @@ -27,9 +27,9 @@ //**** 00150000 //* QUARTERLY CHARGE REPORTING PROCESS FOR SI EMPLOYERS ONLY 00160032 //**** 00480000 -//STEP0200 EXEC DTSUXCGP 00490000 -//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGQ1), 00491032 -// DISP=SHR 00500032 +//*STEP0200 EXEC DTSUXCGP 00490000 +//*STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGQ1), 00491032 +//* DISP=SHR 00500032 //**** 00504000 //STEP0300 EXEC DTSCHGQ1 00510031 //STEP0100.RPC110R1 DD DUMMY /* SI REPORTS PRODUCED IN Q2 00511030 diff --git a/JCL/DTSCHGQ2.jcl b/JCL/DTSCHGQ2.jcl index de167c0..8888fe7 100644 --- a/JCL/DTSCHGQ2.jcl +++ b/JCL/DTSCHGQ2.jcl @@ -19,7 +19,7 @@ // SET MSTNODE='PROD' 00070009 // SET CHGNODE='PROD' 00080000 // SET CHGMNBR='CHGM002' 00090000 -// SET QTRLY='QTR251' <<<<<<<<<<<< CHANGE PARM <<<<<<<<< 00091021 +// SET QTRLY='QTR253' <<<<<<<<<<<< CHANGE PARM <<<<<<<<< 00091021 // SET LDEST=U@PRT65 00092005 // SET LVDHOLD='YES' 00093014 // SET LHOLD='NO' 00094014 @@ -41,7 +41,10 @@ //SORTIN DD DSN=DOESTAX.CONV.SI.CHARGE.TXT, // DISP=SHR //* -//SORTOUT DD DSN=DOESTAX.CONV.SI.CHARGE.SORTED,DISP=SHR +//SORTOUT DD DSN=DOESTAX.CONV.SI.CHARGE.SORTED, +// DISP=(,CATLG,DELETE), +// SPACE=(8192,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=54,BLKSIZE=5400) //SYSIN DD * SORT FIELDS=COPY INCLUDE COND=(6,1,CH,EQ,C'0',OR, @@ -105,15 +108,16 @@ //OUT1 OUTPUT DEST=U1003, // USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', // 'TO:YINKA.OLAREWAJU-ALO@DC.GOV', -// 'TO:JOY.DIGGS@DC.GOV', +//* 'TO:JOY.DIGGS@DC.GOV', // 'TO:MARGARET.HERNANDEZ@DC.GOV', // 'TO:SRUJANI.CHANDRAGIRI@DC.GOV', // 'TO:RAJINI.JUJJAVARAPU@DC.GOV', // 'SUBJECT: SI QUARTERLY CHARGES REPORTS PRINTED', // 'FILENAME:SI_QTR_CHARGE.TXT'), // MAILFROM=DUTAS@DC.GOV -//SYSUT1 DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,DISP=SHR -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSUT1 DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,DISP=SHR, +// CODEPAGE=1252,AUTOENCODE=YES +//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //SYSUDUMP DD SYSOUT=(*,,DUMP) //** diff --git a/JCL/DTSCHGRT.jcl b/JCL/DTSCHGRT.jcl index a8899a9..85c8928 100644 --- a/JCL/DTSCHGRT.jcl +++ b/JCL/DTSCHGRT.jcl @@ -4,7 +4,7 @@ // NOTIFY=ECNTSUP,REGION=0M 00030099 //**** 00040000 //* BENEFIT CHARGE REPORTING PROCESS FOR RATED EMPLOYERS ONLY 00041099 -//**** 00041199 +//**** raincode tested 10/04/25 zl1 00041199 //**** JOB CAN RUN ANYTIME - NO MASTER FILES UPDATED 00041299 //**** 00042000 // SET PRGNODE='PROD' 00043099 @@ -14,21 +14,21 @@ // SET UINODE='PROD' 00047000 // SET CHGMNBR='CHGM002' 00048000 // SET CHGMSSN='CHGM030' 00049000 -// SET QTRLY='QTR251' 00050099 +// SET QTRLY='QTR253' 00050099 // SET LDEST='U@PRT155' 00070099 // SET LHOLD='YES' 00080099 // SET LVDHOLD='YES' 00081099 //***** 00090000 -//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB 00100000 +//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB 00100000 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00110000 //**** 00120000 //**** 00130000 //STEP0100 EXEC DTSUXCGR 00140099 //*TEP0300.CHGPARM DD DISP=SHR /* CHARGE PARM 00150099 //*TEP1400.BD220CHG DD DISP=SHR /* CHARGE REPORT FILE 00160099 -//STEP0300.EXTPARM DD * 00170065 -QTR, , ,YYYYYY,000000 00200099 -/* 00210000 +//*STEP0300.EXTPARM DD * 00170065 +//*QTR, , ,YYYYYY,000000 00200099 +//* 00210000 //*ANN, , ,YYYYYY,000000 00220099 //*QTR, , ,YYYYNY,000000 00230099 //*EMP,070106,063007,YNNNNN,154162 00240099 diff --git a/JCL/DTSDX145.jcl b/JCL/DTSDX145.jcl index c07aab7..0997971 100644 --- a/JCL/DTSDX145.jcl +++ b/JCL/DTSDX145.jcl @@ -16,7 +16,12 @@ //SORT.SYSUDUMP DD SYSOUT=* //SORT.SYSOUT DD SYSOUT=* //SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR -//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.ESSPX145,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.ESSPX145,DISP=SHR, +//* DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,10),RLSE), +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120) //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) //SYSIN DD * diff --git a/JCL/DTSDX216.jcl b/JCL/DTSDX216.jcl new file mode 100644 index 0000000..0997971 --- /dev/null +++ b/JCL/DTSDX216.jcl @@ -0,0 +1,30 @@ +//DTSDX145 JOB (UI,4300,3400,T),ZZZ,CLASS=A, +// USER=#DOADTS, +// NOTIFY=ECNTZL1, +// MSGCLASS=X,REGION=4M +//* 00001700 +//********************************************************************* +//******************************************************************** +//*** COPY ESSSP X145 FILE TO WEB X145 FILE FOR DUPLICATE CHECKING. +//** 02/09/16 ZL1 +//******************************************************************** +//**************************************************************** +//STEP0010 EXEC PGM=SORT,REGION=1024K +//SORT.SYSPRINT DD SYSOUT=* +//SORT.STATOUT DD SYSOUT=* +//SORT.SYSDBOUT DD SYSOUT=* +//SORT.SYSUDUMP DD SYSOUT=* +//SORT.SYSOUT DD SYSOUT=* +//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.ESSPX145,DISP=SHR, +//* DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,10),RLSE), +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120) +//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) +//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) +//SYSIN DD * + SORT FIELDS=(1,11,CH,A) + END +//******************************************************************** diff --git a/JCL/DTSFRAUD.jcl b/JCL/DTSFRAUD.jcl index 4fdc165..7d8e70b 100644 --- a/JCL/DTSFRAUD.jcl +++ b/JCL/DTSFRAUD.jcl @@ -17,7 +17,7 @@ //SYSABEND DD SYSOUT=* //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFX140 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR -// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD140.RELEASE,DISP=SHR +//* DD DSN=DOESTAX.CONV.FROMESSP.FRAUD140.RELEASE,DISP=SHR //DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1), // DISP=(,CATLG,DELETE), // SPACE=(8192,(100,200),RLSE), @@ -28,11 +28,11 @@ //* SPACE=(8192,(100,200),RLSE), //* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) //**** -//DTSFR140 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR +//DTSFR140 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR, //* DISP=(,CATLG,DELETE), //* SPACE=(8192,(100,200),RLSE), -//* CODEPAGE=1252,AUTOENCODE=YES, -//* DCB=(RECFM=LSEQ,LRECL=161,BLKSIZE=1610) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=160,BLKSIZE=1600) //* //STEP0200 EXEC PGM=DESBD474, // COND=(0,LT), @@ -41,9 +41,9 @@ //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //DTSFMSTR INCLUDE MEMBER=DTSIMSTR -//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR +//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),DISP=SHR //DTSFX144 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR -// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD144.RELEASE,DISP=SHR +//* DD DSN=DOESTAX.CONV.FROMESSP.FRAUD144.RELEASE,DISP=SHR //DTSFF144 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X144(+1), // DISP=(,CATLG,DELETE), // SPACE=(CYL,(100,50),RLSE), @@ -64,7 +64,7 @@ //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),DISP=SHR //DTSFX147 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR -// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD147.RELEASE,DISP=SHR +//* DD DSN=DOESTAX.CONV.FROMESSP.FRAUD147.RELEASE,DISP=SHR //DTSFF147 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X147(+1), // DISP=(,CATLG,DELETE), // SPACE=(8192,(100,200),RLSE), @@ -94,7 +94,7 @@ // 'FILENAME:DAILY_POTENTIAL_FRAUD.CSV'), // MAILFROM=DUTAS@DC.GOV //SYSUT1 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //SYSUDUMP DD SYSOUT=(*,,DUMP) //* diff --git a/JCL/DTSFRAUDZ.jcl b/JCL/DTSFRAUDZ.jcl new file mode 100644 index 0000000..0f69cda --- /dev/null +++ b/JCL/DTSFRAUDZ.jcl @@ -0,0 +1,151 @@ +//DTSFRAUD JOB (UI,4300,3400,T),RUNBZ480,CLASS=A,MSGCLASS=X, 00000010 +// USER=#DOADTS, +// NOTIFY=ECNTZL1 +//* +//* +// SET MSTNODE='PROD' +// SET LVLNODE='DEVL' +//* +//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600 +//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 +//* 00001700 +//STEP0100 EXEC PGM=DESBD473, // VERIFY EMP REGISTRTION DATE +// COND=(0,LT), +// REGION=0M +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//DTSFX140 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR +// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD140.RELEASE,DISP=SHR +//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1), +// DISP=(,CATLG,DELETE), +// SPACE=(8192,(100,200),RLSE), +// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +//**** +//DTSFP140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR +//DTSFR140 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR +//********************************************************************* +//STEP0200 EXEC PGM=DESBD474, // SELECT FRAUD WAGES FROM X144 +// COND=(0,LT), +// REGION=0M +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),DISP=SHR +//DTSFX144 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR +// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD144.RELEASE,DISP=SHR +//DTSFF144 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X144(+1), +// DISP=(,CATLG,DELETE), +// SPACE=(CYL,(100,50),RLSE), +// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +//**** +//DTSFP144 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR +//********************************************************************* +//STEP0300 EXEC PGM=DESBD475, // SELECT FRAUD WAGES FROM X147 +// COND=(0,LT), +// REGION=0M +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),DISP=SHR +//DTSFX147 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR +// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD147.RELEASE,DISP=SHR +//DTSFF147 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X147(+1), +// DISP=(,CATLG,DELETE), +// SPACE=(8192,(100,200),RLSE), +// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +//**** +//DTSFP147 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X147,DISP=SHR +//********************************************************************* +//EMAIL EXEC PGM=IEBGENER, +// COND=(0,LT), +// REGION=4M +//SYSPRINT DD SYSOUT=* +//OUT1 OUTPUT DEST=U1003, +// USERDATA=('TO:ROSALIND.HOLBROOK@DC.GOV', +// 'TO:YINKA.OLAREWAJU-ALO@DC.GOV', +// 'CC:MARGARET.HERNANDEZ@DC.GOV', +// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', +// 'CC:DIANA.COHEN@DC.GOV', +// 'CC:TUWANNA.EDWARDS@DC.GOV', +// 'CC:RAJINI.JUJJAVARAPU@DC.GOV', +// 'CC:ZARATH.LALPUTAN@DC.GOV', +// 'SUBJECT: DAILY ESSP POTENTIAL FRAUD EMPLOYERS ', +// 'FILEDESC:FRAUD ACCOUNTS', +// 'FILENAME:DAILY_POTENTIAL_FRAUD.CSV'), +// MAILFROM=DUTAS@DC.GOV +//SYSUT1 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR +//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSIN DD DUMMY +//SYSUDUMP DD SYSOUT=(*,,DUMP) +//* +//* +//STEP0100 EXEC PGM=IDCAMS, +// COND=(0,LT) +//SYSPRINT DD SYSOUT=* +//INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR +//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.BACKUP.X140(+1), +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,5),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR +//* +//STEP0200 EXEC PGM=IDCAMS, +// COND=(0,LT) +//SYSPRINT DD SYSOUT=* +//INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR +//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.BACKUP.X144(+1), +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(100,50),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR +//* +//STEP0300 EXEC PGM=IDCAMS, +// COND=(0,LT) +//SYSPRINT DD SYSOUT=* +//INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR +//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.BACKUP.X145(+1), +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,5),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR +//* +//STEP0400 EXEC PGM=IDCAMS, +// COND=(0,LT) +//SYSPRINT DD SYSOUT=* +//INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR +//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.BACKUP.X147(+1), +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,5),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR +//* +//STEP0500 EXEC PGM=IDCAMS, +// COND=(0,LT) +//SYSPRINT DD SYSOUT=* +//INDD01 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR +//OUTDD01 DD DSN=DOESTAX.CONV.PASSED.BACKUP.X140(+1), +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,5),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR +//* +//STEP0600 EXEC PGM=IDCAMS, +// COND=(0,LT) +//SYSPRINT DD SYSOUT=* +//INDD01 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR +//OUTDD01 DD DSN=DOESTAX.CONV.PASSED.BACKUP.X144(+1), +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(100,50),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR +//* diff --git a/JCL/DTSFTP147.jcl b/JCL/DTSFTP147.jcl new file mode 100644 index 0000000..27246d9 --- /dev/null +++ b/JCL/DTSFTP147.jcl @@ -0,0 +1,38 @@ +//DTSFTP147 JOB (UI,4300,3400,T),DAILY-EXTRACT,CLASS=S, 00010001 +// MSGCLASS=X, 00020000 +// USER=#DOADTS, 00021011 +// NOTIFY=ECNTZL1, 00030008 +// REGION=0M 00050000 +//**** 00060000 +//* FTP ANY FILES TO 147 +//* 00084001 +//* NO MASTER FILE UPDATES 00090000 +//* MODIFIED FOR RC 00100000 +//* CHANGED OUTBOUND FILES TO ASCII -RC HAS IT IN EBCDIC 09/25/25 ZL1 +//* 00110000 +//**** 00130000 +// SET LVLNODE='CONV' 00140000 +// SET MSTNODE='PROD' 00150000 +// SET RUNTYPE='0' 00150100 +//**** 00151000 +//**** +//STPFTP1 EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120' +//SYSPRINT DD SYSOUT=* +//OUTOUT DD SYSOUT=* +//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 +//SYSGET DD *,DCB=BLKSIZE=80 +//INPUT DD * +10.57.110.147 +dutasrc +Today728rc! +cd /Dutasrc/essp/outbound_essp +ascii +PUT 'ECNTSUP.DOESTAX.CONV.DOES.DAILY.MJRNACCT' + +ECNTSUP.DOESTAX.CONV.DOES.DAILY.MJRNACCT +PUT 'ECNTSUP.DOESTAX.CONV.DOES.DAILY.TAXPAYMT' + +ECNTSUP.DOESTAX.CONV.DOES.DAILY.TAXPAYMT +PUT 'ECNTSUP.DOESTAX.CONV.DOES.DAILY.CREDITS' + +ECNTSUP.DOESTAX.CONV.DOES.DAILY.CREDITS +QUIT +/* + diff --git a/JCL/DTSGACHD.jcl b/JCL/DTSGACHD.jcl index c0ca7a3..143361f 100644 --- a/JCL/DTSGACHD.jcl +++ b/JCL/DTSGACHD.jcl @@ -28,24 +28,24 @@ //*----------------------------------------------------- //* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS //*----------------------------------------------------- -//STEPWF EXEC PGM=FTP, +//*STEPWF EXEC PGM=FTP, //* PARM='-r TLS safetrans.wellsfargo.com' -// PARM='-Sftp=TRUE 10.57.110.160' -//ENVVAR DD * - CLIENT=sftp - SFTP_AUTH=3 +//* PARM='-Sftp=TRUE 10.57.110.160' +//*ENVVAR DD * +//* CLIENT=sftp +//* SFTP_AUTH=3 /* //*SFTPAUTH DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24) -//SFTPAUTH DD * - machine 10.57.110.160 user dutasrc pass Today728rc! +//*SFTPAUTH DD * +//* machine 10.57.110.160 user dutasrc pass Today728rc! /* //*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN) -//NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24) -//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT) -// DD * -FWFRIENDLY TRUE -//SYSPRINT DD SYSOUT=*,HOLD=YES -//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWFAD),DISP=SHR +//*NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24) +//*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT) +//* DD * +//*FWFRIENDLY TRUE +//*SYSPRINT DD SYSOUT=*,HOLD=YES +//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWFAD),DISP=SHR /* //******************************************************************** //*** COPY essp ach RETURNS to backup ach file. @@ -85,8 +85,10 @@ FWFRIENDLY TRUE // 'FILEDESC: ESSP ACH RETURNS FORM WELLS FARGO ', // 'FILENAME:ESSP_DUTAS_ACHRETURNS.TXT'), // MAILFROM=DUTAS@DC.GOV -//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X426ACHR(+1),DISP=SHR -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X426ACHR(+1),DISP=SHR, +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=134,BLKSIZE=1340) +//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //SYSUDUMP DD SYSOUT=(*,,DUMP) //**** diff --git a/JCL/DTSGACPY.jcl b/JCL/DTSGACPY.jcl new file mode 100644 index 0000000..f7a62b6 --- /dev/null +++ b/JCL/DTSGACPY.jcl @@ -0,0 +1,12 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X +/* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,DISP=SHR +//* DISP=(,CATLG,CATLG), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.ESSP.ACHDR.ARCHIVE.Z2671V00', +// COPY) +// + diff --git a/JCL/DTSGCHKS.jcl b/JCL/DTSGCHKS.jcl index 2c410ec..f1f2f21 100644 --- a/JCL/DTSGCHKS.jcl +++ b/JCL/DTSGCHKS.jcl @@ -8,13 +8,13 @@ //**** //*** REMOVED PAYMENT CHECK FILE FROM THIS JOB 040119 ZL1 //*** PAYMENTS ARE NOW MADE IN JOB BX530................ZL1 -//**** +//******** DUTAS PRODUCTION RAINCODE 10/21/25 ,,,,,,ZL1 //*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY. //**** //*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1. //******************************************************************** //**`**** CHANGE PARM QTR TO CURRENT QUARTER ******** -// SET CURRQTR='Q2018Q4' +// SET CURRQTR='Q20252Q2' // SET LVLNODE='CONV' // SET MSTNODE='PROD' // SET PRGNODE='CONV' @@ -39,7 +39,8 @@ //OUTDD01 DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+1), // DISP=(,CATLG,DELETE), // UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120) //SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR //********************************************************************* //******************************************************************** @@ -60,12 +61,13 @@ //* //*DECRYPT EXEC SECPDEC,COND=(0,LT) //*ECRYPT EXEC SECODEC,COND=(0,LT) -//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT) +//COPYCHKS EXEC PGM=IDCAMS,COND=(0,LT) //IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR //OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1), // DISP=(,CATLG,DELETE), // UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), -// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120) //SYSPRINT DD SYSOUT=(*) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //** @@ -81,7 +83,8 @@ //OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.SDAILY.CHKS(+1), // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), -// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120) //SYSPRINT DD SYSOUT=(*) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //** @@ -96,7 +99,8 @@ //* DISP=(NEW,CATLG,DELETE), // DISP=MOD, // UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), -// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120) //SYSPRINT DD SYSOUT=(*) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //** @@ -106,13 +110,14 @@ //** //OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS, //* DISP=(NEW,CATLG,DELETE), -//* DISP=MOD, +//* DISP=MOD, // DISP=SHR, // UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), -// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120) //SYSPRINT DD SYSOUT=(*) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR -//** +//* //******************************************************************** //**** DELETE TDEC ENCRYPTED CHECK FILE //******************************************************************** @@ -126,12 +131,12 @@ //*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR //***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDCHK),DISP=SHR //* -//STEP0200 EXEC DTSZXCHK +//STEP0200 EXEC DTSBXCHK //* -//STEP0300 EXEC DTSRSESP +//*STEP0300 EXEC DTSRSESP //*** //* REPORT GENERATION -//STEP0400 EXEC DTSRERPZ +//*STEP0400 EXEC DTSRERPT //STEP0100.RPT140R1 DD HOLD=YES //STEP0100.RPT140R2 DD HOLD=YES //STEP0100.RPT907R1 DD HOLD=YES diff --git a/JCL/DTSGPAYT.jcl b/JCL/DTSGPAYT.jcl index 1beefcc..15a1d6e 100644 --- a/JCL/DTSGPAYT.jcl +++ b/JCL/DTSGPAYT.jcl @@ -15,7 +15,7 @@ //*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1. //******************************************************************** //******** CHANGE QTR PARM TO CURRENT QTR ********** -// SET CURRQTR='Q2017Q4' +// SET CURRQTR='Q2025Q2' //* // SET LVLNODE='CONV' // SET MSTNODE='PROD' @@ -55,27 +55,30 @@ //SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR //********************************************************************* //* -//TDECFTP EXEC PGM=FTP,COND=(0,LT) -//SYSPRINT DD SYSOUT=* -//OUTOUT DD SYSOUT=* -//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 -//SYSGET DD *,DCB=BLKSIZE=80 +//*TDECFTP EXEC PGM=FTP,COND=(0,LT) +//*SYSPRINT DD SYSOUT=* +//*OUTOUT DD SYSOUT=* +//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 +//*SYSGET DD *,DCB=BLKSIZE=80 //**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDREPT),DISP=SHR //*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTEPT),DISP=SHR -//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGPAYT),DISP=SHR +//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGPAYT),DISP=SHR //***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDPT),DISP=SHR //* //******************************************************************** //**** DECRYPT TDEC PAYMENT FILE INTO DATAOUT //******************************************************************** //* -//DECRYPT EXEC SECPDEC,COND=(0,LT) +//*DECRYPT EXEC SECPDEC,COND=(0,LT) //*ECRYPT EXEC SECODEC,COND=(0,LT) -//DATAIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR -//DATAOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1), +//DECRYPT EXEC PGM=IDCAMS,COND=(0,LT) +//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR +//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1), // DISP=(,CATLG,DELETE), // UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSPRINT DD SYSOUT=(*) +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //* //******************************************************************** //*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE. @@ -116,21 +119,21 @@ //* DISP=(NEW,CATLG,DELETE), // DISP=SHR, // UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE), -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// DCB=(SYS3.MODEL,RECFM=LSEQ,LRECL=512,BLKSIZE=5120) //SYSPRINT DD SYSOUT=(*) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //** //******************************************************************** //**** DELETE TDEC ENCRYPTED PAYMENT FILE FROM TDEC SERVER //******************************************************************** -//TDECDEL EXEC PGM=FTP,COND=(0,LT) -//SYSPRINT DD SYSOUT=* -//OUTOUT DD SYSOUT=* -//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 -//SYSGET DD *,DCB=BLKSIZE=80 -//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRPAY),DISP=SHR +//*TDECDEL EXEC PGM=FTP,COND=(0,LT) +//*SYSPRINT DD SYSOUT=* +//*OUTOUT DD SYSOUT=* +//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 +//*SYSGET DD *,DCB=BLKSIZE=80 +//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRPAY),DISP=SHR //*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDEPAY),DISP=SHR -//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDPAYT),DISP=SHR +//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDPAYT),DISP=SHR //***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDPAY),DISP=SHR //* //** @@ -138,8 +141,8 @@ //* //STEP0200 EXEC DTSRSESP //*** -//* REPORT GENERATION -//STEP0300 EXEC DTSRQRPT +//* NEED TO FIX FOR PRODUCTION USE REPORT GENERATION +//*STEP0300 EXEC DTSRQRPT //STEP0100.RPT140R1 DD HOLD=YES //STEP0100.RPT140R2 DD HOLD=YES //STEP0100.RPT907R1 DD HOLD=YES diff --git a/JCL/DTSGSID0.jcl b/JCL/DTSGSID0.jcl index 934b3db..5d845c5 100644 --- a/JCL/DTSGSID0.jcl +++ b/JCL/DTSGSID0.jcl @@ -62,7 +62,7 @@ //OUTOUT DD SYSOUT=* //SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 //SYSGET DD *,DCB=BLKSIZE=80 -//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(UIBGTCHG),DISP=SHR +//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGTCHG),DISP=SHR //*NPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGUCHG),DISP=SHR //******************************************************************* //* diff --git a/JCL/DTSGSID2.jcl b/JCL/DTSGSID2.jcl index 850ecf0..988452d 100644 --- a/JCL/DTSGSID2.jcl +++ b/JCL/DTSGSID2.jcl @@ -9,7 +9,9 @@ //* 00001700 //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 -//** 00001700 +//** +//* RAINCODE TESTED 08/30/25 ZL1 +//* 00001700 //* EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS) FOR UIBS 00001700 //* FROM TAX MASTER FILES FOR BENEFITS APPLICATIONS 00001700 //* 00001700 @@ -42,7 +44,7 @@ //SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) //SYSIN DD * SORT FIELDS=(1,9,CH,A,44,5,CH,A,57,6,CH,A) - INCLUDE COND=(11,2,CH,EQ,C'W1') + INCLUDE COND=(11,2,CH,EQ,C'W2') //* //** 00001700 //STEP0250 EXEC PGM=SORT, @@ -110,13 +112,13 @@ //** PUT DUTAS DAILY UPDATES ON UAT SERVER FOR GSI TO PICKUP 00001700 //** 00001700 //** 00001700 -//STEP0200 EXEC PGM=FTP, -// COND=(0,LT) -//SYSPRINT DD SYSOUT=* -//OUTOUT DD SYSOUT=* -//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 -//SYSGET DD *,DCB=BLKSIZE=80 -//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(PUTGSI02),DISP=SHR +//*STEP0200 EXEC PGM=FTP, +//* COND=(0,LT) +//*SYSPRINT DD SYSOUT=* +//*OUTOUT DD SYSOUT=* +//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 +//*SYSGET DD *,DCB=BLKSIZE=80 +//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(PUTGSI02),DISP=SHR //* //STEP0100 EXEC PGM=DTSBX478, // COND=(0,LT), @@ -130,7 +132,8 @@ //* //DTSFW4 DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR //* -//DTSFUIBS DD DSN=DOESTAX.CONV.UIBS.WZFILE,DISP=SHR +//DTSFUIBS DD DSN=DOESTAX.CONV.UIBS.WZFILE, +// CODEPAGE=1252,AUTOENCODE=YES,DISP=SHR //* //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, @@ -150,7 +153,8 @@ // 'FILEDESC: DAILY WAGES COUNT FROM DUTAS ', // 'FILENAME:DAILY-DUTAS-WAGES.TXT'), // MAILFROM=DUTAS@DC.GOV -//SYSUT1 DD DSN=DOESTAX.CONV.UIBS.WZFILE,DISP=SHR -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSUT1 DD DSN=DOESTAX.CONV.UIBS.WZFILE, +// CODEPAGE=1252,AUTOENCODE=YES,DISP=SHR +//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //******************************************************************* diff --git a/JCL/DTSGWAGE.jcl b/JCL/DTSGWAGE.jcl index 210d5da..b5e6fba 100644 --- a/JCL/DTSGWAGE.jcl +++ b/JCL/DTSGWAGE.jcl @@ -8,7 +8,7 @@ //******************* SET QTR PARM TO CURRENT QTR //******************************************************************* //**** -// SET CURRQTR='Q2021Q2' +// SET CURRQTR='Q2025Q2' //**** //*** FILES COMING FROM TDEC SHOULD USE OUR (OCTO) PUBLIC KEY. //**** @@ -26,26 +26,26 @@ //**** //**** GET TDEC ENCRYPTED WAGE FILE (ONTIME AND DELINQUENT) 4 ESSP //******************************************************************** -//TDECFTP EXEC PGM=FTP,COND=(0,LT) -//SYSPRINT DD SYSOUT=* -//OUTOUT DD SYSOUT=* -//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 -//SYSGET DD *,DCB=BLKSIZE=80 +//*TDECFTP EXEC PGM=FTP,COND=(0,LT) +//*SYSPRINT DD SYSOUT=* +//*OUTOUT DD SYSOUT=* +//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 +//*SYSGET DD *,DCB=BLKSIZE=80 //**PUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDREON),DISP=SHR -//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWAGE),DISP=SHR +//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWAGE),DISP=SHR //**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDON),DISP=SHR //* //******************************************************************** //**** DECRYPT TDEC DELINQ FILE INTO TEXTOUT //******************************************************************** //* -//DECRYPT EXEC SECPDEC,COND=(0,LT) +//*DECRYPT EXEC SECPDEC,COND=(0,LT) //*ECRYPT EXEC SECODEC,COND=(0,LT) -//DATAIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR -//DATAOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1), -// DISP=(,CATLG,DELETE), -// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +//*DATAIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR +//*DATAOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1), +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), +//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) //* //******************************************************************** //*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE. @@ -53,12 +53,13 @@ //******************************************************************** //** //COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT) -//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR +//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR //** -//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.WAGES(+1), +//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1), // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120) //SYSPRINT DD SYSOUT=(*) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //** @@ -69,13 +70,14 @@ //******************************************************************** //** //COPYESSP EXEC PGM=IDCAMS,COND=(0,LT) -//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR +//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR //** -//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.TXT,DISP=SHR +//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.TXT, //* DISP=(NEW,CATLG,DELETE), -//* DISP=SHR, -//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), -//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// DISP=SHR, +// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120) //SYSPRINT DD SYSOUT=(*) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //** @@ -89,13 +91,14 @@ //IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR //** //OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.&CURRQTR., -//** DISP=(NEW,CATLG,DELETE), +//* DISP=(NEW,CATLG,DELETE), // DISP=MOD, // UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE), -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120) //SYSPRINT DD SYSOUT=(*) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR -//** +// //******************************************************************** //**** DELETE TDEC ENCRYPTED WAGE FILE FROM TDEC SERVER //******************************************************************** @@ -108,14 +111,14 @@ //*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDEWAG),DISP=SHR //INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDWAGE),DISP=SHR //***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDWAG),DISP=SHR -//* +// //ESSPMAIL EXEC PGM=IEBGENER,COND=(8,NE,TDECDEL), // REGION=4M //SYSPRINT DD SYSOUT=* //OUT1 OUTPUT DEST=U1003, //* USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM', // USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', -// 'TO:ARAVIND.VITTA@SAGITEC.COM', +//* 'TO:ARAVIND.VITTA@SAGITEC.COM', // 'TO:PRABHU.TEGUR@SAGITEC.COM', // 'TO:RAJINI.JUJJAVARAPU@DC.GOV', // 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', @@ -125,7 +128,7 @@ // 'FILENAME:NOTDEC_WAGES.TXT'), // MAILFROM=DUTAS@DC.GOV //SYSUT1 DD DSN=DOESTAX.CONV.TDEC.ESSP.NOWAGES.TXT,DISP=SHR -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //SYSUDUMP DD SYSOUT=(*,,DUMP) //* @@ -135,7 +138,7 @@ //OUT1 OUTPUT DEST=U1003, // USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM', //* 'TO:SIVA.SAMBASIVAM@SAGITEC.COM', -// 'TO:ARAVIND.VITTA@SAGITEC.COM', +//* 'TO:ARAVIND.VITTA@SAGITEC.COM', // 'TO:PRABHU.TEGUR@SAGITEC.COM', // 'TO:RAJINI.JUJJAVARAPU@DC.GOV', // 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', @@ -145,7 +148,7 @@ // 'FILENAME:TDEC_WAGES.TXT'), // MAILFROM=DUTAS@DC.GOV //SYSUT1 DD DSN=DOESTAX.CONV.TDEC.ESSP.WAGES.TXT,DISP=SHR -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //SYSUDUMP DD SYSOUT=(*,,DUMP) // diff --git a/JCL/DTSGZCHD.jcl b/JCL/DTSGZCHD.jcl index e73cc3a..1ec1728 100644 --- a/JCL/DTSGZCHD.jcl +++ b/JCL/DTSGZCHD.jcl @@ -9,7 +9,7 @@ // SET PRGNODE='CONV' // SET LVDHOLD='YES' //* -//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB +//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCS.BATCH.LIB //LOADLIBS INCLUDE MEMBER=DTSIELIB //** //**** GET ESSP ACH PAYMENTS FROM WELLS FARGO USING FTPS ON THE diff --git a/JCL/DTSMIN01.jcl b/JCL/DTSMIN01.jcl index 659d2cc..630267d 100644 --- a/JCL/DTSMIN01.jcl +++ b/JCL/DTSMIN01.jcl @@ -8,7 +8,9 @@ //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //*LOADLIBS INCLUDE MEMBER=USERJLIB 00001600 -//* 00001700 +//* +//* RAINCODE TESTED 08/30/25 ZL1 +//* 00001700 //STEP0100 EXEC PGM=DTSBS411, GENERAL SCAN // COND=(0,LT), // REGION=4096K diff --git a/JCL/DTSMIN02.jcl b/JCL/DTSMIN02.jcl index 031edee..14d0564 100644 --- a/JCL/DTSMIN02.jcl +++ b/JCL/DTSMIN02.jcl @@ -4,7 +4,9 @@ //* 00001700 // SET MSTNODE='PROD' 00001700 // SET LVLNODE='CONV' 00001700 -//* 00001700 +//* +//* RAINCODE TESTED 08/30/25 ZL1 +//* 00001700 //PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //* 00001700 @@ -35,36 +37,41 @@ //* DISP=(NEW,CATLG,DELETE), 00006000 // DISP=SHR, 00006000 // UNIT=SYSDA, 00007000 -// SPACE=(29000,(1000,1000),RLSE), 00008000 -// DCB=(RECFM=FB,LRECL=29,BLKSIZE=29000) 00009000 +// SPACE=(29000,(1000,1000),RLSE), +// CODEPAGE=1252,AUTOENCODE=YES, 00008000 +// DCB=(RECFM=LSEQ,LRECL=29,BLKSIZE=29000) 00009000 //* 00001700 //EXPBX104 DD DSN=DOESTAX.CONV.ESSP.C104, 00005000 //* DISP=(NEW,CATLG,DELETE), 00006000 // DISP=SHR, 00006000 // UNIT=SYSDA, 00007000 -// SPACE=(21600,(1000,1000),RLSE), 00008000 -// DCB=(RECFM=FB,LRECL=119,BLKSIZE=23800) 00009000 +// SPACE=(21600,(1000,1000),RLSE), +// CODEPAGE=1252,AUTOENCODE=YES, 00008000 +// DCB=(RECFM=LSEQ,LRECL=119,BLKSIZE=23800) 00009000 //* 00001700 //EXPBX106 DD DSN=DOESTAX.CONV.ESSP.C106, 00005000 //* DISP=(NEW,CATLG,DELETE), 00006000 // DISP=SHR, 00006000 // UNIT=SYSDA, 00007000 -// SPACE=(26500,(1000,1000),RLSE), 00008000 -// DCB=(RECFM=FB,LRECL=53,BLKSIZE=26500) 00009000 +// SPACE=(26500,(1000,1000),RLSE), +// CODEPAGE=1252,AUTOENCODE=YES, 00008000 +// DCB=(RECFM=LSEQ,LRECL=53,BLKSIZE=26500) 00009000 //* 00001700 //EXPBX108 DD DSN=DOESTAX.CONV.ESSP.C108, 00005000 //* DISP=(NEW,CATLG,DELETE), 00006000 // DISP=SHR, 00006000 // UNIT=SYSDA, 00007000 -// SPACE=(24000,(1000,1000),RLSE), 00008000 -// DCB=(RECFM=FB,LRECL=24,BLKSIZE=24000) 00009000 +// SPACE=(24000,(1000,1000),RLSE), +// CODEPAGE=1252,AUTOENCODE=YES, 00008000 +// DCB=(RECFM=LSEQ,LRECL=24,BLKSIZE=24000) 00009000 //* 00001700 //EXPBX110 DD DSN=DOESTAX.CONV.ESSP.C110, 00005000 -//* DISP=(NEW,CATLG,DELETE), 00006000 +//* DISP=(NEW,CATLG,DELETE), 00006000 // DISP=SHR, 00006000 // UNIT=SYSDA, 00007000 -// SPACE=(24900,(1000,1000),RLSE), 00008000 -// DCB=(RECFM=FB,LRECL=249,BLKSIZE=24900) 00009000 +// SPACE=(24900,(1000,1000),RLSE), +// CODEPAGE=1252,AUTOENCODE=YES, 00008000 +// DCB=(RECFM=LSEQ,LRECL=249,BLKSIZE=24900) 00009000 //* 00001700 //EXPBX120 DD DUMMY 00005000 //* 00001700 @@ -96,7 +103,8 @@ // DISP=SHR,UNIT=SYSDA, 00011*18 //* DISP=(NEW,CATLG,DELETE),UNIT=SYSDA, 00011*18 // SPACE=(CYL,(100,25),RLSE), -// DCB=(RECFM=FB,LRECL=477,BLKSIZE=477) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=477,BLKSIZE=477) //* 00011*18 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, @@ -173,7 +181,7 @@ //***************************************************************** //* EMAIL STEP //***************************************************************** -//IF1 IF STEP0400.RC=0 THEN +//EMAIL IF STEP0400.RC=0 THEN //* //STEP0500 EXEC PGM=IEBGENER,REGION=4M //SYSPRINT DD SYSOUT=* @@ -189,8 +197,10 @@ // 'CC:RAJINI.JUJJAVARAPU@DC.GOV', // 'SUBJECT: DAILY MINI CONVERSION REGISTRATION(S) READY '), // MAILFROM=DUTAS@DC.GOV -//SYSUT1 DD DSN=DOESTAX.CONV.SENTRPT.TXT,DISP=SHR -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSUT1 DD DSN=DOESTAX.CONV.SENTRPT.TXT,DISP=SHR, +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=800) +//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //SYSUDUMP DD SYSOUT=(*,,DUMP) // ELSE @@ -208,8 +218,10 @@ // 'CC:RAJINI.JUJJAVARAPU@DC.GOV', // 'SUBJECT: NO DAILY MINI CONV REGISTRATION TODAY...'), // MAILFROM=DUTAS@DC.GOV -//SYSUT1 DD DSN=DOESTAX.CONV.MINICONV.TXT1,DISP=SHR -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSUT1 DD DSN=DOESTAX.CONV.MINICONV.TXT1,DISP=SHR, +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=800) +//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //SYSUDUMP DD SYSOUT=(*,,DUMP) // ENDIF @@ -228,8 +240,10 @@ // 'CC:RAJINI.JUJJAVARAPU@DC.GOV', // 'SUBJECT: ACCOUNTS PENDING FOR MINI CONV IN DUTAS.'), // MAILFROM=DUTAS@DC.GOV -//SYSUT1 DD DSN=DOESTAX.CONV.CURRRPT.TXT,DISP=SHR -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSUT1 DD DSN=DOESTAX.CONV.CURRRPT.TXT,DISP=SHR, +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=800) +//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //SYSUDUMP DD SYSOUT=(*,,DUMP) //* diff --git a/JCL/DTSPDAY1.jcl b/JCL/DTSPDAY1.jcl index 05e0640..9c7781d 100644 --- a/JCL/DTSPDAY1.jcl +++ b/JCL/DTSPDAY1.jcl @@ -20,7 +20,7 @@ // SET BYPASS2='000000' /* BYPASS EMPLOYER 2 // SET BYPASS3='000000' /* BYPASS EMPLOYER 3 //* -//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB +//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //**** //* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP @@ -74,7 +74,7 @@ //**** //**** //STEP0075 EXEC DTSBX415 -// /* GET EMLOYER DATA FRROM WEB +//* //****0100 EXEC DTSBX420 (JOB RUNS AFTER RQ325 AND PASSES BTC FILES) //**** //* /* MERGE WAGE.BTC TO BTC @@ -82,10 +82,13 @@ //* //*/// REMOVE STEP EMT JOB CANCLLED /* SPC BACKUP OF OLA FOR EMT //******** EXEC DESOLABK -//* /* STD DAILY PROC +//* /* STD DAILY RAINCODE BACKUP //* /* STD DAILY BEFORE DAILY BATCH //*STEP0175 EXEC DTSUTVSM, //* BKUPGEN='(+1)' +//STEP0100 EXEC DTSUTVSM, 00002102 +// BKUPGEN='(+1)',freq='DAILY' +//** //* /* GET CREDITS/DEBITS/REFUNDS FROM WEB //STEP0200 EXEC DTSDUPDT, //* LHOLD='NO', @@ -132,7 +135,9 @@ //** //STEP0300 EXEC DTSACHD1 /* ARECHIVE DAILY REPORTS //* -//STEP0400 EXEC DTSUTVSM, -// BKUPGEN='(+2)' +//*STEP0400 EXEC DTSUTVSM, +//* BKUPGEN='(+2)' +//*STEP0100 EXEC DTSUTVSM, 00002102 +//* BKUPGEN='(+1)',freq='DAILY' //** //* diff --git a/JCL/DTSPDAY7.jcl b/JCL/DTSPDAY7.jcl index df51b5f..ee321e3 100644 --- a/JCL/DTSPDAY7.jcl +++ b/JCL/DTSPDAY7.jcl @@ -9,7 +9,7 @@ // SET LVLNODE='PROD' // SET LVDHOLD='YES' //* -//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB +//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //**** //* 09/30/99 - JHP diff --git a/JCL/DTSPMON1.jcl b/JCL/DTSPMON1.jcl index 736d353..0714c9e 100644 --- a/JCL/DTSPMON1.jcl +++ b/JCL/DTSPMON1.jcl @@ -13,7 +13,7 @@ //**** //**** 6/29/09 ADDED PROC (DTSACHM1) TO ARCHIVE REPORTS 405/414 ZL1 //**** -//**** +//**** TWATINF RC ZL1 //**** 11/09/12 CHANGED REPORT PROC FROM DTSRMEND TO DTSRMTR ZL1 //**** FOR TRMS REPORTS //**** @@ -26,8 +26,8 @@ //LOADLIBS INCLUDE MEMBER=DTSIJLIB //* //* SPEC BACKUP BEFORE MONTHLY BATCH -//STEP0100 EXEC DTSUTVMO, -// BKUPGEN='(+1)' +//*STEP0100 EXEC DTSUTVMO, +//* BKUPGEN='(+1)' //* //STEP0200 EXEC DTSUEXT, MONTHLY PERIODIC EXTRACT // RUNTYPE='ME', @@ -109,8 +109,8 @@ //********************************************************************* //* //* STD BACKUP AFTER MONTHLY BATCH -//STEP0500 EXEC DTSUTVSM, -// BKUPGEN='(+1)' +//*STEP0500 EXEC DTSUTVSM, +//* BKUPGEN='(+1)' //**//* THIS RESTORE IS DONE AT MONTH-END TO //**//* REORG THE MAIN VSAM FILES (MSTA/B/C/D/E/F/G & AIX & WGH) //**//* (OLA IS ALREADY RESET BY THE DAILY) @@ -131,10 +131,11 @@ //* //STEP0800 EXEC DTSACHM1 /ARCHIVE MONTHLY REPORTS (405/414) //* -//* +// +// //****************************************************************** //* | -//* JOB : FTP R414 FILES TO SERVER +//* JOB : FTP R414 FILES TO SERVER NO NEED TO FTP BILLS //* | //****************************************************************** //STEP0800 EXEC PGM=FTP diff --git a/JCL/DTSPODC4.jcl b/JCL/DTSPODC4.jcl index 19497af..162b48f 100644 --- a/JCL/DTSPODC4.jcl +++ b/JCL/DTSPODC4.jcl @@ -1,7 +1,7 @@ //DTSPODC4 JOB (0),'CA7 DUMMY JOB',CLASS=P,MSGCLASS=X,USER=#DOADTS, // NOTIFY=ECNTZL1 /*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE -//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS +//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB BY Z/OS //********************************************************************** //* THIS JOB IS DEMANDED IN AFTER SUCCESSFULL TRANSMISSION * //* RUNS ON DOES CA/7 * diff --git a/JCL/DTSPODC6.jcl b/JCL/DTSPODC6.jcl index f8f3fb7..d4485a4 100644 --- a/JCL/DTSPODC6.jcl +++ b/JCL/DTSPODC6.jcl @@ -1,7 +1,7 @@ //DTSPODC6 JOB (0),'CA7 DUMMY JOB',CLASS=P,MSGCLASS=X,USER=#DOADTS, // NOTIFY=ECNTZL1 /*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE -//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS +//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB BY Z/OS //********************************************************************** //* THIS JOB IS DEMANDED IN AFTER SUCCESSFULL TRANSMISSION * //* RUNS ON DOES CA/7 * diff --git a/JCL/DTSPVIEW.jcl b/JCL/DTSPVIEW.jcl index 912e5d8..6cc881d 100644 --- a/JCL/DTSPVIEW.jcl +++ b/JCL/DTSPVIEW.jcl @@ -6,7 +6,7 @@ // SET LVLNODE='PROD' // SET LVDHOLD='YES' //* -//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB +//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //**** //INFOPACK EXEC PGM=INFOPACR, diff --git a/JCL/DTSPX148.jcl b/JCL/DTSPX148.jcl index 795fff9..ce0b588 100644 --- a/JCL/DTSPX148.jcl +++ b/JCL/DTSPX148.jcl @@ -21,7 +21,7 @@ // SET S0910='+0' //* 00001700 //* 00001700 -//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001600 +//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //***************************************************************** //*** diff --git a/JCL/DTSRACHD.jcl b/JCL/DTSRACHD.jcl index 4882100..2fb4ed0 100644 --- a/JCL/DTSRACHD.jcl +++ b/JCL/DTSRACHD.jcl @@ -10,7 +10,7 @@ // SET PRGNODE='PROD' // SET LVDHOLD='YES' //* -//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB +//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //** //******************************************************************** @@ -43,7 +43,7 @@ //** //******************************************************************** //** -//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), +//MAIL EXEC PGM=IEBGENER,COND=(0,LT), // REGION=4M //SYSPRINT DD SYSOUT=* //OUT1 OUTPUT DEST=U1003, @@ -59,7 +59,7 @@ // 'FILENAME:essp_ach.TXT'), // MAILFROM=DUTAS@DC.GOV //SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACHDD.TXT,DISP=SHR -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //SYSUDUMP DD SYSOUT=(*,,DUMP) // diff --git a/JCL/DTSRBTCH.jcl b/JCL/DTSRBTCH.jcl index 144c490..92d2c14 100644 --- a/JCL/DTSRBTCH.jcl +++ b/JCL/DTSRBTCH.jcl @@ -7,7 +7,7 @@ //********************************************************************** //*** COPY PROD BTC FILES TO HDVL FOR NEW BATCH raincode tESTING ZL1 //********************************************************************** -//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB +//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCS.BATCH.LIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //* //COPY1Z EXEC PGM=IDCAMS diff --git a/JCL/DTSRDAY1.jcl b/JCL/DTSRDAY1.jcl index 9dcb4ec..1b2bae4 100644 --- a/JCL/DTSRDAY1.jcl +++ b/JCL/DTSRDAY1.jcl @@ -13,7 +13,7 @@ // SET LDEST=U@PRT65 // SET PRTHOLD='YES' //* -//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB +//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //**** //* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP diff --git a/JCL/DTSRQ126.jcl b/JCL/DTSRQ126.jcl index 8fe7619..0703f53 100644 --- a/JCL/DTSRQ126.jcl +++ b/JCL/DTSRQ126.jcl @@ -12,7 +12,7 @@ //******************************************************************* //* WEEKLYREPORT DTSBR122 - * //* APPROVED STATUS DETERMINATIONS E-MAIL -//* * +//* raincode test zl1 * //******************************************************************* //* //LOADLIBS INCLUDE MEMBER=DTSIJLIB diff --git a/JCL/DTSRQ202.jcl b/JCL/DTSRQ202.jcl index e29c7b3..42248f2 100644 --- a/JCL/DTSRQ202.jcl +++ b/JCL/DTSRQ202.jcl @@ -27,7 +27,7 @@ //* 12/23/16 ADD STEP TO DELETE JOB DTSPACHD FTP LOG FILE //* //* 07/25/17 ADD STEP TO DELETE/CREATE NEW W4 WAGE FILE ZL1 -//* +//* 09/26/25 TESTING RAINCODE ZL1 //****************************************************************** // SET EXTNODE='CONV' // SET MSTNODE='PROD' diff --git a/JCL/DTSRQ320.jcl b/JCL/DTSRQ320.jcl index 9bd25c2..d2511e8 100644 --- a/JCL/DTSRQ320.jcl +++ b/JCL/DTSRQ320.jcl @@ -7,7 +7,7 @@ //**** // SET LVLNODE='PROD' // SET MSTNODE='PROD' -// SET PENQTR='Q253' <<<<<<< FOR FILE NAME ONLY +// SET PENQTR='Q244' <<<<<<< FOR FILE NAME ONLY // SET LHOLD='NO' <<<<<<< FOR FILE NAME ONLY //**** //* JOB : PENALTY ASSESSMENT PROCESS (RATED EMPLOYERS ONLY) diff --git a/JCL/DTSRQ325.jcl b/JCL/DTSRQ325.jcl index bf6d522..089ada3 100644 --- a/JCL/DTSRQ325.jcl +++ b/JCL/DTSRQ325.jcl @@ -22,7 +22,7 @@ //* HAS A PROBLEM DOCS GET THE OLD FILE FROM LAST RUN AND CAUSES 00001700 //* DUPLICATE ERROR CONDITION. 8/4/14 ZL1 00001700 //* 00001700 -//* 00001700 +//* TESTING RC 09/13/25 ZL1 00001700 //* ADDED STEP0200 DTSBESSP TO BACKUP INPUT FILES FROM ESSP X102 THRU 00001700 //* X145 AND X420,X422 BTC FILES CREATED BY JOB DTSBX420. 00001700 //* 10/8/14 ZL1 00001700 @@ -47,11 +47,14 @@ // UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000) //********************************************************************* -//* REGULAR PROD VSAM FILES BACKUP BEFORE ANY UPDATES 00001700 +//* REGULAR PROD VSAM FILES BACKUP BEFORE ANY UPDATES RAINCODE VERSION 00001700 //******************************************************************** 00001700 //* 00001700 -//STEP0050 EXEC DTSUTVSM, -// BKUPGEN='(+1)' +//*STEP0050 EXEC DTSUTVSM, +//* BKUPGEN='(+1)' +//STEP0100 EXEC DTSUTVSM, 00002102 +// BKUPGEN='(+1)',freq='DAILY' 00003000 + //* //******************************************************************** //* BACKUP ALL UI TAX CONV EXTERNAL FILES 00001700 diff --git a/JCL/DTSRQ335.jcl b/JCL/DTSRQ335.jcl index 37fe8e3..814c3cb 100644 --- a/JCL/DTSRQ335.jcl +++ b/JCL/DTSRQ335.jcl @@ -16,7 +16,7 @@ //* 00122099 //* ADDED BACKUP STEP FOR PAYDIST FILE -10/09 ZL1 00123099 //* 00124099 -//**** 00130090 +//**** RAINCODE TESTED 08/30/25 ZL1 00130090 // SET LVLNODE='PROD' 00140099 // SET MSTNODE='PROD' 00150099 // SET RUNTYPE='0' 0=CONVERT; 1=INCREMENTAL 00150199 @@ -28,7 +28,9 @@ //*TEP0100 EXEC DTSUTVSM, 00191099 //* BKUPGEN='(+1)' 00192099 //* 00193099 -//STEP0100 EXEC DTSBX340 MASTER FILE DATA 00200099 +//STEP0100 EXEC DTSBX340 +//* +//*STEP0100 EXEC DTSZX340 //* 00250099 //STEP0100.DTSFBTCO DD DUMMY 00260061 //STEP0100.DTSFVRO1 DD DUMMY 00270099 @@ -45,13 +47,20 @@ //STEP0600 EXEC PGM=IDCAMS 00292099 //SYSPRINT DD SYSOUT=* 00293099 //INDD09 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.PAYDIST,DISP=SHR 00294099 -//OUTDD01 DD DSN=ECNTSUP.DOESTAX.PROD.PAYDIST.FTP(+1), 00295099 -// UNIT=CART, 00296099 -// VOLUME=(,RETAIN), 00296199 -// LABEL=(1,SL,,,EXPDT=99000), 00297099 -// DISP=(,CATLG,DELETE), 00298099 -// SPACE=(31552,(200,200),RLSE), 00299099 -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=50,BLKSIZE=30000) 00299199 +//OUTDD01 DD DSN=ECNTSUP.DOESTAX.PROD.PAYDIST.FTP(+1), +//* DISP=SHR +// DISP=(NEW,CATLG,DELETE), 00180017 +// UNIT=SYSDA,SPACE=(CYL,(100,10),RLSE), 00190017 +// DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000) +//* +//SYSPRINT DD SYSOUT=(*) +//* 00295099 +//* UNIT=CART, 00296099 +//* VOLUME=(,RETAIN), 00296199 +//* LABEL=(1,SL,,,EXPDT=99000), 00297099 +//* DISP=(,CATLG,DELETE), 00298099 +//* SPACE=(31552,(200,200),RLSE), 00299099 +//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=50,BLKSIZE=30000) 00299199 //**** 00299299 REPRO INFILE(INDD09) OUTFILE(OUTDD01) 00299399 /* 00299499 @@ -61,12 +70,15 @@ //SYSOUT DD SYSOUT=* 00299899 //SORTIN DD DSN=DOESTAX.&LVLNODE..VSAM.ATH,DISP=SHR, 00299999 // AMP=('BUFNI=5,BUFND=30') 00300099 -//SORTOUT DD DSN=DOESTAX.&LVLNODE..BACKUP.ATH(+1), 00301099 -// DISP=(,CATLG,DELETE), 00302099 -// UNIT=CART, 00303099 -// VOLUME=(,RETAIN,REF=*.STEP0600.OUTDD01), 00304099 -// LABEL=(2,SL,,,EXPDT=99000), 00305099 -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=25600) 00306099 +//SORTOUT DD DSN=DOESTAX.&LVLNODE..BACKUP.ATH(+1), +// DISP=(NEW,CATLG,DELETE), 00180017 +// UNIT=SYSDA, 00190017 +// DCB=(RECFM=FB,LRECL=256,BLKSIZE=25600) 00301099 +//* DISP=(,CATLG,DELETE), 00302099 +//* UNIT=CART, 00303099 +//* VOLUME=(,RETAIN,REF=*.STEP0600.OUTDD01), 00304099 +//* LABEL=(2,SL,,,EXPDT=99000), 00305099 +//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=25600) 00306099 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00307099 //**** 00310099 //* 00470099 diff --git a/JCL/DTSRQ414.jcl b/JCL/DTSRQ414.jcl index a18d679..40a08b9 100644 --- a/JCL/DTSRQ414.jcl +++ b/JCL/DTSRQ414.jcl @@ -14,7 +14,7 @@ //* ON REQUEST REPORT DTSBR414 - * //**** //* 06/30/09 ADDED PROC TO ARCHIVE REPORT RECORDS 414 ZL1 -//**** +//**** TESTING RC ZL1 //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //** @@ -49,17 +49,18 @@ //STEP0100.RPT907R1 DD HOLD=YES //STEP0100.RPT907R2 DD HOLD=YES //STEP0100.RPT980R1 DD HOLD=YES -//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00631000 +//*DOESLBLP.DOESLBL1 DD DUMMY +//* +//* +//*STEP0400 EXEC PGM=FTP +//*SYSPRINT DD SYSOUT=* +//*OUTOUT DD SYSOUT=* +//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 +//*SYSGET DD *,DCB=BLKSIZE=80 +//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT414),DISP=SHR //* -//STEP0400 EXEC PGM=FTP -//SYSPRINT DD SYSOUT=* -//OUTOUT DD SYSOUT=* -//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 -//SYSGET DD *,DCB=BLKSIZE=80 -//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT414),DISP=SHR -/* //STEP0500 EXEC DTSAR414 /ARCHIVE 414 RECORDS //** -//STEP0600 EXEC DTSUTVSM, -// BKUPGEN='(+1)' +//*STEP0600 EXEC DTSUTVSM, +//* BKUPGEN='(+1)' //* diff --git a/JCL/DTSRQ442.jcl b/JCL/DTSRQ442.jcl index dbbc999..f99fcee 100644 --- a/JCL/DTSRQ442.jcl +++ b/JCL/DTSRQ442.jcl @@ -16,7 +16,7 @@ //* 1. RUN RIGHT AFTER THE LAST SUCCESSFUL MONTHLY RUN //* //* -//* +//* TESTING RC ZL1 //*================================================================| //*** //PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB @@ -36,7 +36,7 @@ //** //* REPORT GENERATION //STEP0300 EXEC DTSRQRPT -//* +// //STEP0400 EXEC PGM=FTP //SYSPRINT DD SYSOUT=* //OUTOUT DD SYSOUT=* diff --git a/JCL/DTSRQ444.jcl b/JCL/DTSRQ444.jcl index 2f996ea..dbe38cb 100644 --- a/JCL/DTSRQ444.jcl +++ b/JCL/DTSRQ444.jcl @@ -17,7 +17,7 @@ //* //* 2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO //* -//* +//* testing rc zl1 //*================================================================| //*** //PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB diff --git a/JCL/DTSRQ459.jcl b/JCL/DTSRQ459.jcl index 3c78ab3..1ac8bbe 100644 --- a/JCL/DTSRQ459.jcl +++ b/JCL/DTSRQ459.jcl @@ -29,15 +29,15 @@ /* //*** SORT BE460 FIRST 13 BYTES //STEP0300 EXEC DTSRS459 -// -//STEP0400 EXEC PGM=FTP,REGION=2M -//*YSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9) -//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9) -//SYSIN DD * -FWFRIENDLY TRUE -//SYSPRINT DD SYSOUT=*,HOLD=YES -//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR -/* +//* +//*STEP0400 EXEC PGM=FTP,REGION=2M +//**YSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9) +//*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9) +//*SYSIN DD * +//*FWFRIENDLY TRUE +//*SYSPRINT DD SYSOUT=*,HOLD=YES +//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR +//* //* //******************************************************************** //* | @@ -51,7 +51,8 @@ FWFRIENDLY TRUE // DISP=(,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(CYL,(20,10),RLSE), -// DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=386,BLKSIZE=27792) //SYSIN DD * REPRO INFILE(INDD01) OUTFILE(OUTDD01) /* diff --git a/JCL/DTSRQ511.jcl b/JCL/DTSRQ511.jcl index a971f39..717be5e 100644 --- a/JCL/DTSRQ511.jcl +++ b/JCL/DTSRQ511.jcl @@ -8,7 +8,7 @@ //* 00001700 //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 -//* 00001700 +//* TESTING RC ZL1 00001700 //* 00001700 //STEP0100 EXEC PGM=DTSBD511, /* GENERATE NON PAYMNT SUR CHG LTR // COND=(0,LT), diff --git a/JCL/DTSRQ513.jcl b/JCL/DTSRQ513.jcl index 27e7be4..821e7b7 100644 --- a/JCL/DTSRQ513.jcl +++ b/JCL/DTSRQ513.jcl @@ -20,7 +20,7 @@ //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //CAIMRPTS DD SYSOUT=* -//RPT513R1 DD SYSOUT=0 +//RPT513R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=0 //** //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00001600 //DTSFVRI1 DD DSN=DOESTAX.&MSTNODE..SRTMONTH.RPT&GEN.,DISP=SHR @@ -29,8 +29,8 @@ //* //** //DTSF513 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX513, -// DISP=(NEW,CATLG,CATLG), -//* DISP=(OLD,KEEP,KEEP), +//* DISP=(NEW,CATLG,CATLG), +// DISP=(OLD,KEEP,KEEP), // UNIT=SYSDA, // CODEPAGE=1252,AUTOENCODE=YES, // SPACE=(800,(1000,1000),RLSE), diff --git a/JCL/DTSRQ713.jcl b/JCL/DTSRQ713.jcl index a0bc064..dd20613 100644 --- a/JCL/DTSRQ713.jcl +++ b/JCL/DTSRQ713.jcl @@ -8,7 +8,7 @@ // SET MSTNODE='PROD' // SET UINODE='PROD' // SET SPCNODE='PROD' -// SET QTR='Q251' +//*** SET QTR='Q063' // SET LHOLD='NO' //**** //* BUILD TRANSACTION RECORDS TO CREATE BOTH THE RECONSTRUCTION FILE @@ -35,14 +35,15 @@ //*STEP0125 EXEC DTSUTVSQ, //* BKUPGEN='(+1)' //*** * -//*STEP0200 EXEC DTSUX770, BD400 PERIODIC EXTRACT -//STEP0200 EXEC DTSUX777, BD400 PERIODIC EXTRACT +//STEP0200 EXEC DTSUX770, BD400 PERIODIC EXTRACT // RUNTYPE='QE', // PREBACK='Y' //*STEP0100.DTSFREF DD DSN=DOESTAX.&SPCNODE..VSAM.REF, /*1X SPECIAL //* DISP=SHR,AMP=('BUFNI=5,BUFND=10') //*STEP0100.DTSFBTCO DD DISP=(OLD,KEEP,KEEP) -//STEP0100.BE770PRM DD DISP=(OLD,KEEP,KEEP) +//*STEP0100.BE770PRM DD DISP=(OLD,KEEP,KEEP) +//*STEP0100.EXTPARM DD * +//*770, //STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ713), // DISP=SHR //*** USE THE FOLLOWING LINES FOR A RERUN **-->> @@ -56,13 +57,13 @@ //*** //STEP0100.DTSFVR01 DD DUMMY //*** SEND DATA TO SERVER FOR UPLOAD -//STEP0300 EXEC PGM=FTP TO DATA VALIDATION DATABASE -//SYSPRINT DD SYSOUT=* -//SOUTOUT DD SYSOUT=* -//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 -//SYSGET DD *,DCB=BLKSIZE=80 -//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFTDVA), -// DISP=SHR +//*STEP0300 EXEC PGM=FTP TO DATA VALIDATION DATABASE +//*SYSPRINT DD SYSOUT=* +//*SOUTOUT DD SYSOUT=* +//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 +//*SYSGET DD *,DCB=BLKSIZE=80 +//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFTDVA), +//* DISP=SHR //*** SORT REPORT RECORDS //STEP0400 EXEC DTSRSORT //*** REPORT GENERATION @@ -72,9 +73,9 @@ //STEP0100.RPT719R1 DD DUMMY //STEP0100.DTS910F1 DD DUMMY //*** STD BACKUP AFTER DATA FILE UPDATE -//STEP0600 EXEC DTSUTVSM, +//*STEP0600 EXEC DTSUTVSM, //*** BKUPGEN='(+2)' /* (ONLY IF +1 BKP DONE IN STEP0100) -// BKUPGEN='(+1)' +//* BKUPGEN='(+1)' //* //* THIS RESTORE IS DONE AT QTR-END TO //* REORG THE SECONDARY VSAM FILES (ATC/REF & WRK) diff --git a/JCL/DTSRRRPT.jcl b/JCL/DTSRRRPT.jcl index 9de11ef..7a74e6c 100644 --- a/JCL/DTSRRRPT.jcl +++ b/JCL/DTSRRRPT.jcl @@ -19,7 +19,7 @@ //PROCLIB JCLLIB ORDER=DOESTAX.&LVLPROG..PROCS.BATCH.LIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //**** SORT REPORT RECORDS -//STEP0200 EXEC DTSZSORT +//*STEP0200 EXEC DTSZSORT //*TEP0100.SORTIN DD DSN=DOESTAX.&LVLNODE..SRTDAILY.RPT(+0), //* DISP=SHR //**** DD DSN=DOESTAX.&LVLNODE..PER.RPT.G0349V00, diff --git a/JCL/DTSVBKUP.jcl b/JCL/DTSVBKUP.jcl index c375805..cdb7289 100644 --- a/JCL/DTSVBKUP.jcl +++ b/JCL/DTSVBKUP.jcl @@ -5,11 +5,12 @@ // REGION=0M 00000514 /*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE //* 00000614 -//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000714 +//*PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000714 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000814 //**** 00000914 //* UI TAX BACKUP VSAM FILES * 00001000 -//* * 00001100 +//* -FREQ +//* * 00001100 //* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES * 00001200 //* IN THE CICS REGION. IF YOU FAIL TO CLOSE * 00001300 //* THE FILES IN THE CICS REGION BEFORE RUNNING * 00001400 diff --git a/JCL/DTSVRSTR.jcl b/JCL/DTSVRSTR.jcl index d325a7a..2a2a583 100644 --- a/JCL/DTSVRSTR.jcl +++ b/JCL/DTSVRSTR.jcl @@ -5,7 +5,7 @@ /*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE //* 00000500 //PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000609 -//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000721 +//*LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000721 //**** 00000921 //* UI TAX VSAM FILES RESTORE ------ READ NOTE BELOW -------- * 00001100 //* * 00001200 @@ -20,5 +20,15 @@ //* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES * 00001300 //* IN THE CICS REGION. * 00001400 //**** 00001621 +/**** 00001621 +//* NOTE: RAINCODE RESTORE FOR DAILY MASTER FILES * 00001300 +//* TO RESTORE +0 GENERATION USE PROC DTSURVSM0 * 00001400 +//**** +//*** TO RESTORE MINUS (-) GENERATION USE PROC DTSURVSM1 +//* +//*STEP0100 EXEC DTSURVSM0 00002000 +//** 00003029 +//*STEP0100 EXEC DTSURVSM1 CHANGE PROC FOR - GENERATION NEEDED 00002000 +//* //STEP0100 EXEC DTSURVSM, 00002000 -// freq='DAILY',gen=-2,src='PROD',tgt='PROD' 00003029 +// freq='DAILY',gen=-2,src='PROD',tgt='PROD' 00003029 \ No newline at end of file diff --git a/JCL/DTSW4WGE.jcl b/JCL/DTSW4WGE.jcl index 9a39252..81b6e1e 100644 --- a/JCL/DTSW4WGE.jcl +++ b/JCL/DTSW4WGE.jcl @@ -9,7 +9,7 @@ //********************************************************************* //* LOAD THE WAGE FILE FOR DOCS NIGHTLY RUN //* -//* +//* RAINCODE TESTED 08/30/25 ZL1 //********************************************************************* // SET ACHYEAR='FY2009' // SET EXTNODE='CONV' diff --git a/JCL/DTSZPAYT.jcl b/JCL/DTSZPAYT.jcl index b4cfb18..ae71a60 100644 --- a/JCL/DTSZPAYT.jcl +++ b/JCL/DTSZPAYT.jcl @@ -25,7 +25,7 @@ // SET EXTNODE='CONV' // SET RPTNODE='ESSP.BX420.RPT' //* -//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB +//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //** //* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES) diff --git a/JCL/DTSZX145 (2).jcl b/JCL/DTSZX145 (2).jcl new file mode 100644 index 0000000..e6e761f --- /dev/null +++ b/JCL/DTSZX145 (2).jcl @@ -0,0 +1,100 @@ +//DTSDX145 JOB (UI,4300,3400,T),RUNRQ460,CLASS=S,MSGCLASS=X, +// USER=#DOADTS, +// NOTIFY=ECNTZL1, +//**** TYPRUN=SCAN, +//**** TYPRUN=HOLD, +// REGION=0M +//** +// SET LVLNODE='PROD' +// SET MSTNODE='PROD' +//** +//** +//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB +//******************************************************************** +//*** COPY ESSSP X145 FILE TO WEB X145 FILE FOR DUPLICATE CHECKING. +//** 02/09/16 ZL1 +//******************************************************************** +//STEP0010 EXEC PGM=SORT,REGION=1024K +//SORT.SYSPRINT DD SYSOUT=* +//SORT.STATOUT DD SYSOUT=* +//SORT.SYSDBOUT DD SYSOUT=* +//SORT.SYSUDUMP DD SYSOUT=* +//SORT.SYSOUT DD SYSOUT=* +//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.ESSPX145,DISP=SHR +//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) +//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) +//SYSIN DD * + SORT FIELDS=(1,11,CH,A) + END +/* +// +//* +//LOADLIBS INCLUDE MEMBER=DTSIJLIB +//** +//* NO BACKUP NEEDED BEFORE THIS REPORT +//** +//STEP0010 EXEC PGM=SORT SORT REPORT RECORDS +//SYSOUT DD SYSOUT=(*) +//SYSPRINT DD SYSOUT=(*) +//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR +// DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459,DISP=SHR +//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) +//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) +//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) +//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) +//SYSIN DD * + SORT FIELDS=(24,9,CH,A) + OMIT COND(24,9,CH,EQ,C'060726487') +//** +//STEP0100 EXEC PGM=DTSZXPFL, +// COND=(0,LT), +// REGION=4096K +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//CAIMRPTS DD SYSOUT=* +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//TAXFILE1 DD DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459,DISP=SHR +//* +//*FLFILE1 DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,DISP=SHR +//PFLFILE1 DD DUMMY +//* +//TAXFILE2 DD DSN=ECNTSUP.DOESTAX.PROD.CMB.BE459,DISP=SHR +//* +//******************************************************************* +//STEP0200 EXEC PGM=SORT +//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.CMB.BE459,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR +//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) +//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) +//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) +//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) +//SYSIN DD * + SORT FIELDS=(1,386,CH,A) + OMIT COND(24,9,CH,EQ,C'060726487') +//* +//******************************************************************* +//*STEP0300 EXEC PGM=FTP,REGION=2M +//*YSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9) +//***SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9) +//*SYSIN DD * +//**FWFRIENDLY TRUE +//*SYSPRINT DD SYSOUT=*,HOLD=YES +//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR +//* +//******************************************************************* +//STEP0400 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//INDD01 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR +//OUTDD01 DD DSN=DOESTAX.PROD.CLENHAND.BE459(+1), +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,10),RLSE), +// DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792) +//SYSIN DD * + REPRO INFILE(INDD01) OUTFILE(OUTDD01) +/* diff --git a/JCL/DefineFLAT.jcl b/JCL/DefineFLAT.jcl new file mode 100644 index 0000000..23872ac --- /dev/null +++ b/JCL/DefineFLAT.jcl @@ -0,0 +1,10 @@ +//IMPMF04 JOB +//* +//STEP0101 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) +//DTSFL420 DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES, +// DISP=(NEW,CATLG,CATLG), +//** DISP=(OLD,KEEP,KEEP), +// SPACE=(CYL,(5,5)), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//* + diff --git a/JCL/IB14flatfile.jcl b/JCL/IB14flatfile.jcl new file mode 100644 index 0000000..b1397b7 --- /dev/null +++ b/JCL/IB14flatfile.jcl @@ -0,0 +1,19 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X +//*STEP011 EXEC PGM=IEFBR14 +//*SYSPRINT DD SYSOUT=* +//*SYSOUT DD SYSOUT=* +//*DD0011 DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES, +//* DISP=(NEW,CATLG,CATLG), +//* DISP=SHR, +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=8192), +//* PATH=('e:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES', +//* COPY) +//* +//STEP0101 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) +//DTSRJ420 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT, +// DISP=(NEW,CATLG,CATLG), +//** DISP=(OLD,KEEP,KEEP), +//** SPACE=(CYL,(5,5)), +// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) +//* +// \ No newline at end of file diff --git a/JCL/IEB14CRE.jcl b/JCL/IEB14CRE.jcl new file mode 100644 index 0000000..07c85c1 --- /dev/null +++ b/JCL/IEB14CRE.jcl @@ -0,0 +1,75 @@ +//DTSBXREL JOB (UI,4300,3400,T),DTSBXPEN-ESSP-RPTS, 00000010 +// CLASS=A,MSGCLASS=X, 00000010 +//* TYPRUN=SCAN, +// USER=#DOADTS, +// NOTIFY=ECNTZL1, +// REGION=0M +//* 00001700 +// SET LVLNODE='CONV' +// SET MSTNODE='PROD' +// SET IMPNODE='CONV' +// SET LVDHOLD='YES' 00001700 +// SET LHOLD='YES' 00001700 +// SET EXTNODE='CONV' 00001700 +// SET RPTNODE='ESSP.BX420.RPT' 00001700 +//* 00001700 +//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCS.BATCH.LIB 00001600 +//LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600 +//** 00001700 +//* PROCESS ESSP PENDING DATA FILES (REPORTS AND PAYMENTS) 00001700 +//* TESTING RC ZL1 00001700 +//** 00001700 +//** THIS JOB WILL PROCESS ESSP PENDING REPORT WAGES AND PAYMENTS 00001700 +//** 1. REPORTS(X140) WILL GO TO PENDING FILE IF NO 00001700 +//** PAYMENT(X145) FOUND. ALL REPORTS RELEASED FROM PENDING 00001700 +//** FILE THE REMIT AMOUNT WILL BE ZEROED OUT. 00001700 +//** 00001700 +//** ESSP FILES PROCESSED BY DUTAS (PENDING FILES ONLY) 00001700 +//* - X140 -EMPLOYER REPORT DATA (WAGE HEADER) 00001700 +//* - X145 -EMPLOYER PAYMENT DATA 00001700 +//* 00001700 +//* 00001700 +//* READ-ONLY - NO MASTER FILE UPDATES - CREATES T002,T003,T028 00001700 +//* TRANSCATIONS 00001700 +//* OUTPUT FILE: 00001700 +//* DOESTAX.PROD.X436.BTC 00001700 +//* DOESTAX.CONV.X435.W4FILE 00001700 +//* 00001700 +//* 00001700 +//* THIS JOB MAY BE RERUN WITH CAUTION OR DUPLICATE PAYMENT WILL OCCUR00001700 +//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700 +//** 00001700 +//***************************************************************** +//********************************************************************* +//** DELETE AND CREATE FILES USED BY PENDING PROC DTSBXPEN +//****************************************************************** +//STEP0600 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) +//DTSFX140 DD DSN=DOESTAX.CONV.ESSP.NOWEBRG.TXT, +// DISP=(,CATLG,DELETE), +//* DISP=SHR, +// SPACE=(25600,(100,200),RLSE), +// DCB=(,RECFM=FB,LRECL=80,BLKSIZE=800) +// +// +//********************************************************************* +//** DELETE AND CREATE FILES USED BY PENDING PROC DTSBXPEN +//****************************************************************** +//STEP0600 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) +//DTSFX145 DD DSN=DOESTAX.PROD.ESSP.PENDING.X145, +// DISP=(,CATLG,DELETE), +//* DISP=SHR, +// SPACE=(25600,(100,200),RLSE), +// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +//** +//STEP0200 EXEC DTSNXREL +//* +//STEP0200 EXEC DTSRSESP +//*** +//* REPORT GENERATION +//STEP0300 EXEC DTSRERPT +//STEP0100.RPT140R1 DD HOLD=YES +//STEP0100.RPT140R2 DD HOLD=YES +//STEP0100.RPT907R1 DD HOLD=YES +//STEP0100.RPT907R2 DD HOLD=YES +//STEP0100.RPT980R1 DD HOLD=YES +//** 00001700 diff --git a/JCL/JRUN800.jcl b/JCL/JRUN800.jcl new file mode 100644 index 0000000..3904044 --- /dev/null +++ b/JCL/JRUN800.jcl @@ -0,0 +1,337 @@ +//ECNT800Z JOB (UI,4300,3400,T),'CHGBD100',CLASS=A,MSGCLASS=X, 00000199 +// NOTIFY=ECNTZL1,REGION=0M 00000299 +//* 00000499 +// SET LVLNODE='DEVL' 00000599 +// SET MSTNODE='PROD' 00000699 +// SET LVDHOLD='YES' /* VIEW DIRECT JOBS +// SET LDEST='LOCAL' +// SET PGMNODE='DEVL' 00000799 +//PROCLIB JCLLIB ORDER=ECNTZL1.DOESTAX.DEVL.PROCS.BATCH.LIB 00001399 +//*ROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001399 +//* 00001400 +//*OADLIBS INCLUDE MEMBER=DTSIZLIB 00001599 +//*OADLIBS INCLUDE MEMBER=DTSIRLIB 00001599 +//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001599 +//*OADLIBS INCLUDE MEMBER=DTSIPJLB 00001599 +//* 00001600 +//**** GENERATE A DUMMY RECORD FOR THE LABELS FILE 00001799 +//* 00004499 +//********************************************************************* 00004549 +//STEP0100 EXEC PGM=SORT, 00004600 +// COND=(0,LT) 00004700 +//SYSOUT DD SYSOUT=* 00004800 +//SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT.DD080925,DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.PROD.SRTMONTH.RPT(-2),DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT(-6),DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.TEST.SI414TPS.Q22023,DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.PROD.BE320.RPT(+0),DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.PROD.BE417.RPT(+0),DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.PROD.BE417.RPT.G0038V00,DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.PROD.CHG.BD220.RPT.QTR082,DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.PROD.PER.RPT(-1),DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.DEVL.PER.RPT(-1),DISP=SHR +//*ORTIN DD DSN=DOESTAX.DEVL.PER.RPT.G7699V00,DISP=SHR +//*ORTIN DD DSN=DOESTAX.DEVL.RATE518.RPT.AN2019,DISP=SHR +//*ORTIN DD DSN=DOESTAX.TEST.FUTA704.RPT.CY2022,DISP=SHR +//* 00006399 +//SORTOUT DD DSN=&&SRTRPT, 00006899 +// DISP=(,PASS,DELETE), 00006999 +// UNIT=SYSDA, 00007099 +// SPACE=(8192,(1000,1000),RLSE), 00007199 +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00007299 +//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR 00007399 +//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00007499 +//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00008099 +//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00009099 +//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00010099 +//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00011099 +//* 00018000 +//STEP0200 EXEC PGM=DTSBD800, OUTPUT GENERATION 00018100 +//** TIME=(0,20), 00018299 +// COND=(0,LT) 00018300 +//SYSOUT DD SYSOUT=* 00018400 +//SYSABOUT DD SYSOUT=* 00018500 +//SYSUDUMP DD SYSOUT=* 00018600 +//*BD800,INC,102,103,105,108,109.112.115.117.127.319 00018799 +//PARMIN DD * 00018899 +DTSBD800,INC,503 00019199 +/* 00019599 +//** 00019699 +//ATLSTIN DD * 00020000 +DTSBD800, 00030000 +/* 00031000 +//** 117 W CLASS 00040099 +//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00050099 +//**** NEED FOR 604 ONLY***** 00051099 +//** 00060000 +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00070099 +//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00071099 +// AMP=('BUFNI=5,BUFND=10') 00080000 +//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, 00071099 +// AMP=('BUFNI=5,BUFND=10') 00080000 +//DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR, 00071099 +// AMP=('BUFNI=5,BUFND=10') 00080000 +//* 00090099 +//*DOESVRO1 DD DSN=&&LABELS,DISP=(OLD,PASS,DELETE) 00100099 +//* 00100199 +//RPT503R1 DD SYSOUT=X 00100299 +//RPT503R2 DD SYSOUT=X 00100299 +//RPT325R1 DD SYSOUT=X 00100299 +//RPT405R1 DD SYSOUT=* 00100299 +//RPT405R2 DD SYSOUT=* 00100299 +//RPT412R1 DD SYSOUT=* 00100299 +//RPT412R2 DD SYSOUT=* 00100299 +//RPT412R3 DD SYSOUT=* 00100299 +//RPT530R1 DD SYSOUT=* 00100299 +//RPT909R8 DD SYSOUT=* 00100299 +//RPT909R9 DD SYSOUT=* 00100299 +//RPT907R1 DD SYSOUT=* 00100299 +//RPT907R2 DD SYSOUT=* 00100299 +//RPT316R1 DD SYSOUT=* 00100299 +//RPT316R2 DD SYSOUT=* 00100299 +//RPT439R1 DD SYSOUT=* 00100299 +//RPT439R2 DD SYSOUT=* 00100299 +//RPT320R1 DD SYSOUT=* 00100299 +//RPT320R2 DD SYSOUT=* 00100299 +//RPT320R3 DD SYSOUT=* 00100299 +//RPT320R4 DD SYSOUT=* 00100299 +//RPT321R1 DD SYSOUT=* 00100299 +//RPT321R2 DD SYSOUT=* 00100299 +//RPT321R3 DD SYSOUT=* 00100299 +//RPT321R4 DD SYSOUT=* 00100299 +//RPT332R1 DD SYSOUT=* 00100299 +//RPT332R2 DD SYSOUT=* 00100299 +//RPT332R3 DD SYSOUT=* 00100299 +//RPT305R1 DD SYSOUT=* 00100299 +//RPT305R2 DD SYSOUT=* 00100299 +//RPT305R3 DD SYSOUT=* 00100299 +//RPT306R1 DD SYSOUT=* 00100299 +//RPT306R2 DD SYSOUT=* 00100299 +//RPT306R3 DD SYSOUT=* 00100299 +//RPT713R1 DD SYSOUT=* 00100299 +//RPT713R2 DD SYSOUT=* 00100299 +//RPT704R1 DD SYSOUT=* 00100299 +//RPT704R2 DD SYSOUT=* 00100299 +//RPT705R1 DD SYSOUT=* 00100299 +//RPT705R2 DD SYSOUT=* 00100299 +//RPT102R1 DD SYSOUT=* 00100299 +//RPT102R2 DD SYSOUT=* 00100399 +//RPT102R3 DD SYSOUT=* 00100499 +//RPT108R1 DD SYSOUT=* 00100299 +//RPT108R2 DD SYSOUT=* 00100399 +//RPT108R3 DD SYSOUT=* 00100499 +//RPC110R1 DD SYSOUT=* 00100699 +//RPC110R2 DD SYSOUT=* 00100799 +//RPT131R1 DD SYSOUT=* 00100699 +//RPT131R2 DD SYSOUT=* 00100799 +//RPT119R1 DD SYSOUT=* 00100699 +//RPT319R1 DD SYSOUT=* 00100699 +//RPT319R2 DD SYSOUT=* 00100799 +//RPT316R1 DD SYSOUT=* 00100699 +//RPT316R2 DD SYSOUT=* 00100799 +//RPT112R1 DD SYSOUT=* 00100699 +//RPT112R2 DD SYSOUT=* 00100799 +//RPT115R1 DD SYSOUT=* 00100699 +//RPT115R2 DD SYSOUT=* 00100799 +//RPT117R1 DD SYSOUT=* 00100899 +//RPT117R2 DD SYSOUT=* 00100899 +//RPT403R1 DD SYSOUT=* 00100899 +//RPT403R2 DD SYSOUT=* 00100899 +//RPT405R1 DD SYSOUT=* 00100899 +//RPT405R2 DD SYSOUT=* 00100899 +//RPT461R1 DD SYSOUT=* 00100899 +//RPT461R2 DD SYSOUT=* 00100899 +//RPT461R3 DD SYSOUT=* 00100899 +//RPT451R1 DD SYSOUT=* 00100899 +//RPT451R2 DD SYSOUT=* 00100899 +//RPT417R1 DD SYSOUT=* 00100899 +//RPT417R2 DD SYSOUT=* 00100899 +//RPT452R1 DD SYSOUT=* 00100899 +//RPT452R2 DD SYSOUT=* 00100899 +//RPT455R1 DD SYSOUT=* 00100899 +//RPT455R2 DD SYSOUT=* 00100899 +//RPC120R1 DD SYSOUT=* 00100899 +//RPC130R1 DD SYSOUT=* 00100999 +//RPT602R1 DD SYSOUT=* 00100999 +//RPT602R2 DD SYSOUT=* 00100999 +//RPT602R3 DD SYSOUT=* 00100999 +//RPT604R1 DD SYSOUT=* 00100999 +//RPT604R2 DD SYSOUT=* 00100999 +//RPT615R1 DD SYSOUT=* 00100999 +//RPT602F3 DD DUMMY 00100999 +//RPT726R1 DD SYSOUT=* 00100899 +//RPT726R2 DD SYSOUT=* 00100999 +//RPT909R1 DD SYSOUT=* 00100899 +//RPT909R2 DD SYSOUT=* 00100999 +//RPT909R3 DD SYSOUT=* 00100999 +//RPT909R4 DD SYSOUT=* 00100999 +//RPT909R5 DD SYSOUT=* 00100999 +//RPT909R6 DD SYSOUT=* 00100999 +//RPT980R1 DD SYSOUT=* 00100999 +// +// + +//RPT309R1 DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=134,BLKSIZE=134) 00100999 +//RPT309R2 DD SYSOUT=* 00100999 +//RPT319R1 DD SYSOUT=* 00100999 +//RPT319R2 DD SYSOUT=* 00100999 +//** ADMIN ASSESSMENT BILL +//RPT325R1 DD SYSOUT=W,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** +//RPT403R1 DD SYSOUT=* 00100999 +//RPT403R2 DD SYSOUT=* 00100999 +//RPT405R1 DD SYSOUT=* 00100999 +//RPT405R2 DD SYSOUT=* 00100999 +//RPT405R3 DD SYSOUT=* 00100999 +//RPT451R1 DD SYSOUT=* 00100999 +//RPT451R2 DD SYSOUT=* 00100999 +//RPT414R1 DD SYSOUT=* 00100999 +//RPT412R2 DD SYSOUT=* 00100999 +//RPT412R1 DD SYSOUT=* 00100999 +//RPT414R2 DD SYSOUT=* 00100999 +//RPT421R1 DD SYSOUT=* 00100999 +//RPT421R2 DD SYSOUT=* 00100999 +//RPT301R1 DD DSN=DOESTAX.DEVL.REPORT.R301,DISP=SHR 00100999 +//RPT302R1 DD DSN=DOESTAX.DEVL.REPORT.R302,DISP=SHR 00100999 +//RPT414R3 DD SYSOUT=* 00100999 +//**T414R4 DD DSN=DOESTAX.DEVL.R414.EXCL.RPT2,DISP=SHR 00100999 +//RPT414R4 DD SYSOUT=* 00100999 +//RPT414R5 DD SYSOUT=* 00100999 +//RPT414R6 DD SYSOUT=* 00100999 +//RPT415R1 DD SYSOUT=* 00100999 +//RPT415R2 DD SYSOUT=* 00100999 +//RPT433R1 DD SYSOUT=I +//RPT433R2 DD SYSOUT=* 00100999 +//RPT506R1 DD SYSOUT=* 00100999 +//*PT506R1 DD DSN=DOESTAX.&LVLNODE..RPT506R1.EXP, +//** DISP=(NEW,CATLG,CATLG), +//* DISP=(OLD,KEEP,KEEP), +//* UNIT=SYSDA, +//* SPACE=(CYL,(10,5),RLSE), +//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) +//* +//RPT506R2 DD SYSOUT=* 00100999 +//RPT507R1 DD SYSOUT=* 00100999 +//*PT507R1 DD DSN=DOESTAX.&LVLNODE..RPT507R1.EXP, +//** DISP=(NEW,CATLG,CATLG), +//* DISP=(OLD,KEEP,KEEP), +//* UNIT=SYSDA, +//* SPACE=(CYL,(10,5),RLSE), +//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) +//* +//RPT507R2 DD SYSOUT=* 00100999 +//RPT515R1 DD SYSOUT=* 00100999 +//RPT515R1 DD DSN=DOESTAX.&LVLNODE..RPT515R1.EXP, +//* DISP=(NEW,CATLG,CATLG), +// DISP=(OLD,KEEP,KEEP), +// UNIT=SYSDA, +// SPACE=(CYL,(10,5),RLSE), +// DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) +//* +//RPT515R2 DD SYSOUT=* 00100999 +//RPT515R3 DD SYSOUT=* 00100999 +//** ETA204 REPORT +//*PT517R1 DD SYSOUT=* +//* DEST=&LDEST., +//* HOLD=&LVDHOLD +//RPT517R1 DD DSN=DOESTAX.&LVLNODE..RPT517R1.EXP, +//** DISP=(NEW,CATLG,CATLG), +// DISP=(OLD,KEEP,KEEP), +// UNIT=SYSDA, +// SPACE=(CYL,(10,5),RLSE), +// DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) +//* +//RPT517R2 DD SYSOUT=* 00100999 +//RPT520R1 DD DSN=DOESTAX.&LVLNODE..RPT520R1.EXP, +//** DISP=(NEW,CATLG,CATLG), +// DISP=(OLD,KEEP,KEEP), +// UNIT=SYSDA, +// SPACE=(CYL,(10,5),RLSE), +// DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) +//* +//*RPT521R1 DD SYSOUT=* 00100999 +//*PT521R1 DD DSN=DOESTAX.&LVLNODE..RPT521R1.EXP, +//** DISP=(NEW,CATLG,CATLG), +//*** DISP=(MOD,KEEP,KEEP), +//* DISP=(OLD,KEEP,KEEP), +//* UNIT=SYSDA, +//* SPACE=(CYL,(10,5),RLSE), +//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) +//* +//*PT521R2 DD SYSOUT=* 00100999 +//RPT503R1 DD SYSOUT=* 00100999 +//RPT503R2 DD SYSOUT=* 00100999 +//RPT522R1 DD DSN=DOESTAX.&LVLNODE..RPT522R1.EXP, +//** DISP=(NEW,CATLG,CATLG), +// DISP=(OLD,KEEP,KEEP), +// UNIT=SYSDA, +// SPACE=(CYL,(10,5),RLSE), +// DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) +//* +//RPT516R1 DD SYSOUT=* 00100999 +//RPT516R2 DD SYSOUT=* 00100999 +//RPT416R1 DD SYSOUT=* 00100999 +//RPT416R2 DD SYSOUT=* 00100999 +//RPT316R1 DD SYSOUT=* 00100999 +//RPT316R2 DD SYSOUT=* 00100999 +//RPT417R1 DD SYSOUT=* 00100999 +//RPT417R2 DD SYSOUT=* 00100999 +//RPT325R5 DD SYSOUT=* 00100999 +//RPT325R4 DD SYSOUT=* 00100999 +//RPT325R3 DD SYSOUT=* 00100999 +//RPT325R2 DD SYSOUT=* 00100999 +//** ETA-581 SPEC DEPT OF LABOR REPORT +//RPT713R2 DD SYSOUT=O,COPIES=8 +//** DEST=&LDEST. +//RPT434R2 DD SYSOUT=* 00100999 +//RPT434R1 DD SYSOUT=* 00100999 +//RPT901R1 DD SYSOUT=* 00100999 +//RPT901R2 DD SYSOUT=* 00100999 +//RPT910R3 DD SYSOUT=* 00100999 +//RPT910R2 DD SYSOUT=* 00100999 +//RPT910R1 DD SYSOUT=* 00100999 +//RTS910F1 DD DUMMY 00100999 +//RST316R1 DD DSN=DOESTAX.DEVL.ESTQ062,DISP=SHR 00100999 +//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00007499 +//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00008099 +//REPORTF1 DD DSN=&&REPORTF1, +// DISP=(,PASS,DELETE), +// UNIT=SYSDA, +// SPACE=(18000,(100,100),RLSE), +// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000) +//RPT604R1 DD SYSOUT=* 00100999 +//RPT711R1 DD SYSOUT=* 00100999 +//RPT608R1 DD SYSOUT=* 00100999 +//RPT606R1 DD SYSOUT=* 00100999 +//RPT606R2 DD SYSOUT=* 00100999 +//RPT902R1 DD SYSOUT=* 00100999 +//RPT902R2 DD SYSOUT=* 00100999 +//RTS902F1 DD SYSOUT=* 00100999 +//RTS902F2 DD SYSOUT=* 00100999 +//RTP902F1 DD SYSOUT=* 00100999 +//RPT903R1 DD SYSOUT=* 00100999 +//RPT903R2 DD SYSOUT=* 00101099 +//RPT907R1 DD SYSOUT=* 00100999 +//RPT907R2 DD SYSOUT=* 00101099 +//RPC150R1 DD SYSOUT=* 00101199 +//RPC160R1 DD SYSOUT=* 00101299 +//RPT908R1 DD SYSOUT=* 00106799 +//*************************************************************** 00106899 +//PRINTER DD SYSOUT=* 00110599 +//** CONTROL REPORT SUMMARY 00110699 +//RPT980R1 DD SYSOUT=Q,COPIES=2, 00110799 +// HOLD=YES, 00110899 +// DEST=U@PRT65 00110999 +//** 00111000 +//* 00120099 +//STEP0500 EXEC PGM=DOESLABL, PRINT DOES LABELS 00131099 +// COND=(0,LT), 00140099 +// REGION=4096K 00150099 +//SYSOUT DD SYSOUT=* 00151099 +//SYSABOUT DD SYSOUT=* 00152099 +//SYSABEND DD SYSOUT=* 00153099 +//CAIMRPTS DD SYSOUT=* 00154099 +//DOESLBL1 DD SYSOUT=* 00155299 +//DOESVRI1 DD DSN=&&LABELS,DISP=(OLD,DELETE,DELETE) 00156199 +// 00157099 diff --git a/JCL/JRUNZ800.jcl b/JCL/JRUNZ800.jcl new file mode 100644 index 0000000..20aef51 --- /dev/null +++ b/JCL/JRUNZ800.jcl @@ -0,0 +1,452 @@ +//ECNT800Z JOB (UI,4300,3400,T),'CHGBD100',CLASS=A,MSGCLASS=X, 00000199 +// NOTIFY=ECNTZL1,REGION=0M 00000299 +//* 00000499 +// SET LVLNODE='DEVL' 00000599 +// SET MSTNODE='PROD' 00000699 +// SET LVDHOLD='YES' /* VIEW DIRECT JOBS +// SET LDEST='LOCAL' +// SET PGMNODE='DEVL' 00000799 +//PROCLIB JCLLIB ORDER=ECNTZL1.DOESTAX.DEVL.PROCS.BATCH.LIB 00001399 +//*ROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001399 +//* 00001400 +//*OADLIBS INCLUDE MEMBER=DTSIZLIB 00001599 +//*OADLIBS INCLUDE MEMBER=DTSIRLIB 00001599 +//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001599 +//*OADLIBS INCLUDE MEMBER=DTSIPJLB 00001599 +//* 00001600 +//**** GENERATE A DUMMY RECORD FOR THE LABELS FILE 00001799 +//*DOESIEDG EXEC PGM=IEBDG 00001899 +//*SYSPRINT DD SYSOUT=* 00001999 +//*LBLOUT DD DSN=&&TEMP,DISP=(,PASS,DELETE), 00002099 +//* UNIT=SYSDA, 00002199 +//* SPACE=(TRK,1), 00002299 +//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002399 +//*SYSIN DD * 00002499 +//* DSD OUTPUT=(LBLOUT) 00002599 +//* FD NAME=F1,LENGTH=350,STARTLOC=1,FILL='0' 00002699 +//* CREATE QUANTITY=1,NAME=(F1) 00002799 +//* END 00002899 +//* 00002999 +//*DOESICAN EXEC PGM=IDCAMS 00003099 +//*SYSPRINT DD SYSOUT=* 00003199 +//*FILEIN DD DSN=&&TEMP, 00003299 +//* DISP=(OLD,PASS), 00003399 +//* UNIT=SYSDA 00003499 +//*OESVRO1 DD DSN=DOESTAX.DEVL.TESTR901.LABELS,DISP=SHR 00003599 +//*DOESVRO1 DD DSN=&&LABELS, 00003699 +//* DISP=(NEW,PASS,DELETE), 00003799 +//* UNIT=SYSDA, 00003899 +//* SPACE=(8192,(1000,1000),RLSE), 00003999 +//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004099 +//*SYSIN DD * 00004199 +//* REPRO INFILE(FILEIN) OUTFILE(DOESVRO1) 00004299 +//* 00004399 +//* 00004499 +//********************************************************************* 00004549 +//STEP0100 EXEC PGM=SORT, 00004600 +// COND=(0,LT) 00004700 +//SYSOUT DD SYSOUT=* 00004800 +//*ORTIN DD DSN=DOESTAX.DEVL.RPT910.SINOTICE,DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.HDVL.BX420.RPT(+0),DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.DEVL.RATE517.NOPRINT.YR2018,DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.PROD.RATE517.RPT.YR2025,DISP=SHR +//*ORTIN DD DSN=DOESTAX.PROD.RATE503.RPT.YR2018,DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.CONV.RATE503.RPT.YR2024F4,DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.HDVL.FUTA704.RPT.CY2024,DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.HDVL.RATE517.RPT.YR2025,DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.DEVL.RATE518.RPT.AN2024,DISP=SHR 00005099 +//*SORTIN DD DSN=DOESTAX.PROD.SRTDAY07.RPT(+0),DISP=SHR 00005099 +//*SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT.DD091525,DISP=SHR 00005099 +//*SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT(+0) +//*sORTIN DD DSN=DOESTAX.PROD.SOAMONTH.RPT(+0),DISP=SHR 00005099 +//*SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT(-1),DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.TEST.SI414TPS.Q22023,DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.PROD.BE320.RPT(+0),DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.PROD.BE417.RPT(+0),DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.PROD.BE417.RPT.G0038V00,DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.PROD.CHG.BD220.RPT.QTR082,DISP=SHR 00005099 +//SORTIN DD DSN=DOESTAX.PROD.PER.RPT(+0),DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.DEVL.PER.RPT(-1),DISP=SHR +//*ORTIN DD DSN=DOESTAX.DEVL.PER.RPT.G7699V00,DISP=SHR +//*ORTIN DD DSN=DOESTAX.DEVL.RATE518.RPT.AN2019,DISP=SHR +//*ORTIN DD DSN=DOESTAX.TEST.FUTA704.RPT.CY2022,DISP=SHR +//* 00006399 +//SORTOUT DD DSN=&&SRTRPT, 00006899 +// DISP=(,PASS,DELETE), 00006999 +// UNIT=SYSDA, 00007099 +// SPACE=(8192,(1000,1000),RLSE), 00007199 +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00007299 +//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR 00007399 +//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00007499 +//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00008099 +//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00009099 +//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00010099 +//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00011099 +//* 00018000 +//STEP0200 EXEC PGM=DTSBD800, OUTPUT GENERATION 00018100 +//** TIME=(0,20), 00018299 +// COND=(0,LT) 00018300 +//SYSOUT DD SYSOUT=* 00018400 +//SYSABOUT DD SYSOUT=* 00018500 +//SYSUDUMP DD SYSOUT=* 00018600 +//*BD800,INC,122,614 +//PARMIN DD * 00018899 +DTSBD800,INC,713 00019199 +/* 00019599 +//** 00019699 +//ATLSTIN DD * 00020000 +DTSBD800, 00030000 +/* 00031000 +//** 117 W CLASS 00040099 +//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00050099 +//**** NEED FOR 604 ONLY***** 00051099 +//** 00060000 +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00070099 +//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00071099 +// AMP=('BUFNI=5,BUFND=10') 00080000 +//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, 00071099 +// AMP=('BUFNI=5,BUFND=10') 00080000 +//DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR, 00071099 +// AMP=('BUFNI=5,BUFND=10') 00080000 +//* 00090099 +//*DOESVRO1 DD DSN=&&LABELS,DISP=(OLD,PASS,DELETE) 00100099 +//* 00100199 +//RPT122R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* 00100299 +//RPT122R2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT122R3 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT122R4 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT122R5 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT614R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT614R2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT907R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT907R2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT980R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT102R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* 00100299 +//RPT109R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT112R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT115R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT309R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* 00100299 +//RPT309R2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT903R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT903R2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT414R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* 00100299 +//RPT414R2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT414R3 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT414R4 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT414R5 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT414R6 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT713R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +//RPT713R2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* +// +// +//RPT140R2 DD SYSOUT=X 00100299 +//RPT325R1 DD SYSOUT=X 00100299 +//RPT405R1 DD SYSOUT=* 00100299 +//RPT405R2 DD SYSOUT=* 00100299 +//RPT412R1 DD SYSOUT=* 00100299 +//RPT412R2 DD SYSOUT=* 00100299 +//RPT412R3 DD SYSOUT=* 00100299 +//RPT530R1 DD SYSOUT=* 00100299 +//*PT615R1 DD SYSOUT=* 00100299 +//RPT615R1 DD DSN=DOESTAX.DEVL.RPT615.TXT,DISP=SHR 00100299 +//RPT615R2 DD SYSOUT=* 00100299 +//DTSBX212 DD DSN=ECNTSUP.DOESTAX.DEVL.FTP.BX212,DISP=SHR +//RPT503R1 DD SYSOUT=* 00100299 +//RPT503R2 DD SYSOUT=* 00100299 +//RPT503R3 DD DSN=DOESTAX.DEVL.ESSP.RATE.AN2019,DISP=SHR 00100299 +//RPT521R1 DD DSN=DOESTAX.HTST.RPT521R1,DISP=SHR 00100299 +//RPT517R1 DD SYSOUT=* 00100299 +//RPT517R2 DD SYSOUT=* 00100299 +//RPT517R3 DD SYSOUT=* 00100299 +//RPT515R1 DD SYSOUT=* 00100299 +//RPT515R2 DD SYSOUT=* 00100299 +//RPT515R3 DD SYSOUT=* 00100299 +//RPT515R4 DD DSN=DOESTAX.HTST.RTE2025.RPT515R4.TXT,DISP=SHR 00100299 +//RPT793R2 DD DSN=DOESTAX.DEVL.RPT793R1.TXT,DISP=SHR +//RPT793R3 DD DSN=DOESTAX.DEVL.RPT793R2.TXT,DISP=SHR +//RPT793R1 DD SYSOUT=* 00100299 +//RPT909R1 DD SYSOUT=* 00100299 +//RPT909R2 DD SYSOUT=* 00100299 +//RPT909R3 DD SYSOUT=* 00100299 +//RPT909R4 DD SYSOUT=* 00100299 +//RPT909R5 DD SYSOUT=* 00100299 +//RPT909R6 DD SYSOUT=* 00100299 +//RPT909R7 DD DSN=DOESTAX.DEVL.PFL.RPT909R1.TXT,DISP=SHR 00100299 +//RPT909R8 DD SYSOUT=* 00100299 +//RPT909R9 DD SYSOUT=* 00100299 +//RPT907R1 DD SYSOUT=* 00100299 +//RPT907R2 DD SYSOUT=* 00100299 +//RPT316R1 DD SYSOUT=* 00100299 +//RPT316R2 DD SYSOUT=* 00100299 +//RPT439R1 DD SYSOUT=* 00100299 +//RPT439R2 DD SYSOUT=* 00100299 +//RPT320R1 DD SYSOUT=* 00100299 +//RPT320R2 DD SYSOUT=* 00100299 +//RPT320R3 DD SYSOUT=* 00100299 +//RPT320R4 DD SYSOUT=* 00100299 +//RPT321R1 DD SYSOUT=* 00100299 +//RPT321R2 DD SYSOUT=* 00100299 +//RPT321R3 DD SYSOUT=* 00100299 +//RPT321R4 DD SYSOUT=* 00100299 +//RPT332R1 DD SYSOUT=* 00100299 +//RPT332R2 DD SYSOUT=* 00100299 +//RPT332R3 DD SYSOUT=* 00100299 +//RPT305R1 DD SYSOUT=* 00100299 +//RPT305R2 DD SYSOUT=* 00100299 +//RPT305R3 DD SYSOUT=* 00100299 +//RPT306R1 DD SYSOUT=* 00100299 +//RPT306R2 DD SYSOUT=* 00100299 +//RPT306R3 DD SYSOUT=* 00100299 +//RPT713R1 DD SYSOUT=* 00100299 +//RPT713R2 DD SYSOUT=* 00100299 +//RPT704R1 DD SYSOUT=* 00100299 +//RPT704R2 DD SYSOUT=* 00100299 +//RPT705R1 DD SYSOUT=* 00100299 +//RPT705R2 DD SYSOUT=* 00100299 +//RPT102R1 DD SYSOUT=* 00100299 +//RPT102R2 DD SYSOUT=* 00100399 +//RPT102R3 DD SYSOUT=* 00100499 +//RPT108R1 DD SYSOUT=* 00100299 +//RPT108R2 DD SYSOUT=* 00100399 +//RPT108R3 DD SYSOUT=* 00100499 +//RPC110R1 DD SYSOUT=* 00100699 +//RPC110R2 DD SYSOUT=* 00100799 +//RPT131R1 DD SYSOUT=* 00100699 +//RPT131R2 DD SYSOUT=* 00100799 +//RPT119R1 DD SYSOUT=* 00100699 +//RPT319R1 DD SYSOUT=* 00100699 +//RPT319R2 DD SYSOUT=* 00100799 +//RPT316R1 DD SYSOUT=* 00100699 +//RPT316R2 DD SYSOUT=* 00100799 +//RPT112R1 DD SYSOUT=* 00100699 +//RPT112R2 DD SYSOUT=* 00100799 +//RPT115R1 DD SYSOUT=* 00100699 +//RPT115R2 DD SYSOUT=* 00100799 +//RPT117R1 DD SYSOUT=* 00100899 +//RPT117R2 DD SYSOUT=* 00100899 +//RPT791R1 DD DSN=DOESTAX.DEVL.R791ADM,DISP=SHR 00100899 +//RPT403R1 DD SYSOUT=* 00100899 +//RPT403R2 DD SYSOUT=* 00100899 +//RPT405R1 DD SYSOUT=* 00100899 +//RPT405R2 DD SYSOUT=* 00100899 +//RPT461R1 DD SYSOUT=* 00100899 +//RPT461R2 DD SYSOUT=* 00100899 +//RPT461R3 DD SYSOUT=* 00100899 +//RPT451R1 DD SYSOUT=* 00100899 +//RPT451R2 DD SYSOUT=* 00100899 +//RPT417R1 DD SYSOUT=* 00100899 +//RPT417R2 DD SYSOUT=* 00100899 +//RPT452R1 DD SYSOUT=* 00100899 +//RPT452R2 DD SYSOUT=* 00100899 +//RPT455R1 DD SYSOUT=* 00100899 +//RPT455R2 DD SYSOUT=* 00100899 +//RPC120R1 DD SYSOUT=* 00100899 +//RPC130R1 DD SYSOUT=* 00100999 +//RPT602R1 DD SYSOUT=* 00100999 +//RPT602R2 DD SYSOUT=* 00100999 +//RPT602R3 DD SYSOUT=* 00100999 +//RPT604R1 DD SYSOUT=* 00100999 +//RPT604R2 DD SYSOUT=* 00100999 +//RPT615R1 DD SYSOUT=* 00100999 +//RPT602F3 DD DUMMY 00100999 +//RPT726R1 DD SYSOUT=* 00100899 +//RPT726R2 DD SYSOUT=* 00100999 +//RPT909R1 DD SYSOUT=* 00100899 +//RPT909R2 DD SYSOUT=* 00100999 +//RPT909R3 DD SYSOUT=* 00100999 +//RPT909R4 DD SYSOUT=* 00100999 +//RPT909R5 DD SYSOUT=* 00100999 +//RPT909R6 DD SYSOUT=* 00100999 +//RPT980R1 DD SYSOUT=* 00100999 +//** REVENUE REFUND VOUCHER +//RPT303R1 DD SYSOUT=O,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** LETTER FOR 303R1 (309R1 FORM) +//RPT303R2 DD SYSOUT=I,HOLD=&LVDHOLD., +// DEST=&LDEST. +//RPT303R3 DD DSN=DOESTAX.DEVL.FTP.REFUND.X303EXP,DISP=SHR +//** +//** DEPOSIT TRANSMITTAL FILE FOR WEB +//RPT202R1 DD DSN=DOESTAX.&LVLNODE..R202.ICESA,DISP=SHR +//RTSX202F DD DSN=DOESTAX.&LVLNODE..DEPOSIT.X202EXP,DISP=SHR +//** ACCOUNT NUMBER CHANGED +//RPT204R1 DD DSN=DOESTAX.&LVLNODE..RPT204, +//** DISP=(NEW,CATLG,CATLG), +// DISP=(OLD,KEEP,KEEP), +// UNIT=SYSDA, +// SPACE=(CYL,(5,5),RLSE), +// DCB=(RECFM=FBA,LRECL=134,BLKSIZE=134) +//* +//** CFO REFUND EXPORT FILE +//RPT303R3 DD DSN=DOESTAX.&LVLNODE..FTP.REFUND.X303EXP, +//** DISP=(NEW,CATLG,CATLG), +// DISP=(MOD,KEEP,KEEP), +//** DISP=(OLD,KEEP,KEEP), +// UNIT=SYSDA, +// SPACE=(CYL,(10,5),RLSE), +// DCB=(RECFM=FB,LRECL=750,BLKSIZE=30000) +//* +//RPT309R1 DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=134,BLKSIZE=134) 00100999 +//RPT309R2 DD SYSOUT=* 00100999 +//RPT319R1 DD SYSOUT=* 00100999 +//RPT319R2 DD SYSOUT=* 00100999 +//** ADMIN ASSESSMENT BILL +//RPT325R1 DD SYSOUT=W,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** +//RPT403R1 DD SYSOUT=* 00100999 +//RPT403R2 DD SYSOUT=* 00100999 +//RPT405R1 DD SYSOUT=* 00100999 +//RPT405R2 DD SYSOUT=* 00100999 +//RPT405R3 DD SYSOUT=* 00100999 +//RPT451R1 DD SYSOUT=* 00100999 +//RPT451R2 DD SYSOUT=* 00100999 +//RPT414R1 DD SYSOUT=* 00100999 +//RPT412R2 DD SYSOUT=* 00100999 +//RPT412R1 DD SYSOUT=* 00100999 +//RPT414R2 DD SYSOUT=* 00100999 +//RPT421R1 DD SYSOUT=* 00100999 +//RPT421R2 DD SYSOUT=* 00100999 +//RPT301R1 DD DSN=DOESTAX.DEVL.REPORT.R301,DISP=SHR 00100999 +//RPT302R1 DD DSN=DOESTAX.DEVL.REPORT.R302,DISP=SHR 00100999 +//RPT414R3 DD SYSOUT=* 00100999 +//**T414R4 DD DSN=DOESTAX.DEVL.R414.EXCL.RPT2,DISP=SHR 00100999 +//RPT414R4 DD SYSOUT=* 00100999 +//RPT414R5 DD SYSOUT=* 00100999 +//RPT414R6 DD SYSOUT=* 00100999 +//RPT415R1 DD SYSOUT=* 00100999 +//RPT415R2 DD SYSOUT=* 00100999 +//RPT433R1 DD SYSOUT=I +//RPT433R2 DD SYSOUT=* 00100999 +//RPT506R1 DD SYSOUT=* 00100999 +//*PT506R1 DD DSN=DOESTAX.&LVLNODE..RPT506R1.EXP, +//** DISP=(NEW,CATLG,CATLG), +//* DISP=(OLD,KEEP,KEEP), +//* UNIT=SYSDA, +//* SPACE=(CYL,(10,5),RLSE), +//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) +//* +//RPT506R2 DD SYSOUT=* 00100999 +//RPT507R1 DD SYSOUT=* 00100999 +//*PT507R1 DD DSN=DOESTAX.&LVLNODE..RPT507R1.EXP, +//** DISP=(NEW,CATLG,CATLG), +//* DISP=(OLD,KEEP,KEEP), +//* UNIT=SYSDA, +//* SPACE=(CYL,(10,5),RLSE), +//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) +//* +//RPT507R2 DD SYSOUT=* 00100999 +//RPT515R1 DD SYSOUT=* 00100999 +//RPT515R1 DD DSN=DOESTAX.&LVLNODE..RPT515R1.EXP, +//* DISP=(NEW,CATLG,CATLG), +// DISP=(OLD,KEEP,KEEP), +// UNIT=SYSDA, +// SPACE=(CYL,(10,5),RLSE), +// DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) +//* +//RPT515R2 DD SYSOUT=* 00100999 +//RPT515R3 DD SYSOUT=* 00100999 +//** ETA204 REPORT +//*PT517R1 DD SYSOUT=* +//* DEST=&LDEST., +//* HOLD=&LVDHOLD +//RPT517R1 DD DSN=DOESTAX.&LVLNODE..RPT517R1.EXP, +//** DISP=(NEW,CATLG,CATLG), +// DISP=(OLD,KEEP,KEEP), +// UNIT=SYSDA, +// SPACE=(CYL,(10,5),RLSE), +// DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) +//* +//RPT517R2 DD SYSOUT=* 00100999 +//RPT520R1 DD DSN=DOESTAX.&LVLNODE..RPT520R1.EXP, +//** DISP=(NEW,CATLG,CATLG), +// DISP=(OLD,KEEP,KEEP), +// UNIT=SYSDA, +// SPACE=(CYL,(10,5),RLSE), +// DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) +//* +//*RPT521R1 DD SYSOUT=* 00100999 +//*PT521R1 DD DSN=DOESTAX.&LVLNODE..RPT521R1.EXP, +//** DISP=(NEW,CATLG,CATLG), +//*** DISP=(MOD,KEEP,KEEP), +//* DISP=(OLD,KEEP,KEEP), +//* UNIT=SYSDA, +//* SPACE=(CYL,(10,5),RLSE), +//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) +//* +//*PT521R2 DD SYSOUT=* 00100999 +//RPT503R1 DD SYSOUT=* 00100999 +//RPT503R2 DD SYSOUT=* 00100999 +//RPT522R1 DD DSN=DOESTAX.&LVLNODE..RPT522R1.EXP, +//** DISP=(NEW,CATLG,CATLG), +// DISP=(OLD,KEEP,KEEP), +// UNIT=SYSDA, +// SPACE=(CYL,(10,5),RLSE), +// DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) +//* +//RPT516R1 DD SYSOUT=* 00100999 +//RPT516R2 DD SYSOUT=* 00100999 +//RPT416R1 DD SYSOUT=* 00100999 +//RPT416R2 DD SYSOUT=* 00100999 +//RPT316R1 DD SYSOUT=* 00100999 +//RPT316R2 DD SYSOUT=* 00100999 +//RPT417R1 DD SYSOUT=* 00100999 +//RPT417R2 DD SYSOUT=* 00100999 +//RPT325R5 DD SYSOUT=* 00100999 +//RPT325R4 DD SYSOUT=* 00100999 +//RPT325R3 DD SYSOUT=* 00100999 +//RPT325R2 DD SYSOUT=* 00100999 +//** ETA-581 SPEC DEPT OF LABOR REPORT +//RPT713R2 DD SYSOUT=O,COPIES=8 +//** DEST=&LDEST. +//RPT434R2 DD SYSOUT=* 00100999 +//RPT434R1 DD SYSOUT=* 00100999 +//RPT901R1 DD SYSOUT=* 00100999 +//RPT901R2 DD SYSOUT=* 00100999 +//RPT910R3 DD SYSOUT=* 00100999 +//RPT910R2 DD SYSOUT=* 00100999 +//RPT910R1 DD SYSOUT=* 00100999 +//RTS910F1 DD DUMMY 00100999 +//RST316R1 DD DSN=DOESTAX.DEVL.ESTQ062,DISP=SHR 00100999 +//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00007499 +//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00008099 +//REPORTF1 DD DSN=&&REPORTF1, +// DISP=(,PASS,DELETE), +// UNIT=SYSDA, +// SPACE=(18000,(100,100),RLSE), +// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000) +//RPT604R1 DD SYSOUT=* 00100999 +//RPT711R1 DD SYSOUT=* 00100999 +//RPT608R1 DD SYSOUT=* 00100999 +//RPT606R1 DD SYSOUT=* 00100999 +//RPT606R2 DD SYSOUT=* 00100999 +//RPT902R1 DD SYSOUT=* 00100999 +//RPT902R2 DD SYSOUT=* 00100999 +//RTS902F1 DD SYSOUT=* 00100999 +//RTS902F2 DD SYSOUT=* 00100999 +//RTP902F1 DD SYSOUT=* 00100999 +//RPT903R1 DD SYSOUT=* 00100999 +//RPT903R2 DD SYSOUT=* 00101099 +//RPT907R1 DD SYSOUT=* 00100999 +//RPT907R2 DD SYSOUT=* 00101099 +//RPC150R1 DD SYSOUT=* 00101199 +//RPC160R1 DD SYSOUT=* 00101299 +//RPT908R1 DD SYSOUT=* 00106799 +//*************************************************************** 00106899 +//PRINTER DD SYSOUT=* 00110599 +//** CONTROL REPORT SUMMARY 00110699 +//RPT980R1 DD SYSOUT=Q,COPIES=2, 00110799 +// HOLD=YES, 00110899 +// DEST=U@PRT65 00110999 +//** 00111000 +//* 00120099 +//STEP0500 EXEC PGM=DOESLABL, PRINT DOES LABELS 00131099 +// COND=(0,LT), 00140099 +// REGION=4096K 00150099 +//SYSOUT DD SYSOUT=* 00151099 +//SYSABOUT DD SYSOUT=* 00152099 +//SYSABEND DD SYSOUT=* 00153099 +//CAIMRPTS DD SYSOUT=* 00154099 +//DOESLBL1 DD SYSOUT=* 00155299 +//DOESVRI1 DD DSN=&&LABELS,DISP=(OLD,DELETE,DELETE) 00156199 +// 00157099 diff --git a/JCL/LISTCAT.JCL b/JCL/LISTCAT.JCL new file mode 100644 index 0000000..c5b07f6 --- /dev/null +++ b/JCL/LISTCAT.JCL @@ -0,0 +1,110 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X +//LISTCATK EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + LISTCAT - + ENTRIES(DOESTAX.PROD.VSAM.MSTA) - + CLUSTER - + ALL +/* +//* +//LISTCATK EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + LISTCAT - + ENTRIES(DOESTAX.PROD.VSAM.MSTB) - + CLUSTER - + ALL +/* +//* +//LISTCATK EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + LISTCAT - + ENTRIES(DOESTAX.PROD.VSAM.MSTC) - + CLUSTER - + ALL +/* +//* +//LISTCATK EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + LISTCAT - + ENTRIES(DOESTAX.PROD.VSAM.MSTD) - + CLUSTER - + ALL +/* +//* +//LISTCATK EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + LISTCAT - + ENTRIES(DOESTAX.PROD.VSAM.MSTE) - + CLUSTER - + ALL +/* +//* +//LISTCATK EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + LISTCAT - + ENTRIES(DOESTAX.PROD.VSAM.MSTF) - + CLUSTER - + ALL +/* +//* +//LISTCATK EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + LISTCAT - + ENTRIES(DOESTAX.PROD.VSAM.MSTF) - + CLUSTER - + ALL +/* +//* +//LISTCATK EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + LISTCAT - + ENTRIES(DOESTAX.PROD.VSAM.MSTG) - + CLUSTER - + ALL +/* +//* +//LISTCATK EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + LISTCAT - + ENTRIES(DOESTAX.PROD.VSAM.MSTH) - + CLUSTER - + ALL +/* +//* +//LISTCATK EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + LISTCAT - + ENTRIES(DOESTAX.PROD.VSAM.MSTI) - + CLUSTER - + ALL +/* +//* +//LISTCATK EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + LISTCAT - + ENTRIES(DOESTAX.PROD.VSAM.MSTJ) - + CLUSTER - + ALL +/* +//* +//LISTCATK EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + LISTCAT - + ENTRIES(DOESTAX.PROD.VSAM.AIX) - + CLUSTER - + ALL +/* +// +// \ No newline at end of file diff --git a/JCL/LOADESSP..jcl b/JCL/LOADESSP..jcl new file mode 100644 index 0000000..1358de2 --- /dev/null +++ b/JCL/LOADESSP..jcl @@ -0,0 +1,116 @@ +//IMPMF04 JOB +//* +//*STEP001 EXEC PGM=IEFBR14 +//*SYSPRINT DD SYSOUT=* +//*SYSOUT DD SYSOUT=* +//*DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1), +//* DISP=(NEW,CATLG,CATLG), +//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192), +//* PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00', +//* COPY) +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102', +// COPY) +//* +//STEP003 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104', +// COPY) +//* +//STEP004 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108', +// COPY) +//* +//STEP006 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110', +// COPY) +//* +//STEP007 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD', +// COPY) +//* +//STEP008 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120', +// COPY) +//* +//STEP009 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD', +// COPY) +//* +//STEP010 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140', +// COPY) +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144', +// COPY) +//* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145', +// COPY) +//* +//STEP013 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147', +// COPY) +//* +//STEP013 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR, +// DCB=(LRECL=80,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999', +// COPY) +//* +// \ No newline at end of file diff --git a/JCL/LOADESSP.jcl b/JCL/LOADESSP.jcl new file mode 100644 index 0000000..d65ba81 --- /dev/null +++ b/JCL/LOADESSP.jcl @@ -0,0 +1,206 @@ +//IMPMF04 JOB +//* +//*STEP001 EXEC PGM=IEFBR14 +//*SYSPRINT DD SYSOUT=* +//*SYSOUT DD SYSOUT=* +//*DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1), +//* DISP=(NEW,CATLG,CATLG), +//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192), +//* PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00', +//* COPY) +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102', +// COPY) +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP003 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104', +// COPY) +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP004 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106', +// COPY) +//* +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP004 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD', +// COPY) +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108', +// COPY) +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP006 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110', +// COPY) +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP007 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD', +// COPY) +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP008 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120', +// COPY) +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP009 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD', +// COPY) +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP010 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140', +// COPY) +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144', +// COPY) +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145', +// COPY) +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP013 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147', +// COPY) +/* +// \ No newline at end of file diff --git a/JCL/LOADESSPX999..jcl b/JCL/LOADESSPX999..jcl new file mode 100644 index 0000000..1a1a84d --- /dev/null +++ b/JCL/LOADESSPX999..jcl @@ -0,0 +1,107 @@ +//IMPMF04 JOB +//* +//*STEP001 EXEC PGM=IEFBR14 +//*SYSPRINT DD SYSOUT=* +//*SYSOUT DD SYSOUT=* +//*DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1), +//* DISP=(NEW,CATLG,CATLG), +//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192), +//* PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00', +//* COPY) +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102', +// COPY) +//* +//STEP003 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104', +// COPY) +//* +//STEP004 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108', +// COPY) +//* +//STEP006 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110', +// COPY) +//* +//STEP007 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD', +// COPY) +//* +//STEP008 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120', +// COPY) +//* +//STEP009 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD', +// COPY) +//* +//STEP010 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140', +// COPY) +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144', +// COPY) +//* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145', +// COPY) +//* +//STEP013 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147', +// COPY) +//* \ No newline at end of file diff --git a/JCL/LOADOTHRS..jcl b/JCL/LOADOTHRS..jcl new file mode 100644 index 0000000..229c9a7 --- /dev/null +++ b/JCL/LOADOTHRS..jcl @@ -0,0 +1,76 @@ +//IMPMF04 JOB +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,DISP=SHR +//* DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.AUDIT.X144', +// COPY) +//* +//STEP006 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR +//* DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT', +// COPY) +//* +//STEP007 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,DISP=SHR +//* DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN', +// COPY) +//* +//STEP008 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,DISP=SHR +//* DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FTP.PFLOTR', +// COPY) +//* +//STEP009 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES=SHR +//* DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES', +// COPY) +//* +//STEP010 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR +//* DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS', +// COPY) +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTDOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR +//* DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMT', +// COPY) +//* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,DISP=SHR +//* DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD', +// COPY) +//* +//STEP013 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1), +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0261V00', +// COPY) +/* +// \ No newline at end of file diff --git a/JCL/LOADOTHRS.jcl b/JCL/LOADOTHRS.jcl new file mode 100644 index 0000000..405615f --- /dev/null +++ b/JCL/LOADOTHRS.jcl @@ -0,0 +1,235 @@ +//IMPMF04 JOB +//* +//*STEP005 EXEC PGM=IEFBR14 +//*SYSPRINT DD SYSOUT=* +//*SYSOUT DD SYSOUT=* +//*DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP, +//* DISP=(OLD,DELETE,DELETE) +//* +//*STEP013 EXEC PGM=IEFBR14 +//*SYSPRINT DD SYSOUT=* +//*SYSOUT DD SYSOUT=* +//*DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP, +//* DISP=(NEW,CATLG,DELETE), +//* DCB=(LRECL=109,RECFM=FB), +//* PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP', +//* COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=256,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.AUDIT.X144', +// COPY) +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP006 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT', +// COPY) +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP007 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP008 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=386,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FTP.PFLOTR', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP009 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP010 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD, +/ DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=200,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X150', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X151', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X152', +// COPY) +//* +//STEP013 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1), +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=80,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0263V00', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=80,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP013 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=109,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP013 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=101,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X305PARM', +// COPY) +//* +// \ No newline at end of file diff --git a/JCL/LOADWAGPAY.jcl b/JCL/LOADWAGPAY.jcl new file mode 100644 index 0000000..03b6004 --- /dev/null +++ b/JCL/LOADWAGPAY.jcl @@ -0,0 +1,31 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP009 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP009 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS', +// COPY) +//* diff --git a/JCL/LOADX150.jcl b/JCL/LOADX150.jcl new file mode 100644 index 0000000..82b511d --- /dev/null +++ b/JCL/LOADX150.jcl @@ -0,0 +1,56 @@ +//IMPMF04 JOB +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X150', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X151', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X152', +// COPY) +//* +//STEP013 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1), +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=80,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0263V00', +// COPY) +//* diff --git a/JCL/LOADX999.Jcl b/JCL/LOADX999.Jcl new file mode 100644 index 0000000..8ef8a01 --- /dev/null +++ b/JCL/LOADX999.Jcl @@ -0,0 +1,17 @@ +//IMPMF04 JOB +//* +//*STEP017 EXEC PGM=IEFBR14 +//*SYSPRINT DD SYSOUT=* +//*SYSOUT DD SYSOUT=* +//*DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999, +//* DISP=(OLD,DELETE,DELETE) +//* +//STEP013 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999', +// COPY) +//* \ No newline at end of file diff --git a/JCL/LOADmini.jcl b/JCL/LOADmini.jcl new file mode 100644 index 0000000..6d1254b --- /dev/null +++ b/JCL/LOADmini.jcl @@ -0,0 +1,199 @@ +//IMPMF04 JOB +//* +//STEP013 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1), +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=80,RECFM=FB,BLKSIZE=8000), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0270V00', +// COPY) +// +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=256,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.AUDIT.X144', +// COPY) +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP006 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT', +// COPY) +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP007 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP008 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FTP.PFLOTR', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP009 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=256,RECFM=VB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP010 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=256,RECFM=VB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=256,RECFM=VB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD, +/ DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=200,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X150', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X151', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X152', +// COPY) +//* +//STEP013 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1), +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=80,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0263V00', +// COPY) +//* +//STEP005 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999, +// DISP=(NEW,CATLG,DELETE), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999', +// COPY) +//* +// \ No newline at end of file diff --git a/JCL/RUNPBKUP.jcl b/JCL/RUNPBKUP.jcl index d8caf25..7350313 100644 --- a/JCL/RUNPBKUP.jcl +++ b/JCL/RUNPBKUP.jcl @@ -71,7 +71,7 @@ //SYSUDUMP DD SYSOUT=* 00810000 //SYSPRINT DD SYSOUT=* 00820000 //INPDS DD DSN=DOESTAX.PROD.PROCS.BATCH.LIB,DISP=SHR 00821000 -//BACKUP DD DSN=DOESTAX.PROD.BKUP.PROCS.BATCH.LIB(+1), 00822001 +//BACKUP DD DSN=DOESTAX.PROD.BKUP.PROCLIB(+1), 00822001 // DISP=(,CATLG,DELETE), 00840000 // UNIT=SYSDA, 00850000 // SPACE=(8000,(2000,500,500)), 00860001 diff --git a/JCL/RepUPESSP.jcl b/JCL/RepUPESSP.jcl new file mode 100644 index 0000000..6fe8134 --- /dev/null +++ b/JCL/RepUPESSP.jcl @@ -0,0 +1,328 @@ +//IMPMF04 JOB +//* +//STEP010 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN, +// DISP=(OLD,DELETE,DELETE) +//* +//STEP010 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=&&IMP001, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN', +// COPY) +//* +//STEP010 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=&&IMP001,DISP=(OLD,DELETE,DELETE) +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN, +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,10),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +// +//STEP010 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=&&imp001, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT', +// COPY) +//* +//STEP010 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0110,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0111, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102', +// COPY) +//* +//STEP011 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0111,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102, +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,10),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0112, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104', +// COPY) +//* +//STEP012 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0112,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104, +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,10),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP013 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0114, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120', +// COPY) +//* +//STEP013 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0114,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +// +//STEP014 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0114, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108', +// COPY) +//* +//STEP014 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0114,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108, +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,10),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP015 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0115, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110', +// COPY) +//* +//STEP015 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0115,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110, +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,10),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP016 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0116, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD', +// COPY) +//* +//STEP016 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0116,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD, +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,10),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP017 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0117, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120', +// COPY) +//* +//STEP017 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0117,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120, +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,10),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP018 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0118, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD', +// COPY) +//* +//STEP018 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0118,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD, +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,10),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +//* +//* +// +//STEP019 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0119, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140', +// COPY) +//* +//STEP019 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0119,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP025 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0125, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144', +// COPY) +//* +//STEP025 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0125,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP020 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0120, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145', +// COPY) +//* +//STEP020 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0120,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP021 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0121, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147', +// COPY) +//* +//STEP021 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0121,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP022 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0122, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=80,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999', +// COPY) +//* +//STEP022 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0122,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999, +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,10),RLSE), +// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +// \ No newline at end of file diff --git a/JCL/ReprintReports.jcl b/JCL/ReprintReports.jcl new file mode 100644 index 0000000..1c994d3 --- /dev/null +++ b/JCL/ReprintReports.jcl @@ -0,0 +1,83 @@ +//ECNT800Z JOB (UI,4300,3400,T),'CHGBD100',CLASS=A,MSGCLASS=X, 00000199 +// NOTIFY=ECNTZL1,REGION=0M 00000299 +//* 00000499 +// SET LVLNODE='DEVL' 00000599 +// SET MSTNODE='PROD' 00000699 +// SET LVDHOLD='YES' /* VIEW DIRECT JOBS +// SET LDEST='LOCAL' +// SET PGMNODE='DEVL' 00000799 +//PROCLIB JCLLIB ORDER=ECNTZL1.DOESTAX.DEVL.PROCS.BATCH.LIB 00001399 +//*ROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001399 +//* 00001400 +/********************************************************************* 00004549 +//STEP0100 EXEC PGM=SORT, 00004600 +// COND=(0,LT) 00004700 +//SYSOUT DD SYSOUT=* 00004800 +//SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT.DD080925,DISP=SHR 00005099 +//*ORTIN DD DSN=DOESTAX.PROD.SRTMONTH.RPT(-2),DISP=SHR 00005099 +//* 00006399 +//SORTOUT DD DSN=&&SRTRPT, 00006899 +// DISP=(,PASS,DELETE), 00006999 +// UNIT=SYSDA, 00007099 +// SPACE=(8192,(1000,1000),RLSE), 00007199 +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00007299 +//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR 00007399 +//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00007499 +//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00008099 +//* 00018000 +//STEP0200 EXEC PGM=DTSBD800, OUTPUT GENERATION 00018100 +//** TIME=(0,20), 00018299 +// COND=(0,LT) 00018300 +//SYSOUT DD SYSOUT=* 00018400 +//SYSABOUT DD SYSOUT=* 00018500 +//SYSUDUMP DD SYSOUT=* 00018600 +//*BD800,INC,102,103,105,108,109.112.115.117.127.319 00018799 +//PARMIN DD * 00018899 +DTSBD800,INC,503 00019199 +/* 00019599 +//** 00019699 +//ATLSTIN DD * 00020000 +DTSBD800, 00030000 +/* 00031000 +//** 117 W CLASS 00040099 +//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00050099 +//**** NEED FOR 604 ONLY***** 00051099 +//** 00060000 +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00070099 +//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00071099 +// AMP=('BUFNI=5,BUFND=10') 00080000 +//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, 00071099 +// AMP=('BUFNI=5,BUFND=10') 00080000 +//DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR, 00071099 +// AMP=('BUFNI=5,BUFND=10') 00080000 +//* 00090099 +//*DOESVRO1 DD DSN=&&LABELS,DISP=(OLD,PASS,DELETE) 00100099 +//* 00100199 +//RPT503R1 DD SYSOUT=X 00100299 +//RPT503R2 DD SYSOUT=X 00100299 +//RPT325R1 DD SYSOUT=X 00100299 +//RPT405R1 DD SYSOUT=* 00100299 +//RPT405R2 DD SYSOUT=* 00100299 +//RPT412R1 DD SYSOUT=* 00100299 +//RPT412R2 DD SYSOUT=* 00100299 +//RPT412R3 DD SYSOUT=* 00100299 +//RPT530R1 DD SYSOUT=* 00100299 +//RPT909R8 DD SYSOUT=* 00100299 +//RPT909R9 DD SYSOUT=* 00100299 +//RPT907R1 DD SYSOUT=* 00100299 +//RPT907R2 DD SYSOUT=* 00100299 +//RPT316R1 DD SYSOUT=* 00100299 +//RPT316R2 DD SYSOUT=* 00100299 +//RPT439R1 DD SYSOUT=* 00100299 +//RPT439R2 DD SYSOUT=* 00100299 +//RPT320R1 DD SYSOUT=* 00100299 +//RPT320R2 DD SYSOUT=* 00100299 +//RPT320R3 DD SYSOUT=* 00100299 +//RPT320R4 DD SYSOUT=* 00100299 +//RPT321R1 DD SYSOUT=* 00100299 +//RPT321R2 DD SYSOUT=* 00100299 +//RPT321R3 DD SYSOUT=* 00100299 +//RPT321R4 DD SYSOUT=* 00100299 +//RPT332R1 DD SYSOUT=* 00100299 +//RPT332R2 DD SYSOUT=* 00100299 +// diff --git a/JCL/ReproESSP.jcl b/JCL/ReproESSP.jcl new file mode 100644 index 0000000..ae40226 --- /dev/null +++ b/JCL/ReproESSP.jcl @@ -0,0 +1,299 @@ +//IMPMF04 JOB +//* +//STEP010 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=&&TMPZ0118, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.DOESESSP.X145DACH.DD082225', +// COPY) +//* +//STEP010 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=&&TMPZ0118,DISP=SHR +//SORTOUT DD DSN=DOESTAX.CONV.DOESESSP.X145DACH(+1), +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,10),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +// +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0111, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102', +// COPY) +//* +//STEP011 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0111,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0112, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104', +// COPY) +//* +//STEP012 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0112,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP013 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0113, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106', +// COPY) +//* +//STEP013 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0113,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP014 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0114, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108', +// COPY) +//* +//STEP014 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0114,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP015 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0115, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110', +// COPY) +//* +//STEP015 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0115,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP016 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0116, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD', +// COPY) +//* +//STEP016 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0116,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP017 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0117, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120', +// COPY) +//* +//STEP017 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0117,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP018 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0118, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD', +// COPY) +//* +//STEP018 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0118,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +//* +//* +// +//STEP019 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0119, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140', +// COPY) +//* +//STEP019 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0119,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP025 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0125, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144', +// COPY) +//* +//STEP025 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0125,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP020 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0120, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145', +// COPY) +//* +//STEP020 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0120,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP021 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0121, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147', +// COPY) +//* +//STEP021 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0121,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP022 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0122, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=80,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999', +// COPY) +//* +//STEP022 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0122,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999, +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,10),RLSE), +// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +// \ No newline at end of file diff --git a/JCL/ReproFLAT.jcl b/JCL/ReproFLAT.jcl new file mode 100644 index 0000000..cf684d9 --- /dev/null +++ b/JCL/ReproFLAT.jcl @@ -0,0 +1,19 @@ +//IMPMF04 JOB +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0001, +// DISP=(NEW,CATLG,CATLG), +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.ESSP.ACHDR.DD082225', +// COPY) +//* +//STEP004 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0001,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,DISP=SHR +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +// \ No newline at end of file diff --git a/JCL/ReproGCKS.jcl b/JCL/ReproGCKS.jcl new file mode 100644 index 0000000..68435fc --- /dev/null +++ b/JCL/ReproGCKS.jcl @@ -0,0 +1,24 @@ +//IMPMF04 JOB +//* +//*STEP002 EXEC PGM=IEFBR14 +//*SYSPRINT DD SYSOUT=* +//*SYSOUT DD SYSOUT=* +//*DD1001 DD DSN=TMP0199, +//* DISP=(,PASS,DELETE), +//* DISP=DHR, +//* DCB=(LRECL=512,RECFM=FB), +//* PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES', +//* COPY) +//* +//STEP004 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=DOESTAX.PROD.BD400.BTC.BACKUP.G0004V00,DISP=SHR +//SORTOUT DD DSN=DOESTAX.PROD.BTC(+1), +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,10),RLSE), +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8182) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +// \ No newline at end of file diff --git a/JCL/ReproGPAY.jcl b/JCL/ReproGPAY.jcl new file mode 100644 index 0000000..2ad686c --- /dev/null +++ b/JCL/ReproGPAY.jcl @@ -0,0 +1,24 @@ +//IMPMF04 JOB +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0006, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS', +// COPY) +//* +//STEP004 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0006,DISP=SHR +//SORTOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +// \ No newline at end of file diff --git a/JCL/ReproGWAG.jcl b/JCL/ReproGWAG.jcl new file mode 100644 index 0000000..6028ee8 --- /dev/null +++ b/JCL/ReproGWAG.jcl @@ -0,0 +1,24 @@ +//IMPMF04 JOB +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0008, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES', +// COPY) +//* +//STEP004 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0008,DISP=SHR +//SORTOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +// \ No newline at end of file diff --git a/JCL/ReproSRTD.jcl b/JCL/ReproSRTD.jcl new file mode 100644 index 0000000..0f627c0 --- /dev/null +++ b/JCL/ReproSRTD.jcl @@ -0,0 +1,300 @@ +//IMPMF04 JOB +//* +//STEP010 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=&&TMPZ0218, +// DISP=(,PASS,DELETE), +//* DISP=SHR, +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192), +// PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.XX091525', +// COPY) +//* +//STEP010 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=&&TMPZ0218,DISP=SHR +//SORTOUT DD DSN=DOESTAX.PROD.SRTDAILY.RPT(+1), +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(200,100),RLSE), +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +// +// +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0111, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102', +// COPY) +//* +//STEP011 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0111,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP012 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0112, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104', +// COPY) +//* +//STEP012 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0112,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP013 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0113, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106', +// COPY) +//* +//STEP013 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0113,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP014 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0114, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108', +// COPY) +//* +//STEP014 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0114,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP015 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0115, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110', +// COPY) +//* +//STEP015 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0115,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP016 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0116, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD', +// COPY) +//* +//STEP016 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0116,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP017 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0117, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120', +// COPY) +//* +//STEP017 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0117,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP018 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0118, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD', +// COPY) +//* +//STEP018 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0118,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +//* +//* +// +//STEP019 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0119, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140', +// COPY) +//* +//STEP019 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0119,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP025 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0125, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144', +// COPY) +//* +//STEP025 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0125,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP020 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0120, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145', +// COPY) +//* +//STEP020 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0120,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP021 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0121, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147', +// COPY) +//* +//STEP021 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0121,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +//STEP022 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0122, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=80,RECFM=FB), +// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999', +// COPY) +//* +//STEP022 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0122,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999, +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(20,10),RLSE), +// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +// \ No newline at end of file diff --git a/JCL/ReproVSAM.jcl b/JCL/ReproVSAM.jcl new file mode 100644 index 0000000..ec9a90d --- /dev/null +++ b/JCL/ReproVSAM.jcl @@ -0,0 +1,33 @@ +//IMPMF04 JOB + +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DELETE TMPM023 + DELETE DOESTAX.PROD.VSAM.BTNO + SET MAXCC=0 +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPM023, +// DISP=(NEW,CATLG,CATLG), +// DCB=(LRECL=10,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.PROD.RC.BKP.BTNO', +// COPY) +//* +//STEP003 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE CLUSTER (NAME(DOESTAX.PROD.VSAM.BTNO) INDEXED - + RECORDSIZE (10 10) - + KEYS (5 0) ) - + DATA (NAME(DOESTAX.PROD.VSAM.BTNO.DAT)) - + INDEX (NAME(DOESTAX.PROD.VSAM.BTNO.IDX)) +//* +//STEP004 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPM023,DISP=SHR +//SORTOUT DD DSN=DOESTAX.PROD.VSAM.BTNO,DISP=SHR +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) \ No newline at end of file diff --git a/JCL/ReproX145.jcl b/JCL/ReproX145.jcl new file mode 100644 index 0000000..b2505cd --- /dev/null +++ b/JCL/ReproX145.jcl @@ -0,0 +1,20 @@ +//IMPMF04 JOB +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0002, +// DISP=(NEW,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=512,RECFM=FB), +// PATH=('E:\FLAT_FILES\ecntsup.DOESTAX.CONV.fromESSP.x145', +// COPY) +//* +//STEP004 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0001,DISP=SHR +//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +// \ No newline at end of file diff --git a/JCL/ReproX303.jcl b/JCL/ReproX303.jcl new file mode 100644 index 0000000..62d9c63 --- /dev/null +++ b/JCL/ReproX303.jcl @@ -0,0 +1,24 @@ +//IMPMF04 JOB +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0004, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=750,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X303EXP', +// COPY) +//* +//STEP004 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0004,DISP=SHR +//SORTOUT DD DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +// \ No newline at end of file diff --git a/JCL/TDECMSG.JCL b/JCL/TDECMSG.JCL new file mode 100644 index 0000000..5171880 --- /dev/null +++ b/JCL/TDECMSG.JCL @@ -0,0 +1,93 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DELETE DOESTAX.CONV.MINICONV.TXT1 + SET MAXCC=0 +//* +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DELETE DOESTAX.CONV.SENTRPT.TXT + SET MAXCC=0 +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD DSN=DOESTAX.CONV.MINICONV.TXT1, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=80), +// PATH=('E:\flat_files\DOESTAX.CONV.MINICONV.TXT1', +// COPY) +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD DSN=DOESTAX.CONV.SENTRPT.TXT, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=80), +// PATH=('E:\flat_files\DOESTAX.CONV.SENTRPT.TXT', +// COPY) +// +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD DSN=DOESTAX.CONV.TDEC.ESSP.NOWAGES.TXT, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=80), +// PATH=('E:\flat_files\DOESTAX.CONV.TDEC.ESSP.NOWAGES.TXT', +// COPY) +// +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD DSN=DOESTAX.CONV.TDEC.ERORPAYT.TXT, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=80), +// PATH=('E:\flat_files\DOESTAX.CONV.TDEC.ERORPAYT.TXT', +// COPY) +// +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD DSN=DOESTAX.CONV.TDEC.NOCHECK.TXT, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=80), +// PATH=('E:\flat_files\DOESTAX.CONV.TDEC.NOCHECK.TXT', +// COPY) +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD DSN=DOESTAX.CONV.TDEC.ERORCHK.TXT, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=80), +// PATH=('E:\flat_files\DOESTAX.CONV.TDEC.ERORCHK.TXT', +// COPY) +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD DSN=DOESTAX.CONV.TDEC.ESSP.NOWAGES.TXT, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=80), +// PATH=('E:\flat_files\DOESTAX.CONV.TDEC.ESSP.NOWAGES.TXT', +// COPY) +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD DSN=DOESTAX.CONV.TDEC.ERORPAYT.TXT, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=80), +// PATH=('E:\flat_files\DOESTAX.CONV.TDEC.ERORPAYT.TXT', +// COPY) +// diff --git a/JCL/TESTMISSING.txt b/JCL/TESTMISSING.txt new file mode 100644 index 0000000..4f684fb --- /dev/null +++ b/JCL/TESTMISSING.txt @@ -0,0 +1,16 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X + +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DELETE DOESTAX.PROD.ESSP.FAILED.X140.G0002V00 + SET MAXCC=0 +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD DOESTAX.PROD.ESSP.FAILED.X140.G0002V00, +// DISP=(NEW,CATLG,CATLG), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=8192), +// PATH=('e:\IN\W\DTSBXREJ\DOESTAX.PROD.ESSP.FAILED.X140.G0002V00', +// COPY) diff --git a/JCL/XMITOTR2.jcl b/JCL/XMITOTR2.jcl index ccb847e..76540f3 100644 --- a/JCL/XMITOTR2.jcl +++ b/JCL/XMITOTR2.jcl @@ -19,7 +19,7 @@ // DD DSN=SYS1.CXR.SCXRRUN,DISP=SHR //**//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB //**//LOADLIBS INCLUDE MEMBER=DTSIJLIB -//* Z/OS 1.4 LLIB ORDER=SYS2.OS390V26.LP5ESV1P.PROCS.BATCH.LIB.SYS2OVER +//* Z/OS 1.4 LLIB ORDER=SYS2.OS390V26.LP5ESV1P.PROCLIB.SYS2OVER //**** //* DOWNLOAD EXTRACT FILE //** CHECK TXMTO12 FOR THE ENCRYPTION STEP //STEP0150 EXEC PGM=FTP,REGION=4M,COND=(0,LT), diff --git a/JCL/XMITTDC1.jcl b/JCL/XMITTDC1.jcl index aed65af..bb1a889 100644 --- a/JCL/XMITTDC1.jcl +++ b/JCL/XMITTDC1.jcl @@ -44,9 +44,9 @@ //SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 //SYSGET DD *,DCB=BLKSIZE=80 //INPUT DD * -10.82.193.144 -tdecftp -Cf65ou*13!c +10.57.110.147 +dutasrc +Today728rc! pwd ASCII PUT 'DOESTAX.CONV.TDECEXT' TDEC.TAXFILE diff --git a/JCL/copyACHD.jcl b/JCL/copyACHD.jcl new file mode 100644 index 0000000..b215449 --- /dev/null +++ b/JCL/copyACHD.jcl @@ -0,0 +1,15 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DELETE ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN + SET MAXCC=0 +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN, +// DISP=(NEW,CATLG,CATLG), +// DCB=(RECFM=FB,LRECL=512), +// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN', +// COPY) diff --git a/JCL/copyCHKS.JCL b/JCL/copyCHKS.JCL new file mode 100644 index 0000000..ef95347 --- /dev/null +++ b/JCL/copyCHKS.JCL @@ -0,0 +1,15 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DELETE DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS + SET MAXCC=0 +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS, +// DISP=(NEW,CATLG,CATLG), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120), +// PATH=('E:\flat_files\DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS', +// COPY) diff --git a/JCL/copyFileToCatalog.jcl.txt b/JCL/copyFileToCatalog.jcl.txt new file mode 100644 index 0000000..e3bf4fc --- /dev/null +++ b/JCL/copyFileToCatalog.jcl.txt @@ -0,0 +1,15 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DELETE ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN + SET MAXCC=0 +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN, +// DISP=(NEW,CATLG,CATLG), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120), +// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN', +// COPY) diff --git a/JCL/copySRTD.JCL b/JCL/copySRTD.JCL new file mode 100644 index 0000000..c054c0f --- /dev/null +++ b/JCL/copySRTD.JCL @@ -0,0 +1,21 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X +//*STEP001 EXEC PGM=IDCAMS +//*SYSPRINT DD SYSOUT=* +//*SYSIN DD * +//* DELETE DOESTAX.PROD.SRTDAILY.DD091525 +//* SET MAXCC=0 +//* +//*STEP011 EXEC PGM=IEFBR14 +//*SYSPRINT DD SYSOUT=* +//*SYSOUT DD SYSOUT=* +//*DD0011 DD DOESTAX.PROD.SRTDAILY.RPT.DD091525, +//* DISP=(OLD,DELETE,DELETE) +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1), +// DISP=(NEW,CATLG,CATLG), +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192), +// PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00', +// COPY) diff --git a/JCL/copyX145.JCL b/JCL/copyX145.JCL new file mode 100644 index 0000000..9e42bdb --- /dev/null +++ b/JCL/copyX145.JCL @@ -0,0 +1,15 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DELETE ECNTSUP.DOESTAX.CONV.FROMESSP.X145 + SET MAXCC=0 +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD ECNTSUP.DOESTAX.CONV.FROMESSP.X145, +// DISP=(NEW,CATLG,CATLG), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120), +// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.FROMESSP.X145', +// COPY) diff --git a/JCL/copyachr.jcl b/JCL/copyachr.jcl new file mode 100644 index 0000000..2863c15 --- /dev/null +++ b/JCL/copyachr.jcl @@ -0,0 +1,16 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X +//*STEP001 EXEC PGM=IDCAMS +//*SYSPRINT DD SYSOUT=* +//*SYSIN DD * +//* DELETE ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN +//* SET MAXCC=0 +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETZ, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120), +// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN', +// COPY) diff --git a/JCL/copyachrjcl b/JCL/copyachrjcl new file mode 100644 index 0000000..5a406d7 --- /dev/null +++ b/JCL/copyachrjcl @@ -0,0 +1,15 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DELETE ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN + SET MAXCC=0 +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN, +// DISP=(NEW,CATLG,CATLG), +// DCB=(RECFM=FB,LRECL=512,), +// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN', +// COPY) diff --git a/JCL/copymailfile.jcl b/JCL/copymailfile.jcl new file mode 100644 index 0000000..bae4ecf --- /dev/null +++ b/JCL/copymailfile.jcl @@ -0,0 +1,15 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DELETE ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101 + SET MAXCC=0 +//* +//STEP011 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0011 DD ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101, +// DISP=(NEW,CATLG,CATLG), +// DCB=(RECFM=VB,LRECL=256,BLKSIZE=0), +// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101', +// COPY) diff --git a/JCL/createGDG.jcl b/JCL/createGDG.jcl new file mode 100644 index 0000000..153cf95 --- /dev/null +++ b/JCL/createGDG.jcl @@ -0,0 +1,402 @@ +//CREGDG01 JOB (INNOVA,DEV,TEAM),NEERAJ,CLASS=S,MSGCLASS=X +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.BX420.RPT) - + LIMIT(255) - + EMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X425ACHD) - + LIMIT(20) - + EMPTY - + SCRATCH) +//***************************************************************** +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.TDECDOES.CHKPAY) - + LIMIT(20) - + EMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.TDECDOES.CHKPAY) - + LIMIT(20) - + EMPTY - + SCRATCH) +// +//****************************************************************** +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.FAILED.X144) - + LIMIT(10) - + EMPTY - DOESTAX.CONV.CURRMINI + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.FROMESSP.PASSED.X140) - + LIMIT(10) - + EMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X436PEND.TXT) - + LIMIT(10) - + EMPTY - + SCRATCH) +//* +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X436PAID.TXT) - + LIMIT(10) - + EMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.PROD.ESSP.PENDING.X145) - + LIMIT(10) - + EMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.PENDING.X144) - + LIMIT(10) - + EMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.PROD.ESSP.PENDING.X140) - + LIMIT(10) - + EMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X430PEND.TXT) - + LIMIT(10) - + EMPTY - + SCRATCH) +//* +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X430PAID.TXT) - + LIMIT(10) - + EMPTY - + SCRATCH) +//* +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.DEVL.X426.BTC) - + LIMIT(10) - + EMPTY - DOESTAX.CONV.ESSP.X430PAID.TXT + SCRATCH) +//* +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.AMEND.FAILED.X140) - + LIMIT(10) - + EMPTY - + SCRATCH) +//* +//*STEP001 EXEC PGM=IDCAMS +//*SYSPRINT DD SYSOUT=* +//*SYSIN DD * +//* DEFINE GDG(NAME(DOESTAX.CONV.ESSP.BX420.RPT) - +//* LIMIT(10) - +//* EMPTY - +//* SCRATCH) +//* +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X451PEND.TXT) - + LIMIT(10) - + EMPTY - + SCRATCH) +//* +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X451PAID.TXT) - + LIMIT(10) - + EMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSPAMEN.DAYX147) - + LIMIT(10) - + EMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSPAMEN.DAYX144) - + LIMIT(10) - + EMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSPAMEN.DAYX140) - + LIMIT(10) - + EMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.TDECESSP.RLSERPW) - + LIMIT(10) - + EMPTY -DOESTAX.CONV.ESSPAMEN.DAYX140 + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X530PEND.TXT) - + LIMIT(10) - + EMPTY - + SCRATCH) +// DOESTAX.CONV.TDECESSP.RLSERPW +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X530PAID.TXT) - + LIMIT(10) - + EMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.DOESESSP.X145DACH) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.PROD.TDECESSP.PAYX530) - + LIMIT(10) - + NOEMPTY - + SCRATCH)DOESTAX.CONV.DOESESSP.X145DACH +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* DOESTAX.PROD.TDECESSP.PAYX530 +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.DOESESSP.X145SCHK) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.DOESESSP.X145EACH) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.TDECESSP.RPTX430) + LIMIT(10) - + NOEMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X424PEND.TXT) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +//* +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X424PAID.TXT) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X421PAID.TXT) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +//* +// +/STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X421PEND.TXT) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +//** +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.FROMESSP) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +//* +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.RPTACH) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +//* +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.BX420.RPT) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +//* +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X438PEND.TXT) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +//* +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X438PAID.TXT) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X425ACHD) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.TDEC.X429PEND.TXT) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +//* +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.TDEC.DOES.SDAILY.CHKS) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.TDECDOES.CHKPAY) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.PENDING.X437.PAY) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X437.BTC) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +// DOESTAX.CONV.ESSP.X437PAID.TXT +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.FROMESSP.BKPX999) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +// +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.CONV.TDEC.DOES.RPTPAY) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +// +//IMPMF04 JOB +//* +//STEP002 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD1001 DD DSN=TMPZ0004, +// DISP=(,PASS,DELETE), +//* DISP=DHR, +// DCB=(LRECL=750,RECFM=FB), +// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X303EXP', +// COPY) +//* +//STEP004 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SORTIN DD DSN=TMPZ0004,DISP=SHR +//SORTOUT DD DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA, +//* SPACE=(CYL,(20,10),RLSE), +//* DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500) +//SYSIN DD * + REPRO IFILE(SORTIN) OFILE(SORTOUT) +/* +// \ No newline at end of file diff --git a/JCL/deleteGDG.jcl b/JCL/deleteGDG.jcl new file mode 100644 index 0000000..0c928ea --- /dev/null +++ b/JCL/deleteGDG.jcl @@ -0,0 +1,8 @@ +//CREGDG01 JOB (INNOVA,DEV,TEAM),NEERAJ,CLASS=S,MSGCLASS=X +//****************************************************************** +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DELETE DOESTAX.CONV.TDECDOES.CHKPAY +/* +// \ No newline at end of file diff --git a/JCL/loadVSAMfile b/JCL/loadVSAMfile new file mode 100644 index 0000000..8ad5784 --- /dev/null +++ b/JCL/loadVSAMfile @@ -0,0 +1,18 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X +//*STEP011 EXEC PGM=IEFBR14 +//*SYSPRINT DD SYSOUT=* +//*SYSOUT DD SYSOUT=* +//*DD0011 DD DOESTAX.CONV.ESSP.RPT629.TXTDOESTAX.PROD.ESSP.FAILED.X140.G0002V00, +//* DISP=(NEW,CATLG,CATLG), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=8192), +//* PATH=('e:\IN\W\DTSBXREJ\DOESTAX.PROD.ESSP.FAILED.X140.G0002V00', +//* COPY) +//* +//STEP0101 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) +//DTSRJ420 DD DSN=DDOESTAX.CONV.ESSP.RPT629.TXT, +// DISP=(NEW,CATLG,CATLG), +//** DISP=(OLD,KEEP,KEEP), +// SPACE=(CYL,(5,5)), +// DCB=(RECFM=fB,LRECL=134,BLKSIZE=1340) +//* +// \ No newline at end of file diff --git a/Procs/(DTSURVSM0).seq b/Procs/(DTSURVSM0).seq new file mode 100644 index 0000000..9dc99d6 --- /dev/null +++ b/Procs/(DTSURVSM0).seq @@ -0,0 +1,85 @@ +//RESTORE JOB +//STEP002 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTA -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP003 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTB -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP004 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTC -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP005 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTD -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP006 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTE -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP061 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTF -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP007 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTG -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP008 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTH -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP081 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTI -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP082 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTJ -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP009 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.AIX -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP010 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.ATC -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//*STEP011 EXEC PGM=restore, +//* PARM='-DD DOESTAX.PROD.VSAM.BTC -GENERATION 0' +//*SYSPRINT DD SYSOUT=* +//* +//STEP012 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.OLA -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP013 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.REF -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP015 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.WAGE.NAME -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP016 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.WESQ -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP017 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.WG2 -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP018 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.WGH -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP019 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.WRK -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* +//STEP020 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.WTC -GENERATION 0' +//SYSPRINT DD SYSOUT=* +//* \ No newline at end of file diff --git a/Procs/(DTSURVSM1),seq b/Procs/(DTSURVSM1),seq new file mode 100644 index 0000000..44d602f --- /dev/null +++ b/Procs/(DTSURVSM1),seq @@ -0,0 +1,85 @@ +//RESTORE JOB +//STEP002 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTA -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP003 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTB -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP004 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTC -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP005 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTD -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP006 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTE -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP061 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTF -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP007 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTG -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP008 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTH -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP081 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTI -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP082 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.MSTJ -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP009 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.AIX -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP010 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.ATC -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//*STEP011 EXEC PGM=restore, +//* PARM='-DD DOESTAX.PROD.VSAM.BTC -GENERATION -9' +//*SYSPRINT DD SYSOUT=* +//* +//STEP012 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.OLA -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP013 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.REF -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP015 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.WAGE.NAME -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP016 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.WESQ -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP017 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.WG2 -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP018 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.WGH -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP019 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.WRK -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* +//STEP020 EXEC PGM=restore, +// PARM='-DD DOESTAX.PROD.VSAM.WTC -GENERATION -9' +//SYSPRINT DD SYSOUT=* +//* \ No newline at end of file diff --git a/Procs/(DTSUTVSM).seq b/Procs/(DTSUTVSM).seq new file mode 100644 index 0000000..1195bef --- /dev/null +++ b/Procs/(DTSUTVSM).seq @@ -0,0 +1,65 @@ +//BACKUP JOB +??* +//STEP002 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTA' +//SYSPRINT DD SYSOUT=* +//* +//STEP003 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTB' +//SYSPRINT DD SYSOUT=* +//* +//STEP004 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTC' +//SYSPRINT DD SYSOUT=* +//* +//STEP005 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTD' +//SYSPRINT DD SYSOUT=* +//* +//STEP006 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTE' +//SYSPRINT DD SYSOUT=* +//* +//STEP001 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTF' +//SYSPRINT DD SYSOUT=* +//* +//STEP007 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTG' +//SYSPRINT DD SYSOUT=* +//* +//STEP008 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTH' +//SYSPRINT DD SYSOUT=* +//* +//STEP001 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTI' +//SYSPRINT DD SYSOUT=* +//* +//STEP001 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTJ' +//SYSPRINT DD SYSOUT=* +//* +//STEP009 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.AIX' +//SYSPRINT DD SYSOUT=* +//* +//STEP010 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.ATC' +//SYSPRINT DD SYSOUT=* +//* +//*STEP011 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.BTC' +//*SYSPRINT DD SYSOUT=* +//* +//STEP012 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.OLA' +//SYSPRINT DD SYSOUT=* +//* +//STEP013 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.REF' +//SYSPRINT DD SYSOUT=* +//* +//STEP015 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WAGE.NAME' +//SYSPRINT DD SYSOUT=* +//* +//STEP016 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WESQ' +//SYSPRINT DD SYSOUT=* +//* +//STEP017 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WG2' +//SYSPRINT DD SYSOUT=* +//* +//STEP018 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WGH' +//SYSPRINT DD SYSOUT=* +//* +//STEP019 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WRK' +//SYSPRINT DD SYSOUT=* +//* +//STEP020 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WTC' +//SYSPRINT DD SYSOUT=* +//* diff --git a/Procs/DTSBD551 b/Procs/DTSBD551 index 97a3e4f..5889d44 100644 --- a/Procs/DTSBD551 +++ b/Procs/DTSBD551 @@ -134,7 +134,7 @@ // UNIT=SYSDA, // SPACE=(8192,(1000,1000),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) -//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSRREC),DISP=SHR +//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSRREC),DISP=SHR //***** 00110002 //* REPORT GENERATION 00110002 //STEP0300 EXEC PGM=DTSBD800, 00120002 diff --git a/Procs/DTSBX148 b/Procs/DTSBX148 index 90d7d1a..ec6380d 100644 --- a/Procs/DTSBX148 +++ b/Procs/DTSBX148 @@ -22,7 +22,7 @@ // UNIT=SYSDA, // SPACE=(CYL,(10,5),RLSE), // DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800) -//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DESSR420),DISP=SHR +//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DESSR420),DISP=SHR //* //***************************************************************** //* EDIT TDEC FILE @@ -167,7 +167,7 @@ // DISP=(MOD,KEEP,KEEP), // SPACE=(CYL,(10,5)), // DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800) -//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSR414),DISP=SHR +//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSR414),DISP=SHR //* //**************************************************** //** diff --git a/Procs/DTSBX425 b/Procs/DTSBX425 index 9f0c6d1..bfd9cd9 100644 --- a/Procs/DTSBX425 +++ b/Procs/DTSBX425 @@ -1,13 +1,15 @@ //**** 00000010 //* IMPORT EMPLOYER DATA FROM WEB DATABASE 00001700 //* TO MAINFRAME 00001700 -//* 00001700 +//* File="E:\Innova\Code\MP\Git\DUTAS]PROCS <<<< +//* 00001700 //* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700 //** 00001700 -//DTSBX420 PROC +//DTSBX425 PROC //** 00001700 //***** 00001700 -//STEP0110 EXEC PGM=SORT, SORT TRANSACTIONS +//STEP0110 EXEC PGM=SORT, +// REGION=4096K, // COND=(0,LT) //SYSOUT DD SYSOUT=* //* @@ -18,13 +20,13 @@ //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) -//SORTOUT DD DSN=&&WEBIMPRT, +//SORTOUT DD DSN=&&ACHIMP, // DISP=(NEW,PASS,DELETE), // UNIT=SYSDA, // SPACE=(30720,(1000,1000),RLSE), 00008000 // DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00009000 //* -//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSX425),DISP=SHR +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX425),DISP=SHR //* //STEP0200 EXEC PGM=DTSBX425, // COND=(0,LT), @@ -38,7 +40,7 @@ //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //*** -//EFTFACH DD DSN=&&WEBIMPRT, +//EFTFACH DD DSN=&&ACHIMP, // DISP=(OLD,DELETE,DELETE), //* DISP=(OLD,KEEP,KEEP), // UNIT=SYSDA, @@ -53,18 +55,12 @@ // DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) //* //X425TOTL DD DSN=DOESTAX.CONV.ESSP.DAILY.ACHDTOTL, -//* DISP=(,CATLG,DELETE), -// DISP=SHR +// DISP=(,CATLG,DELETE), +//* DISP=SHR //* UNIT=SYSDA, //* SPACE=(25600,(100,100),RLSE), //* DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) -//* -//DTSFBTCO DD DSN=DOESTAX.DEVL.BX425.BTC, -//* DISP=(NEW,CATLG,DELETE), -// DISP=(OLD,KEEP,KEEP), -// SPACE=(8192,(100,200),RLSE), -// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) -//* +// //STEP0320 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M //SYSPRINT DD SYSOUT=* //OUT1 OUTPUT DEST=U1003, diff --git a/Procs/DTSBX426 b/Procs/DTSBX426 index 04857e0..5045305 100644 --- a/Procs/DTSBX426 +++ b/Procs/DTSBX426 @@ -18,7 +18,7 @@ //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //*** -//*FTFACH DD DSN=DOESTAX.CONV.ESSP.ACHDR.ARCHIVE(+1),DISP=SHR +//*EFTFACH DD DSN=DOESTAX.CONV.ESSP.ACHDR.ARCHIVE.Z2671V00,DISP=SHR //EFTFACH DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,DISP=SHR //DTSFVRO1 DD SYSOUT=* //* 00001700 diff --git a/Procs/DTSBX530 b/Procs/DTSBX530 index c3ef9ab..dedd5a1 100644 --- a/Procs/DTSBX530 +++ b/Procs/DTSBX530 @@ -1,11 +1,11 @@ //**** 00000010 //* IMPORT EMPLOYER PAYMNT DATA FROM ESSP - X145 00001700 //* IMPORT EMPLOYER PAYMNT DATA FROM TDEC - X145 00001700 -//* CREATE T025 TRANSACTIONS FOR DUTAS 00001700 +//* CREATE T025 TRANSACTIONS FOR DUTAS 00001700 //* 00001700 //* RUNS DAILY TAX UPDATE PRIOR TO (DTSPDAY1) 00001700 //** 00001700 -//DTSBX530 PROC +//DTSBX530 PROC TESTING RC ZL1 //** 00001700 //STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS // COND=(0,LT) @@ -13,7 +13,13 @@ //* //*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145.DD082018,DISP=SHR 00005000 //SORTIN DD DSN=DOESTAX.CONV.DOESESSP.X145DACH(+0),DISP=SHR -// DD DSN=DOESTAX.DEVL.FIX.PAYMENT,DISP=SHR +//* DD DSN=DOESTAX.DEVL.FIX.PAYMENT, +//* DISP=(NEW,CATLG,DELETE), +//* DISP=SHR, +//* UNIT=SYSDA, +//* SPACE=(30720,(2000,2000),RLSE), 00008000 +//* SPACE=(CYL,(50,25),RLSE), +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) // DD DSN=DOESTAX.CONV.DOESESSP.X145SCHK(+0),DISP=SHR // DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+0),DISP=SHR // DD DSN=DOESTAX.CONV.TDEC.DOES.RPTPAY(+0),DISP=SHR @@ -30,8 +36,7 @@ //* SPACE=(30720,(2000,2000),RLSE), 00008000 // SPACE=(CYL,(50,25),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000 -//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX417),DISP=SHR -//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX417),DISP=SHR +//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX417),DISP=SHR //* //STEP0200 EXEC PGM=DTSBX417, // COND=(0,LT), diff --git a/Procs/DTSBXPAY b/Procs/DTSBXPAY index 4bf94b0..1f40ff8 100644 --- a/Procs/DTSBXPAY +++ b/Procs/DTSBXPAY @@ -5,7 +5,7 @@ //** 00001700 //DTSBXPAY PROC //** 00001700 -//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS +//STEP0100 EXEC PGM=SORT, // COND=(0,LT) //SYSOUT DD SYSOUT=* //* @@ -15,12 +15,12 @@ //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) -//SORTOUT DD DSN=DOESTAX.&IMPNODE..TDEC.DOES.RPTPAY(+1),DISP=SHR -//* DISP=(NEW,CATLG,DELETE), +//SORTOUT DD DSN=DOESTAX.&IMPNODE..TDEC.DOES.RPTPAY(+1), +// DISP=(NEW,CATLG,DELETE), //* DISP=SHR, -//* UNIT=SYSDA, -//* SPACE=(30720,(1000,1000),RLSE), 00008000 -//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00009000 +// UNIT=SYSDA, +// SPACE=(30720,(1000,1000),RLSE), 00008000 +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00009000 //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR //* //STEP0200 EXEC PGM=DTSBX437, @@ -46,9 +46,9 @@ // SPACE=(8192,(1000,200),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //* 00001700 -//DTSFBTCO DD DSN=DOESTAX.&IMPNODE..ESSP.X437.BTC, 00005000 -//* DISP=(NEW,CATLG,DELETE), 00006000 -// DISP=SHR, 00006000 +//DTSFBTCO DD DSN=DOESTAX.&IMPNODE..ESSP.X437.BTC(+1), 00005000 +// DISP=(NEW,CATLG,DELETE), 00006000 +//* DISP=SHR, 00006000 //* DISP=MOD, 00006000 // UNIT=SYSDA, 00007000 // SPACE=(8192,(100,200),RLSE), @@ -74,38 +74,38 @@ //*********************************************************** //* SEND EMAIL WHEN REPORT PAYMENTS PROCESSED //*********************************************************** -//STEP0300 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M -//SYSPRINT DD SYSOUT=* -//OUT1 OUTPUT DEST=U1003, -// USERDATA=('TO:SRUJANI.CHANDRAGIRI@DC.GOV', -// 'CC:RAJINI.JUJJAVARAPU@DC.GOV', -// 'CC:MARGARET.HERNANDEZ@DC.GOV', -// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', -// 'CC:ZARATH.LALPUTAN@DC.GOV', -// 'CC:JOY.DIGGS@DC.GOV', -// 'CC:YINKA.OLAREWAJU-ALO@DC.GOV', -// 'SUBJECT: TDEC DAILY REPORT PAYMENTS ......ZL1', -// 'FILEDESC: DOES TDEC REPORT PAYMENTS ', -// 'FILENAME:TDEC_DUTAS_RPTPAYMTS.TXT'), -// MAILFROM=DUTAS@DC.GOV -//SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.X437PAID.TXT(+1),DISP=SHR -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 -//SYSIN DD DUMMY +//*STEP0300 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M +//*SYSPRINT DD SYSOUT=* +//*OUT1 OUTPUT DEST=U1003, +//* USERDATA=('TO:SRUJANI.CHANDRAGIRI@DC.GOV', +//* 'CC:RAJINI.JUJJAVARAPU@DC.GOV', +//* 'CC:MARGARET.HERNANDEZ@DC.GOV', +//* 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', +//* 'CC:ZARATH.LALPUTAN@DC.GOV', +//* 'CC:JOY.DIGGS@DC.GOV', +//* 'CC:YINKA.OLAREWAJU-ALO@DC.GOV', +//* 'SUBJECT: TDEC DAILY REPORT PAYMENTS ......ZL1', +//* 'FILEDESC: DOES TDEC REPORT PAYMENTS ', +//* 'FILENAME:TDEC_DUTAS_RPTPAYMTS.TXT'), +//* MAILFROM=DUTAS@DC.GOV +//*SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.X437PAID.TXT(+1),DISP=SHR +//*SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//*SYSIN DD DUMMY //* //*********************************************************** -//STEP0310 EXEC PGM=IEBGENER,COND=(8,NE,DECRYPT),REGION=4M -//SYSPRINT DD SYSOUT=* -//OUT1 OUTPUT DEST=U1003, -// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', -// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', +//*STEP0310 EXEC PGM=IEBGENER,COND=(8,NE,DECRYPT),REGION=4M +//*SYSPRINT DD SYSOUT=* +//*OUT1 OUTPUT DEST=U1003, +//* USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', +//* 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', //* 'CC:ZARATH.LALPUTAN@DC.GOV', -// 'SUBJECT: ++++ NO TDEC PAYMENTS TODAY ++++..ZL1', -// 'FILEDESC: TDEC DUTAS PAYMT REPORT ', -// 'FILENAME:TDEC_DUTAS.TXT'), -// MAILFROM=DUTAS@DC.GOV -//SYSUT1 DD DSN=DOESTAX.&EXTNODE..TDEC.ERORPAYT.TXT,DISP=SHR -//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 -//SYSIN DD DUMMY +//* 'SUBJECT: ++++ NO TDEC PAYMENTS TODAY ++++..ZL1', +//* 'FILEDESC: TDEC DUTAS PAYMT REPORT ', +//* 'FILENAME:TDEC_DUTAS.TXT'), +//* MAILFROM=DUTAS@DC.GOV +//*SYSUT1 DD DSN=DOESTAX.&EXTNODE..TDEC.ERORPAYT.TXT,DISP=SHR +//*SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//*SYSIN DD DUMMY //* //* //STEP0400 EXEC PGM=IDCAMS, COPY X140 PENDING TO GDG @@ -120,7 +120,7 @@ // DISP=(,CATLG,DELETE), //* DISP=SHR, // SPACE=(25600,(100,200),RLSE), -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR //* //********************************************************************* @@ -137,7 +137,7 @@ //* DISP=(,CATLG,DELETE), // DISP=SHR, // SPACE=(25600,(100,200),RLSE), -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR //* //********************************************************************* @@ -153,7 +153,7 @@ //* DISP=(,CATLG,DELETE), // DISP=SHR, // SPACE=(25600,(100,200),RLSE), -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR //* //********************************************************************* diff --git a/Procs/DTSDUPDU b/Procs/DTSDUPDU index 11a9e75..2190bec 100644 --- a/Procs/DTSDUPDU +++ b/Procs/DTSDUPDU @@ -347,7 +347,7 @@ // DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264099 //OUTDD01 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264199 //**** 02264299 -//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR 02264399 +//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSRONE),DISP=SHR 02264399 //**** 02264499 //** 02264599 //DTSDRPTS INCLUDE MEMBER=DTSD0A /* OUTPUT GENERATION 02264699 diff --git a/Procs/DTSGSID9 b/Procs/DTSGSID9 index fc684db..c8fbf42 100644 --- a/Procs/DTSGSID9 +++ b/Procs/DTSGSID9 @@ -2,6 +2,8 @@ //**************************************************************** 00001700 //* BUILD THE WGH EMPLOYER ORIENTED WAGE FILE FROM DATA IN //* THE BENEFITS WAGE FILE +//* +//* RAINCODE TESTED 08/30/25 ZL1 //**************************************************************** 00001700 //STEP0200 EXEC PGM=DESBD471, DELETE WAGES TO TAX WHG FILE // COND=(0,LT), diff --git a/Procs/DTSNXPEN b/Procs/DTSNXPEN index 453e03d..aa68eda 100644 --- a/Procs/DTSNXPEN +++ b/Procs/DTSNXPEN @@ -22,8 +22,7 @@ // UNIT=SYSDA, // SPACE=(30720,(1000,1000),RLSE), 00008000 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000 -//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX417),DISP=SHR -//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX417),DISP=SHR +//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX417),DISP=SHR //* //STEP0200 EXEC PGM=DTSBX419, // COND=(0,LT), diff --git a/Procs/DTSNXREL b/Procs/DTSNXREL index d6fcd92..33a69f9 100644 --- a/Procs/DTSNXREL +++ b/Procs/DTSNXREL @@ -1,7 +1,7 @@ //**** 00000010 //* PROCESS ESSP PENDING DATA FILES - RELEASE DATA TO DUTAS 00001700 //* 00001700 -//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700 +//* RUNS DAILY TAX UPDATE (DTSPDAY1) TESTING RC ZL1 00001700 //** 00001700 //DTSBXPEN PROC //** 00001700 diff --git a/Procs/DTSRERPT b/Procs/DTSRERPT index 78ac08d..4c37820 100644 --- a/Procs/DTSRERPT +++ b/Procs/DTSRERPT @@ -5,20 +5,27 @@ //DTSRQRPT PROC LDEST='LOCAL', // LVDHOLD='YES' //**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00001702 -//DOESLBL1 EXEC PGM=IEBDG, 00001806 -// COND=(3,LT) 00001906 -//SYSPRINT DD SYSOUT=* 00002006 -//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00002106 -// UNIT=SYSDA, 00002206 -// SPACE=(TRK,1), 00002306 -// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406 -//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL01), 00002506 -// DISP=SHR 00002606 +//*DOESLBL1 EXEC PGM=IEBDG, 00001806 +//* COND=(3,LT) 00001906 +//*SYSPRINT DD SYSOUT=* 00002006 +//*LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00002106 +//* UNIT=SYSDA, 00002206 +//* SPACE=(TRK,1), 00002306 +//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406 +//*SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSLBL01), 00002506 +//* DISP=SHR +//DOESLBL1 EXEC PGM=GENT350, +// COND=(4,LT) +//SYSOUT DD SYSOUT=* +//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,1), +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002606 //**** /* POPULATE THE LABELS WORK FILE 00003105 //DOESLBL2 EXEC PGM=IDCAMS, 00003206 // COND=(3,LT) 00003306 //SYSPRINT DD SYSOUT=* 00003405 -//FILEIN DD DSN=&&TMP901, 00003505 +//FILEIN DD DSN=TMP901, 00003505 // DISP=(OLD,DELETE,DELETE), 00003605 // UNIT=SYSDA 00003705 //DOESVRO1 DD DSN=&&LBL901, 00003805 diff --git a/Procs/DTSRS459 b/Procs/DTSRS459 index 03578ac..f7d1695 100644 --- a/Procs/DTSRS459 +++ b/Procs/DTSRS459 @@ -10,8 +10,8 @@ //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00005299 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00005399 //SORTOUT DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459, -// DISP=(OLD,KEEP,KEEP), -//* DISP=(,CATLG,DELETE), +//* DISP=(OLD,KEEP,KEEP), +// DISP=(,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(CYL,(20,10),RLSE), // DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792) diff --git a/Procs/DTSUX770 b/Procs/DTSUX770 index 1934c28..b47026b 100644 --- a/Procs/DTSUX770 +++ b/Procs/DTSUX770 @@ -35,28 +35,32 @@ // SPACE=(77,(1,1),RLSE), // DCB=(RECFM=FB,LRECL=77,BLKSIZE=77) //TPSSTAT1 DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR1, -//** DISP=(,CATLG,DELETE), -// DISP=(OLD,KEEP,KEEP), +// DISP=(NEW,CATLG,DELETE), +//* DISP=(OLD,KEEP,KEEP), // SPACE=(CYL,(5,5),RLSE), -// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=56,BLKSIZE=28000) //* //TPSSTAT2 DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR2, -//** DISP=(,CATLG,DELETE), -// DISP=(OLD,KEEP,KEEP), +// DISP=(NEW,CATLG,DELETE), +//* DISP=(OLD,KEEP,KEEP), // SPACE=(CYL,(5,5),RLSE), -// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=56,BLKSIZE=28000) //* //TPSSTAT3 DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR3, -//** DISP=(,CATLG,DELETE), -// DISP=(OLD,KEEP,KEEP), +// DISP=(NEW,CATLG,DELETE), +//* DISP=(OLD,KEEP,KEEP), // SPACE=(CYL,(5,5),RLSE), -// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=56,BLKSIZE=28000) //* //TPSSTAT4 DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR4, -//** DISP=(,CATLG,DELETE), -// DISP=(OLD,KEEP,KEEP), +// DISP=(NEW,CATLG,DELETE), +//* DISP=(OLD,KEEP,KEEP), // SPACE=(CYL,(5,5),RLSE), -// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=56,BLKSIZE=28000) //* //DTSFVRO1 DD DUMMY //SYSIN DD DDNAME=EXTPARM @@ -90,23 +94,33 @@ // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) //DTSFBTCI DD DSN=&&BE770SRT, // DISP=(OLD,PASS,DELETE) +//* //DTSX771 DD DSN=DOESTAX.&LVLNODE..BX771TRN, -// DISP=(OLD,KEEP,KEEP), +// DISP=(NEW,CATLG,DELETE), // SPACE=(23500,(200,200),RLSE), -// DCB=(RECFM=FB,LRECL=235,BLKSIZE=23500) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=235,BLKSIZE=23500) +//* //DTSX772 DD DSN=DOESTAX.&LVLNODE..BX772TRN, -// DISP=(OLD,KEEP,KEEP), +// DISP=(NEW,CATLG,DELETE), // SPACE=(24800,(200,200),RLSE), -// DCB=(RECFM=FB,LRECL=124,BLKSIZE=24800) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=124,BLKSIZE=24800) +//* //DTSX773 DD DSN=DOESTAX.&LVLNODE..BX773TRN, -// DISP=(OLD,KEEP,KEEP), +// DISP=(NEW,CATLG,DELETE), // SPACE=(16300,(500,300),RLSE), -// DCB=(RECFM=FB,LRECL=163,BLKSIZE=16300) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=163,BLKSIZE=16300) +//* //DTSX774 DD DSN=DOESTAX.&LVLNODE..BX774TRN, -// DISP=(OLD,KEEP,KEEP), +// DISP=(NEW,CATLG,DELETE), // SPACE=(23250,(1500,500),RLSE), -// DCB=(RECFM=FB,LRECL=155,BLKSIZE=23250) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=155,BLKSIZE=23250) +//* //DTSX775 DD DSN=DOESTAX.&LVLNODE..BX775TRN, -// DISP=(OLD,KEEP,KEEP), +// DISP=(NEW,CATLG,DELETE), // SPACE=(24600,(1500,500),RLSE), -// DCB=(RECFM=FB,LRECL=250,BLKSIZE=25000) +// CODEPAGE=1252,AUTOENCODE=YES, +// DCB=(RECFM=LSEQ,LRECL=250,BLKSIZE=25000) diff --git a/Procs/DTSZUPDT b/Procs/DTSZUPDT index f837783..0c30107 100644 --- a/Procs/DTSZUPDT +++ b/Procs/DTSZUPDT @@ -406,7 +406,7 @@ // DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264400 //OUTDD01 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264500 //**** 02264600 -//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR 02264700 +//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSRONE),DISP=SHR 02264700 //**** 02264800 //** 02264900 //DTSDRPTS INCLUDE MEMBER=DTSD0A /* OUTPUT GENERATION 02265000 diff --git a/Procs/DTSZX426 b/Procs/DTSZX426 index cf50638..5045305 100644 --- a/Procs/DTSZX426 +++ b/Procs/DTSZX426 @@ -18,7 +18,7 @@ //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //*** -//*FTFACH DD DSN=DOESTAX.CONV.ESSP.ACHDR.ARCHIVE.G0296V00,DISP=SHR +//*EFTFACH DD DSN=DOESTAX.CONV.ESSP.ACHDR.ARCHIVE.Z2671V00,DISP=SHR //EFTFACH DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,DISP=SHR //DTSFVRO1 DD SYSOUT=* //* 00001700