giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

All Z' modified PROD server code merge 09/10/2025

Browse Source
This commit is contained in:
Manoj Patel
2025-10-10 08:02:01 -04:00
parent 7408a12cc6
commit d3af779d95
145 changed files with 6247 additions and 419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Batch/DESBD310.cob
View File

@ -35,6 +35,10 @@
00035 * 02/23/2009 MODIFIED SELECTION TO INCLUDE DC GOV WAGES DESBD310 00035 * 02/23/2009 MODIFIED SELECTION TO INCLUDE DC GOV WAGES DESBD310
00036 * REFERENCE: PROGRAMMER: GD DESBD310 00036 * REFERENCE: PROGRAMMER: GD DESBD310
00037 * 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 00038 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD310
00039 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD310 00039 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD310
00040 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DESBD310 00040 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DESBD310

519
Batch/DESBD470.cob Normal file
View File

@ -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

2
Batch/DESBD474.cob
View File

@ -1,5 +1,5 @@
00001 IDENTIFICATION DIVISION. 10/02/24 00001 IDENTIFICATION DIVISION. 10/02/24
00002 PROGRAM-ID. DESBD471. DESBD474 00002 PROGRAM-ID. DESBD474. DESBD474
00003 AUTHOR. NGC. LV018 00003 AUTHOR. NGC. LV018
00004 DATE-WRITTEN. DECEMBER 2012. DESBD474 00004 DATE-WRITTEN. DECEMBER 2012. DESBD474
00005 DATE-COMPILED. DESBD474 00005 DATE-COMPILED. DESBD474

2
Batch/DESBD475.cob
View File

@ -1,5 +1,5 @@
00001 IDENTIFICATION DIVISION. 10/10/24 00001 IDENTIFICATION DIVISION. 10/10/24
00002 PROGRAM-ID. DESBD471. DESBD475 00002 PROGRAM-ID. DESBD475. DESBD475
00003 AUTHOR. NGC. LV005 00003 AUTHOR. NGC. LV005
00004 DATE-WRITTEN. DECEMBER 2012. DESBD475 00004 DATE-WRITTEN. DECEMBER 2012. DESBD475
00005 DATE-COMPILED. DESBD475 00005 DATE-COMPILED. DESBD475

135
Batch/DOESU946.cob Normal file
View File

@ -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

2
Batch/DTSBD120.cob
View File

@ -583,8 +583,10 @@
00582 GO TO S910-MSTR-IO. DTSBD120 00582 GO TO S910-MSTR-IO. DTSBD120
00583 DTSBD120 00583 DTSBD120
00584 S910-MSTR-IO. DTSBD120 00584 S910-MSTR-IO. DTSBD120
RCCODE DISPLAY 'START-Time:' CURRENT-DATE.
00585 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD120 00585 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD120
00586 MSKL-REC. DTSBD120 00586 MSKL-REC. DTSBD120
RCCODE DISPLAY 'END-Time:' CURRENT-DATE.
00587 S910-EXIT. EXIT. DTSBD120 00587 S910-EXIT. EXIT. DTSBD120
00588 SKIP3 DTSBD120 00588 SKIP3 DTSBD120
00589 S921-OPEN-READ. DTSBD120 00589 S921-OPEN-READ. DTSBD120

10
Batch/DTSBX418.cob
View File

@ -1,6 +1,6 @@
00001 IDENTIFICATION DIVISION. 08/27/25 00001 IDENTIFICATION DIVISION. 04/03/15
00002 PROGRAM-ID. DTSBX418. DTSBX418 00002 PROGRAM-ID. DTSBX418. DTSBX418
00003 AUTHOR. NGC. LV052 00003 AUTHOR. NGC. LV051
00004 DATE-WRITTEN. APRIL 2005. DTSBX418 00004 DATE-WRITTEN. APRIL 2005. DTSBX418
00005 DATE-COMPILED. DTSBX418 00005 DATE-COMPILED. DTSBX418
00006 SKIP3 DTSBX418 00006 SKIP3 DTSBX418
@ -142,7 +142,7 @@
00142 05 SORT-DATA PIC X(512). DTSBX418 00142 05 SORT-DATA PIC X(512). DTSBX418
00143 DTSBX418 00143 DTSBX418
00144 WORKING-STORAGE SECTION. 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 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 00146 77 PAN-VALET PICTURE X(24) VALUE '154DTSBX418 10/07/14'. CL*49
00147 SKIP3 DTSBX418 00147 SKIP3 DTSBX418
@ -566,8 +566,8 @@
00565 MOVE W-CURR-RUN-DATE TO LX42-CURR-RUN-DATE. DTSBX418 00565 MOVE W-CURR-RUN-DATE TO LX42-CURR-RUN-DATE. DTSBX418
00566 MOVE L005-DATE TO LX42-SYS-DATE. DTSBX418 00566 MOVE L005-DATE TO LX42-SYS-DATE. DTSBX418
00567 MOVE L005-TIME TO LX42-SYS-TIME. DTSBX418 00567 MOVE L005-TIME TO LX42-SYS-TIME. DTSBX418
00568 * MOVE ZERO TO LX42-BATCH-NO CL*52 00568 * MOVE ZERO TO LX42-BATCH-NO DTSBX418
00569 MOVE ZERO TO LX42-PSEUDO-BATCH-NO CL*52 00568 MOVE ZERO TO LX42-PSEUDO-BATCH-NO DTSBX418
00570 LX42-LAST-DETERM-EMP DTSBX418 00570 LX42-LAST-DETERM-EMP DTSBX418
00571 LX42-RPT-CNT DTSBX418 00571 LX42-RPT-CNT DTSBX418
00572 LX42-RPT-REMIT-AMT DTSBX418 00572 LX42-RPT-REMIT-AMT DTSBX418

268
Batch/DTSBX802.cob Normal file
View File

@ -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

8
Copybook/DTSIWWGH.cpy
View File

@ -9,9 +9,9 @@
00009 * 02/18/2002 INITIAL DEVELOPMENT. GD DTSIWWGH 00009 * 02/18/2002 INITIAL DEVELOPMENT. GD DTSIWWGH
00010 * 03/18/2004 MODIFIED FOR NEW WAGE PROCESS. 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 00011 * 02/27/2024 MODIFIED FOR UIBS WAGE PROCESSING ZL CL**3
00012 * DTSIWWGH 00012 * TAXWGH FILE CHANGE ONLY TO 23 BYTES DTSIWWGH
00013 * KEY = 12 LENGTH = 23 CL**2 00013 * KEY = 12 LENGTH = 23 (TAXWGH ONLY) CL**2
00014 * DTSIWWGH 00014 * WGH FILE STAYED AT 18 BYTES DTSIWWGH
00015 ***** DTSIWWGH 00015 ***** DTSIWWGH
00016 DTSIWWGH 00016 DTSIWWGH
00017 10 WWGH-KEY-AREA. DTSIWWGH 00017 10 WWGH-KEY-AREA. DTSIWWGH
@ -21,4 +21,4 @@
00021 DTSIWWGH 00021 DTSIWWGH
00022 10 WWGH-DATA-AREA. DTSIWWGH 00022 10 WWGH-DATA-AREA. DTSIWWGH
00023 15 WWGH-EARNINGS PIC S9(09)V9(02) COMP-3. 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

132
Copybook/DTSNH104 (2).cpy Normal file
View File

@ -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

62
Copybook/DTSWX120 (2).cpy Normal file
View File

@ -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

5
Copybook/WSDATES (2).cpy Normal file
View File

@ -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

15
JCL/CAUDX144.JCL Normal file
View File

@ -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)

15
JCL/COPYMISSWAGS.JCL Normal file
View File

@ -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)

15
JCL/COPYX999.JCL Normal file
View File

@ -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)

10
JCL/CopyFLAT.jcl Normal file
View File

@ -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)

6
JCL/DESBD427.jcl
View File

@ -61,7 +61,11 @@
//*TSFX144 DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20181,DISP=SHR 00331006 //*TSFX144 DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20181,DISP=SHR 00331006
//* 00340000 //* 00340000
//*TSFX146 DD DSN=ECNTSUP.DOESTAX.CONV.TAXWEB.ESSPX146,DISP=SHR 00350013 //*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 //* 00360000
//********************************************************************* 00370000 //********************************************************************* 00370000
//*** COPY ESSP DAILY WAGES TO ARCHIVE BACKUP FILE. 00390007 //*** COPY ESSP DAILY WAGES TO ARCHIVE BACKUP FILE. 00390007

2
JCL/DTSBE405.jcl
View File

@ -15,7 +15,7 @@
//**** //****
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB //PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB
//* //* RAINCODE TESTED 08/30/25 ZL1
//********************************************************************* //*********************************************************************
//STEP0100 EXEC DTSUEXT, BD400 PERIODIC EXTRACT //STEP0100 EXEC DTSUEXT, BD400 PERIODIC EXTRACT
// RUNTYPE='QD', // RUNTYPE='QD',

6
JCL/DTSBX215.jcl
View File

@ -12,9 +12,11 @@
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600 //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* //*
//* 00070000 //* RAINCODE TESTED 08/30/25 ZL1
//* 00070000
//STEP0200 EXEC DTSBX215 //STEP0200 EXEC DTSBX215
//* 00014000 //*
// 00014000
//***************************************** //*****************************************
//STEP0210 EXEC PGM=FTP, //STEP0210 EXEC PGM=FTP,
// COND=(0,LT) // COND=(0,LT)

42
JCL/DTSBX216.jcl Normal file
View File

@ -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
//*
//*

11
JCL/DTSBX305.jcl
View File

@ -55,7 +55,7 @@
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR //INDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.PROD.DIFSRFND.X305IMP(+1), //OUTDD01 DD DSN=DOESTAX.PROD.DIFSRFND.X305IMP(+1),
// DISP=(,CATLG,DELETE), // DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(15,5),RLSE), // UNIT=SYSDA,SPACE=(CYL,(15,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=109,BLKSIZE=5450) // DCB=(SYS3.MODEL,RECFM=FB,LRECL=109,BLKSIZE=5450)
//SYSIN DD * //SYSIN DD *
@ -71,13 +71,16 @@
//STEP0075 EXEC PGM=SORT SORT FTP RECORDS //STEP0075 EXEC PGM=SORT SORT FTP RECORDS
//SYSOUT DD SYSOUT=* //SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR //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 //SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSX305),DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
//********************************************************************* //*********************************************************************
//STEP0100 EXEC DTSUTVSM, //*STEP0100 EXEC DTSUTVSM,
// BKUPGEN='(+1)' //* BKUPGEN='(+1)'
//***** //*****
//STEP0200 EXEC DTSBX305 //STEP0200 EXEC DTSBX305
//** 00001700 //** 00001700

2
JCL/DTSBX403.jcl
View File

@ -1,7 +1,7 @@
//DTSBX403 JOB (UI,4300,3400,T),SC,CLASS=A,MSGLEVEL=(1,1), JOB10082 //DTSBX403 JOB (UI,4300,3400,T),SC,CLASS=A,MSGLEVEL=(1,1), JOB10082
// USER=#DOADTS, // USER=#DOADTS,
// MSGCLASS=X,NOTIFY=EUSC01K,REGION=4096K // MSGCLASS=X,NOTIFY=EUSC01K,REGION=4096K
//* //*-------------- RAINCODE TESTED 08/30/25 ZL1
//*************************************************** //***************************************************
//* TO EXTRACT 403/405 RECORDS, UNPACK AND WRITE TO OUTPUT FILE. //* TO EXTRACT 403/405 RECORDS, UNPACK AND WRITE TO OUTPUT FILE.
//*************************************************** //***************************************************

4
JCL/DTSBX405.jcl
View File

@ -16,7 +16,7 @@
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB //PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB //*LOADLIBS INCLUDE MEMBER=DTSIPJLB
//* //* RAINCODE TESTED 08/30/25 ZL1
//****************************************************************** //******************************************************************
//STEP0100 EXEC PGM=DTSBX403, //STEP0100 EXEC PGM=DTSBX403,
// COND=(0,LT), // COND=(0,LT),
@ -26,7 +26,7 @@
//SYSABEND DD SYSOUT=* //SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=* //SYSUDUMP DD SYSOUT=*
//* //*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR //*DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//* //*
//DTSFVRI1 DD DSN=DOESTAX.PROD.PER.RPT(+0), //DTSFVRI1 DD DSN=DOESTAX.PROD.PER.RPT(+0),
// DISP=SHR // DISP=SHR

2
JCL/DTSBX427.jcl
View File

@ -35,7 +35,7 @@
//STEP0200 EXEC DTSRSESP //STEP0200 EXEC DTSRSESP
//*** //***
//* REPORT GENERATION //* REPORT GENERATION
//STEP0300 EXEC DTSRQRPT //*STEP0300 EXEC DTSRQRPT
//STEP0100.RPT140R1 DD HOLD=YES //STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES //STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES //STEP0100.RPT907R1 DD HOLD=YES

24
JCL/DTSBX430.jcl
View File

@ -39,17 +39,25 @@
//***** REPORT WILL BE REPORTED ON THE PENDING FILES WHEN PROCESSED 00001700 //***** REPORT WILL BE REPORTED ON THE PENDING FILES WHEN PROCESSED 00001700
//* IT REBUILDS THE OUTPUT BTC AND WAGE FILE EACH TIME IT RUNS. 00001700 //* IT REBUILDS THE OUTPUT BTC AND WAGE FILE EACH TIME IT RUNS. 00001700
//** 00001700 //** 00001700
//************************************* 01/19/17 ZL1 //*****************************TESTING RC 09/06/25 ZL1
//STEP0100 EXEC PGM=SORT,REGION=1024K //STEP0100 EXEC PGM=SORT,REGION=1024K
//SORT.SYSPRINT DD SYSOUT=* //SORT.SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=* //SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=* //SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=* //SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT 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 //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 //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) //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD * //SYSIN DD *
@ -66,8 +74,16 @@
//SORT.SYSOUT DD SYSOUT=* //SORT.SYSOUT DD SYSOUT=*
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR //*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR
//SORTIN DD DSN=DOESTAX.CONV.FROMESSP.PASSED.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 //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) //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD * //SYSIN DD *

5
JCL/DTSBX450.jcl
View File

@ -101,8 +101,9 @@
END END
//* //*
//* //*
//*TEP0200 EXEC DTSRP451 / REGULAR //*STEP0200 EXEC DTSRP451 / REGULAR
//* //*
//*TEP0200 EXEC DTSSN451 / X147 PROCESS //*STEP0200 EXEC DTSSN451 / X147 PROCESS
//* //*
//** 00001700 //** 00001700
//

12
JCL/DTSBX451.jcl
View File

@ -6,7 +6,7 @@
//* 00001700 //* 00001700
// SET LVLNODE='CONV' // SET LVLNODE='CONV'
// SET MSTNODE='PROD' // SET MSTNODE='PROD'
// SET PRGNODE='CONV' // SET PRGNODE='PROD'
// SET IMPNODE='CONV' // SET IMPNODE='CONV'
// SET LVDHOLD='YES' 00001700 // SET LVDHOLD='YES' 00001700
// SET EXTNODE='CONV' 00001700 // SET EXTNODE='CONV' 00001700
@ -62,8 +62,9 @@
// 'SUBJECT: FAILED AMENDED REPORTS', // 'SUBJECT: FAILED AMENDED REPORTS',
// 'FILENAME:ESSP_X451_FAILED.TXT'), // 'FILENAME:ESSP_X451_FAILED.TXT'),
// MAILFROM=DUTAS@DC.GOV // MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PEND.TXT(+1),DISP=SHR //SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PEND.TXT(+1),DISP=SHR,
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 // CODEPAGE=1252,AUTOENCODE=YES
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY //SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP) //SYSUDUMP DD SYSOUT=(*,,DUMP)
//* //*
@ -81,8 +82,9 @@
// 'SUBJECT: DUTAS DAILY AMENDED REPORTS', // 'SUBJECT: DUTAS DAILY AMENDED REPORTS',
// 'FILENAME:ESSP_X451_PASSED.TXT'), // 'FILENAME:ESSP_X451_PASSED.TXT'),
// MAILFROM=DUTAS@DC.GOV // MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PAID.TXT(+1),DISP=SHR //SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PAID.TXT(+1),DISP=SHR,
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 // CODEPAGE=1252,AUTOENCODE=YES
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY //SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP) //SYSUDUMP DD SYSOUT=(*,,DUMP)
//** 00001700 //** 00001700

2
JCL/DTSBX479.jcl
View File

@ -71,6 +71,6 @@
//OUTOUT DD SYSOUT=* //OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 //SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80 //SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(UIBCHGOB),DISP=SHR //INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBCHGOB),DISP=SHR
// //
//******************************************************************* //*******************************************************************

2
JCL/DTSBX500.jcl
View File

@ -23,7 +23,7 @@
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR, //DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10') // 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') // AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.PROD.VSAM.WGH,DISP=SHR, //DTSFWGH DD DSN=DOESTAX.PROD.VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10') // AMP=('BUFNI=5,BUFND=10')

7
JCL/DTSBX552.jcl
View File

@ -32,8 +32,7 @@
//* SPACE=(30720,(2000,4000),RLSE), 00211048 //* SPACE=(30720,(2000,4000),RLSE), 00211048
// SPACE=(CYL,(20,50),RLSE), 00211149 // SPACE=(CYL,(20,50),RLSE), 00211149
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00212007 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00212007
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR //SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00213007
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00213007
//* 00214007 //* 00214007
//STEP0200 EXEC PGM=SORT, SORT TRANSACTIONS 00216009 //STEP0200 EXEC PGM=SORT, SORT TRANSACTIONS 00216009
// COND=(0,LT) 00217009 // COND=(0,LT) 00217009
@ -50,7 +49,7 @@
//* SPACE=(30720,(2000,4000),RLSE), 00330048 //* SPACE=(30720,(2000,4000),RLSE), 00330048
// SPACE=(CYL,(50,50),RLSE), 00331048 // SPACE=(CYL,(50,50),RLSE), 00331048
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340021 // 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 //* 00360009
//* 00370041 //* 00370041
//STEP0150 EXEC PGM=SORT, SORT TRANSACTIONS 00380041 //STEP0150 EXEC PGM=SORT, SORT TRANSACTIONS 00380041
@ -67,7 +66,7 @@
// UNIT=SYSDA, 00490041 // UNIT=SYSDA, 00490041
// SPACE=(30720,(2000,4000),RLSE), 00500041 // SPACE=(30720,(2000,4000),RLSE), 00500041
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00510041 // 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 //* 00530041
//************************************************************** 01210000 //************************************************************** 01210000
//* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000 //* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000

6
JCL/DTSBX553.jcl
View File

@ -31,7 +31,7 @@
// UNIT=SYSDA, 00210000 // UNIT=SYSDA, 00210000
// SPACE=(30720,(2000,2000),RLSE), 00211000 // SPACE=(30720,(2000,2000),RLSE), 00211000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00212000 // 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 //* 00214000
//* 00215001 //* 00215001
//STEP0200 EXEC PGM=SORT, SORT TRANSACTIONS 00216002 //STEP0200 EXEC PGM=SORT, SORT TRANSACTIONS 00216002
@ -48,7 +48,7 @@
// UNIT=SYSDA, 00320000 // UNIT=SYSDA, 00320000
// SPACE=(30720,(2000,2000),RLSE), 00330000 // SPACE=(30720,(2000,2000),RLSE), 00330000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340000 // 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 //* 00360000
//* 00370005 //* 00370005
//STEP0300 EXEC PGM=SORT, SORT TRANSACTIONS 00380005 //STEP0300 EXEC PGM=SORT, SORT TRANSACTIONS 00380005
@ -65,7 +65,7 @@
// UNIT=SYSDA, 00490005 // UNIT=SYSDA, 00490005
// SPACE=(30720,(2000,2000),RLSE), 00500005 // SPACE=(30720,(2000,2000),RLSE), 00500005
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00510005 // 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 //* 00530005
//************************************************************** 01210000 //************************************************************** 01210000
//* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000 //* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000

1
JCL/DTSBX601.jcl
View File

@ -7,6 +7,7 @@
//*CREATE FILE FOR WEB TO VERIFY ADDRESS IS CORRECT BEFORE ISSUING //*CREATE FILE FOR WEB TO VERIFY ADDRESS IS CORRECT BEFORE ISSUING
//*REFUNDS //*REFUNDS
//***************************************************** 06/22/17 ZL1*** //***************************************************** 06/22/17 ZL1***
//* RAINCODE TESTED ON 08/30/25 ZL1
//* //*
// SET MSTNODE='PROD' // SET MSTNODE='PROD'
// SET LVLNODE='DEVL' // SET LVLNODE='DEVL'

9
JCL/DTSBX626.jcl
View File

@ -28,7 +28,7 @@
//* OUTPUT FILE: 00001700 //* OUTPUT FILE: 00001700
//* 00001700 //* 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 //* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700 //** 00001700
//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS //STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS
@ -108,7 +108,8 @@
//* //*
//STEP0400 EXEC DTSBX626 //STEP0400 EXEC DTSBX626
//*********************************************************** //***********************************************************
//* //
//
// IF (STEP0400.STEP0450.RC EQ 0) THEN // IF (STEP0400.STEP0450.RC EQ 0) THEN
//STEP0500 EXEC PGM=IEBGENER,REGION=4M, //STEP0500 EXEC PGM=IEBGENER,REGION=4M,
// COND=(0,LT) // COND=(0,LT)
@ -122,7 +123,7 @@
// 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'), // 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'),
// MAILFROM=DUTAS@DC.GOV // MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR //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 //SYSIN DD DUMMY
//* //*
// ELSE // ELSE
@ -139,7 +140,7 @@
// 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'), // 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'),
// MAILFROM=DUTAS@DC.GOV // MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR //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 //SYSIN DD DUMMY
//* //*
// ENDIF // ENDIF

22
JCL/DTSBX629.jcl
View File

@ -22,7 +22,7 @@
// COND=(0,LT) 00100000 // COND=(0,LT) 00100000
//SYSOUT DD SYSOUT=* 00110000 //SYSOUT DD SYSOUT=* 00110000
//* 00120000 //* 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 // DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,DISP=SHR 00131013
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00140000 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00140000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00150000 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00150000
@ -34,7 +34,7 @@
// UNIT=SYSDA, 00210000 // UNIT=SYSDA, 00210000
// SPACE=(30720,(2000,2000),RLSE), 00211000 // SPACE=(30720,(2000,2000),RLSE), 00211000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00212002 // 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 //SYSIN DD * 00213102
SORT FIELDS=(62,6,CH,A,86,5,CH,A) 00213202 SORT FIELDS=(62,6,CH,A,86,5,CH,A) 00213202
SUM FIELDS=NONE 00213302 SUM FIELDS=NONE 00213302
@ -57,8 +57,7 @@
// UNIT=SYSDA, 00320000 // UNIT=SYSDA, 00320000
// SPACE=(30720,(2000,2000),RLSE), 00330000 // SPACE=(30720,(2000,2000),RLSE), 00330000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340000 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340000
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSBX629),DISP=SHR //SYSIN DD DSN=DOESTAX.&LVLNODE..USER.PARMLIB(DTSBX629),DISP=SHR 00350001
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBX629),DISP=SHR 00350001
//* 00360000 //* 00360000
//************************************************************** 01210000 //************************************************************** 01210000
//* CREATE REPORT FOR STAFF TO REVIEW TDEC MISSING REPORTS. MISSING 01220012 //* CREATE REPORT FOR STAFF TO REVIEW TDEC MISSING REPORTS. MISSING 01220012
@ -73,10 +72,15 @@
//DTSFX140 DD DSN=&&TDECMISS,DISP=(OLD,PASS,DELETE) 01290202 //DTSFX140 DD DSN=&&TDECMISS,DISP=(OLD,PASS,DELETE) 01290202
//DTSFI144 DD DSN=&&TDECANN,DISP=(OLD,PASS,DELETE) 01291013 //DTSFI144 DD DSN=&&TDECANN,DISP=(OLD,PASS,DELETE) 01291013
//DTSFO144 DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,DISP=SHR 01292013 //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 //SYSOUT DD SYSOUT=* 01308000
//* 01360006 //*
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01361000 //EMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01361000
// REGION=4M 01362000 // REGION=4M 01362000
//SYSPRINT DD SYSOUT=* 01363000 //SYSPRINT DD SYSOUT=* 01363000
//OUT1 OUTPUT DEST=U1003, 01364000 //OUT1 OUTPUT DEST=U1003, 01364000
@ -85,13 +89,13 @@
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV', 01368010 // 'CC:RAJINI.JUJJAVARAPU@DC.GOV', 01368010
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', 01368118 // 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', 01368118
// 'CC:TIM.PERLOW@DC.GOV', 01369016 // '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 // 'SUBJECT: TDEC-ESSP REPORTS SENT/RECEIVED', 01369212
// 'FILENAME:ESSP_TDEC_WAGES.TXT', 01369411 // 'FILENAME:ESSP_TDEC_WAGES.TXT', 01369411
// 'FILEDESC: TDEC REPORTS RECEIVED FROM ESSP '), 01369515 // 'FILEDESC: TDEC REPORTS RECEIVED FROM ESSP '), 01369515
// MAILFROM=DUTAS@DC.GOV 01369615 // MAILFROM=DUTAS@DC.GOV 01369615
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT,DISP=SHR 01369706 //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 //SYSIN DD DUMMY 01369900
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01370000 //SYSUDUMP DD SYSOUT=(*,,DUMP) 01370000
//**********************************************************************01380000 //**********************************************************************01380000

29
JCL/DTSBX630.jcl
View File

@ -4,7 +4,7 @@
//** CROSS CHECK ESSP DAILY RECORD COUNT WITH FILES RECEIVED. 00051005 //** CROSS CHECK ESSP DAILY RECORD COUNT WITH FILES RECEIVED. 00051005
//** PROGRAM ABENDS IF COUNTS DONT MATCH 07/12/18 ZL1 00053005 //** PROGRAM ABENDS IF COUNTS DONT MATCH 07/12/18 ZL1 00053005
//** 00054000 //** 00054000
//** 00055000 //** RAINCODE TESTED 08/30/25 ZL1 00055000
// SET PRGNODE='DEVL' 00056000 // SET PRGNODE='DEVL' 00056000
// SET LVLNODE='CONV' 00056100 // SET LVLNODE='CONV' 00056100
// SET MSTNODE='PROD' 00056200 // SET MSTNODE='PROD' 00056200
@ -28,8 +28,9 @@
//** 00160017 //** 00160017
//OFILE DD DSN=DOESTAX.CONV.FROMESSP.BKPX999(+1), 00170017 //OFILE DD DSN=DOESTAX.CONV.FROMESSP.BKPX999(+1), 00170017
// DISP=(NEW,CATLG,DELETE), 00180017 // DISP=(NEW,CATLG,DELETE), 00180017
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE), 00190017 // UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=80) 00200017 // CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=80) 00200017
//SYSPRINT DD SYSOUT=(*) 00210017 //SYSPRINT DD SYSOUT=(*) 00210017
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR 00220017 //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR 00220017
//* 00230017 //* 00230017
@ -54,9 +55,13 @@
//DTSFX147 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR 01295001 //DTSFX147 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR 01295001
//DTSFX998 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR 01296002 //DTSFX998 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR 01296002
//DTSFX999 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR 01297001 //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 //SYSOUT DD SYSOUT=* 01308000
//* 01360000 //* 01360000
//STEP0400 EXEC PGM=IEBGENER,COND=(0,LT), 01361010 //STEP0400 EXEC PGM=IEBGENER,COND=(0,LT), 01361010
// REGION=4M 01362000 // REGION=4M 01362000
//SYSPRINT DD SYSOUT=* 01363000 //SYSPRINT DD SYSOUT=* 01363000
@ -72,8 +77,11 @@
// 'FILENAME:ESSP_DOES_COUNT.TXT', 01369604 // 'FILENAME:ESSP_DOES_COUNT.TXT', 01369604
// 'FILEDESC: ESSP DAILY SUMMARY RECORD COUNTS TO DUTAS'), 01369721 // 'FILEDESC: ESSP DAILY SUMMARY RECORD COUNTS TO DUTAS'), 01369721
// MAILFROM=DUTAS@DC.GOV 01369821 // MAILFROM=DUTAS@DC.GOV 01369821
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR 01369904 //SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01370004 // 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 //SYSIN DD DUMMY 01370104
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01370204 //SYSUDUMP DD SYSOUT=(*,,DUMP) 01370204
//* 01371006 //* 01371006
@ -92,8 +100,11 @@
// 'FILENAME:ESSP_DOES_COUNT.TXT', 01379506 // 'FILENAME:ESSP_DOES_COUNT.TXT', 01379506
// 'FILEDESC: ESSP DAILY SUMMARY RECORD COUNTS TO DUTAS'), 01379620 // 'FILEDESC: ESSP DAILY SUMMARY RECORD COUNTS TO DUTAS'), 01379620
// MAILFROM=DUTAS@DC.GOV 01379720 // MAILFROM=DUTAS@DC.GOV 01379720
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR 01379806 //SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01379906 // 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 //SYSIN DD DUMMY 01380006
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01381006 //SYSUDUMP DD SYSOUT=(*,,DUMP) 01381006
//**********************************************************************01390004 //**********************************************************************01390004

6
JCL/DTSBXACH.jcl
View File

@ -16,7 +16,7 @@
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCS.BATCH.LIB 00001600 //PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600
//** 00001700 //** 00001700
//* PROCESS ESSP ACH PAYMENTS FILES 00001700 //* PROCESS ESSP ACH PAYMENTS FILES - testing RC ZL1 00001700
//* 00001700 //* 00001700
//** 00001700 //** 00001700
//** THIS JOB WILL PROCESS ESSP ACH PAYMENTS TO DUTAS 00001700 //** THIS JOB WILL PROCESS ESSP ACH PAYMENTS TO DUTAS 00001700
@ -28,11 +28,11 @@
//***************************************************************** //*****************************************************************
//** //**
//STEP0200 EXEC DTSBXACH //STEP0200 EXEC DTSBXACH
//* //
//STEP0300 EXEC DTSRSESP //STEP0300 EXEC DTSRSESP
//*** //***
//* REPORT GENERATION //* REPORT GENERATION
//STEP0300 EXEC DTSRERPT //*STEP0300 EXEC DTSRERPT
//STEP0100.RPT140R1 DD HOLD=YES //STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES //STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES //STEP0100.RPT907R1 DD HOLD=YES

23
JCL/DTSBXPFL.jcl
View File

@ -29,7 +29,13 @@
//SYSPRINT DD SYSOUT=(*) //SYSPRINT DD SYSOUT=(*)
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR //SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
// DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,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) //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK02 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) //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
@ -68,13 +74,13 @@
OMIT COND(24,9,CH,EQ,C'060726487') 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) //*YSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9) //***SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
//SYSIN DD * //*SYSIN DD *
FWFRIENDLY TRUE //**FWFRIENDLY TRUE
//SYSPRINT DD SYSOUT=*,HOLD=YES //*SYSPRINT DD SYSOUT=*,HOLD=YES
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR //*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR
//* //*
//******************************************************************* //*******************************************************************
//STEP0400 EXEC PGM=IDCAMS //STEP0400 EXEC PGM=IDCAMS
@ -84,7 +90,8 @@ FWFRIENDLY TRUE
// DISP=(,CATLG,DELETE), // DISP=(,CATLG,DELETE),
// UNIT=SYSDA, // UNIT=SYSDA,
// SPACE=(CYL,(20,10),RLSE), // 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 * //SYSIN DD *
REPRO INFILE(INDD01) OUTFILE(OUTDD01) REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/* /*

5
JCL/DTSBXREL.jcl
View File

@ -17,7 +17,7 @@
//LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600
//** 00001700 //** 00001700
//* PROCESS ESSP PENDING DATA FILES (REPORTS AND PAYMENTS) 00001700 //* PROCESS ESSP PENDING DATA FILES (REPORTS AND PAYMENTS) 00001700
//* 00001700 //* TESTING RC ZL1 00001700
//** 00001700 //** 00001700
//** THIS JOB WILL PROCESS ESSP PENDING REPORT WAGES AND PAYMENTS 00001700 //** THIS JOB WILL PROCESS ESSP PENDING REPORT WAGES AND PAYMENTS 00001700
//** 1. REPORTS(X140) WILL GO TO PENDING FILE IF NO 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 //* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700 //** 00001700
//***************************************************************** //*****************************************************************
//**
//STEP0200 EXEC DTSNXREL //STEP0200 EXEC DTSNXREL
//* //*
//STEP0200 EXEC DTSRSESP //STEP0200 EXEC DTSRSESP
//*** //***
//* REPORT GENERATION //* REPORT GENERATION
//STEP0300 EXEC DTSRERPT //*STEP0300 EXEC DTSRERPT
//STEP0100.RPT140R1 DD HOLD=YES //STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES //STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES //STEP0100.RPT907R1 DD HOLD=YES

8
JCL/DTSCHGQ1.jcl
View File

@ -17,7 +17,7 @@
// SET CHGNODE='PROD' 00070017 // SET CHGNODE='PROD' 00070017
// SET CHGMNBR='CHGM002' 00071004 // SET CHGMNBR='CHGM002' 00071004
// SET CHGMSSN='CHGM030' 00072014 // SET CHGMSSN='CHGM030' 00072014
// SET QTRLY='QTR251' <<<<<<<<< CHANGE PARM <<<<<<<<<<<<<<< 00080038 // SET QTRLY='QTR253' <<<<<<<<< CHANGE PARM <<<<<<<<<<<<<<< 00080038
// SET LDEST=U@PRT65 00090000 // SET LDEST=U@PRT65 00090000
// SET LVDHOLD='YES' 00100027 // SET LVDHOLD='YES' 00100027
// SET LHOLD='YES' 00101027 // SET LHOLD='YES' 00101027
@ -27,9 +27,9 @@
//**** 00150000 //**** 00150000
//* QUARTERLY CHARGE REPORTING PROCESS FOR SI EMPLOYERS ONLY 00160032 //* QUARTERLY CHARGE REPORTING PROCESS FOR SI EMPLOYERS ONLY 00160032
//**** 00480000 //**** 00480000
//STEP0200 EXEC DTSUXCGP 00490000 //*STEP0200 EXEC DTSUXCGP 00490000
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGQ1), 00491032 //*STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGQ1), 00491032
// DISP=SHR 00500032 //* DISP=SHR 00500032
//**** 00504000 //**** 00504000
//STEP0300 EXEC DTSCHGQ1 00510031 //STEP0300 EXEC DTSCHGQ1 00510031
//STEP0100.RPC110R1 DD DUMMY /* SI REPORTS PRODUCED IN Q2 00511030 //STEP0100.RPC110R1 DD DUMMY /* SI REPORTS PRODUCED IN Q2 00511030

14
JCL/DTSCHGQ2.jcl
View File

@ -19,7 +19,7 @@
// SET MSTNODE='PROD' 00070009 // SET MSTNODE='PROD' 00070009
// SET CHGNODE='PROD' 00080000 // SET CHGNODE='PROD' 00080000
// SET CHGMNBR='CHGM002' 00090000 // SET CHGMNBR='CHGM002' 00090000
// SET QTRLY='QTR251' <<<<<<<<<<<< CHANGE PARM <<<<<<<<< 00091021 // SET QTRLY='QTR253' <<<<<<<<<<<< CHANGE PARM <<<<<<<<< 00091021
// SET LDEST=U@PRT65 00092005 // SET LDEST=U@PRT65 00092005
// SET LVDHOLD='YES' 00093014 // SET LVDHOLD='YES' 00093014
// SET LHOLD='NO' 00094014 // SET LHOLD='NO' 00094014
@ -41,7 +41,10 @@
//SORTIN DD DSN=DOESTAX.CONV.SI.CHARGE.TXT, //SORTIN DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,
// DISP=SHR // 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 * //SYSIN DD *
SORT FIELDS=COPY SORT FIELDS=COPY
INCLUDE COND=(6,1,CH,EQ,C'0',OR, INCLUDE COND=(6,1,CH,EQ,C'0',OR,
@ -105,15 +108,16 @@
//OUT1 OUTPUT DEST=U1003, //OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', // USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'TO:YINKA.OLAREWAJU-ALO@DC.GOV', // 'TO:YINKA.OLAREWAJU-ALO@DC.GOV',
// 'TO:JOY.DIGGS@DC.GOV', //* 'TO:JOY.DIGGS@DC.GOV',
// 'TO:MARGARET.HERNANDEZ@DC.GOV', // 'TO:MARGARET.HERNANDEZ@DC.GOV',
// 'TO:SRUJANI.CHANDRAGIRI@DC.GOV', // 'TO:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV', // 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'SUBJECT: SI QUARTERLY CHARGES REPORTS PRINTED', // 'SUBJECT: SI QUARTERLY CHARGES REPORTS PRINTED',
// 'FILENAME:SI_QTR_CHARGE.TXT'), // 'FILENAME:SI_QTR_CHARGE.TXT'),
// MAILFROM=DUTAS@DC.GOV // MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,DISP=SHR //SYSUT1 DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,DISP=SHR,
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 // CODEPAGE=1252,AUTOENCODE=YES
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY //SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP) //SYSUDUMP DD SYSOUT=(*,,DUMP)
//** //**

12
JCL/DTSCHGRT.jcl
View File

@ -4,7 +4,7 @@
// NOTIFY=ECNTSUP,REGION=0M 00030099 // NOTIFY=ECNTSUP,REGION=0M 00030099
//**** 00040000 //**** 00040000
//* BENEFIT CHARGE REPORTING PROCESS FOR RATED EMPLOYERS ONLY 00041099 //* 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 //**** JOB CAN RUN ANYTIME - NO MASTER FILES UPDATED 00041299
//**** 00042000 //**** 00042000
// SET PRGNODE='PROD' 00043099 // SET PRGNODE='PROD' 00043099
@ -14,21 +14,21 @@
// SET UINODE='PROD' 00047000 // SET UINODE='PROD' 00047000
// SET CHGMNBR='CHGM002' 00048000 // SET CHGMNBR='CHGM002' 00048000
// SET CHGMSSN='CHGM030' 00049000 // SET CHGMSSN='CHGM030' 00049000
// SET QTRLY='QTR251' 00050099 // SET QTRLY='QTR253' 00050099
// SET LDEST='U@PRT155' 00070099 // SET LDEST='U@PRT155' 00070099
// SET LHOLD='YES' 00080099 // SET LHOLD='YES' 00080099
// SET LVDHOLD='YES' 00081099 // SET LVDHOLD='YES' 00081099
//***** 00090000 //***** 00090000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB 00100000 //PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB 00100000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00110000 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00110000
//**** 00120000 //**** 00120000
//**** 00130000 //**** 00130000
//STEP0100 EXEC DTSUXCGR 00140099 //STEP0100 EXEC DTSUXCGR 00140099
//*TEP0300.CHGPARM DD DISP=SHR /* CHARGE PARM 00150099 //*TEP0300.CHGPARM DD DISP=SHR /* CHARGE PARM 00150099
//*TEP1400.BD220CHG DD DISP=SHR /* CHARGE REPORT FILE 00160099 //*TEP1400.BD220CHG DD DISP=SHR /* CHARGE REPORT FILE 00160099
//STEP0300.EXTPARM DD * 00170065 //*STEP0300.EXTPARM DD * 00170065
QTR, , ,YYYYYY,000000 00200099 //*QTR, , ,YYYYYY,000000 00200099
/* 00210000 //* 00210000
//*ANN, , ,YYYYYY,000000 00220099 //*ANN, , ,YYYYYY,000000 00220099
//*QTR, , ,YYYYNY,000000 00230099 //*QTR, , ,YYYYNY,000000 00230099
//*EMP,070106,063007,YNNNNN,154162 00240099 //*EMP,070106,063007,YNNNNN,154162 00240099

7
JCL/DTSDX145.jcl
View File

@ -16,7 +16,12 @@
//SORT.SYSUDUMP DD SYSOUT=* //SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=* //SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR //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) //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD * //SYSIN DD *

30
JCL/DTSDX216.jcl Normal file
View File

@ -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
//********************************************************************

16
JCL/DTSFRAUD.jcl
View File

@ -17,7 +17,7 @@
//SYSABEND DD SYSOUT=* //SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFX140 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR //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), //DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),
// DISP=(,CATLG,DELETE), // DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE), // SPACE=(8192,(100,200),RLSE),
@ -28,11 +28,11 @@
//* SPACE=(8192,(100,200),RLSE), //* SPACE=(8192,(100,200),RLSE),
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) //* 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), //* DISP=(,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE), //* SPACE=(8192,(100,200),RLSE),
//* CODEPAGE=1252,AUTOENCODE=YES, // CODEPAGE=1252,AUTOENCODE=YES,
//* DCB=(RECFM=LSEQ,LRECL=161,BLKSIZE=1610) // DCB=(RECFM=LSEQ,LRECL=160,BLKSIZE=1600)
//* //*
//STEP0200 EXEC PGM=DESBD474, //STEP0200 EXEC PGM=DESBD474,
// COND=(0,LT), // COND=(0,LT),
@ -41,9 +41,9 @@
//SYSABOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=* //SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR //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 //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), //DTSFF144 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X144(+1),
// DISP=(,CATLG,DELETE), // DISP=(,CATLG,DELETE),
// SPACE=(CYL,(100,50),RLSE), // SPACE=(CYL,(100,50),RLSE),
@ -64,7 +64,7 @@
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),DISP=SHR //DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),DISP=SHR
//DTSFX147 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,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), //DTSFF147 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X147(+1),
// DISP=(,CATLG,DELETE), // DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE), // SPACE=(8192,(100,200),RLSE),
@ -94,7 +94,7 @@
// 'FILENAME:DAILY_POTENTIAL_FRAUD.CSV'), // 'FILENAME:DAILY_POTENTIAL_FRAUD.CSV'),
// MAILFROM=DUTAS@DC.GOV // MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR //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 //SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP) //SYSUDUMP DD SYSOUT=(*,,DUMP)
//* //*

151
JCL/DTSFRAUDZ.jcl Normal file
View File

@ -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
//*

38
JCL/DTSFTP147.jcl Normal file
View File

@ -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
/*

32
JCL/DTSGACHD.jcl
View File

@ -28,24 +28,24 @@
//*----------------------------------------------------- //*-----------------------------------------------------
//* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS //* 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='-r TLS safetrans.wellsfargo.com'
// PARM='-Sftp=TRUE 10.57.110.160' //* PARM='-Sftp=TRUE 10.57.110.160'
//ENVVAR DD * //*ENVVAR DD *
CLIENT=sftp //* CLIENT=sftp
SFTP_AUTH=3 //* SFTP_AUTH=3
/* /*
//*SFTPAUTH DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24) //*SFTPAUTH DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
//SFTPAUTH DD * //*SFTPAUTH DD *
machine 10.57.110.160 user dutasrc pass Today728rc! //* machine 10.57.110.160 user dutasrc pass Today728rc!
/* /*
//*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN) //*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN)
//NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24) //*NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT) //*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT)
// DD * //* DD *
FWFRIENDLY TRUE //*FWFRIENDLY TRUE
//SYSPRINT DD SYSOUT=*,HOLD=YES //*SYSPRINT DD SYSOUT=*,HOLD=YES
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWFAD),DISP=SHR //*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWFAD),DISP=SHR
/* /*
//******************************************************************** //********************************************************************
//*** COPY essp ach RETURNS to backup ach file. //*** COPY essp ach RETURNS to backup ach file.
@ -85,8 +85,10 @@ FWFRIENDLY TRUE
// 'FILEDESC: ESSP ACH RETURNS FORM WELLS FARGO ', // 'FILEDESC: ESSP ACH RETURNS FORM WELLS FARGO ',
// 'FILENAME:ESSP_DUTAS_ACHRETURNS.TXT'), // 'FILENAME:ESSP_DUTAS_ACHRETURNS.TXT'),
// MAILFROM=DUTAS@DC.GOV // MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X426ACHR(+1),DISP=SHR //SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X426ACHR(+1),DISP=SHR,
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 // CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=134,BLKSIZE=1340)
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY //SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP) //SYSUDUMP DD SYSOUT=(*,,DUMP)
//**** //****

12
JCL/DTSGACPY.jcl Normal file
View File

@ -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)
//

31
JCL/DTSGCHKS.jcl
View File

@ -8,13 +8,13 @@
//**** //****
//*** REMOVED PAYMENT CHECK FILE FROM THIS JOB 040119 ZL1 //*** REMOVED PAYMENT CHECK FILE FROM THIS JOB 040119 ZL1
//*** PAYMENTS ARE NOW MADE IN JOB BX530................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. //*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY.
//**** //****
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1. //*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
//******************************************************************** //********************************************************************
//**`**** CHANGE PARM QTR TO CURRENT QUARTER ******** //**`**** CHANGE PARM QTR TO CURRENT QUARTER ********
// SET CURRQTR='Q2018Q4' // SET CURRQTR='Q20252Q2'
// SET LVLNODE='CONV' // SET LVLNODE='CONV'
// SET MSTNODE='PROD' // SET MSTNODE='PROD'
// SET PRGNODE='CONV' // SET PRGNODE='CONV'
@ -39,7 +39,8 @@
//OUTDD01 DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+1), //OUTDD01 DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+1),
// DISP=(,CATLG,DELETE), // DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), // 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 //SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//********************************************************************* //*********************************************************************
//******************************************************************** //********************************************************************
@ -60,12 +61,13 @@
//* //*
//*DECRYPT EXEC SECPDEC,COND=(0,LT) //*DECRYPT EXEC SECPDEC,COND=(0,LT)
//*ECRYPT EXEC SECODEC,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 //IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1), //OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),
// DISP=(,CATLG,DELETE), // DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), // 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=(*) //SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//** //**
@ -81,7 +83,8 @@
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.SDAILY.CHKS(+1), //OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.SDAILY.CHKS(+1),
// DISP=(NEW,CATLG,DELETE), // DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), // 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=(*) //SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//** //**
@ -96,7 +99,8 @@
//* DISP=(NEW,CATLG,DELETE), //* DISP=(NEW,CATLG,DELETE),
// DISP=MOD, // DISP=MOD,
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), // 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=(*) //SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//** //**
@ -106,13 +110,14 @@
//** //**
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS, //OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS,
//* DISP=(NEW,CATLG,DELETE), //* DISP=(NEW,CATLG,DELETE),
//* DISP=MOD, //* DISP=MOD,
// DISP=SHR, // DISP=SHR,
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), // 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=(*) //SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//** //*
//******************************************************************** //********************************************************************
//**** DELETE TDEC ENCRYPTED CHECK FILE //**** DELETE TDEC ENCRYPTED CHECK FILE
//******************************************************************** //********************************************************************
@ -126,12 +131,12 @@
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR //*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDCHK),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 //* REPORT GENERATION
//STEP0400 EXEC DTSRERPZ //*STEP0400 EXEC DTSRERPT
//STEP0100.RPT140R1 DD HOLD=YES //STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES //STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES //STEP0100.RPT907R1 DD HOLD=YES

45
JCL/DTSGPAYT.jcl
View File

@ -15,7 +15,7 @@
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1. //*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
//******************************************************************** //********************************************************************
//******** CHANGE QTR PARM TO CURRENT QTR ********** //******** CHANGE QTR PARM TO CURRENT QTR **********
// SET CURRQTR='Q2017Q4' // SET CURRQTR='Q2025Q2'
//* //*
// SET LVLNODE='CONV' // SET LVLNODE='CONV'
// SET MSTNODE='PROD' // SET MSTNODE='PROD'
@ -55,27 +55,30 @@
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR //SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//********************************************************************* //*********************************************************************
//* //*
//TDECFTP EXEC PGM=FTP,COND=(0,LT) //*TDECFTP EXEC PGM=FTP,COND=(0,LT)
//SYSPRINT DD SYSOUT=* //*SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=* //*OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 //*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80 //*SYSGET DD *,DCB=BLKSIZE=80
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDREPT),DISP=SHR //**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDREPT),DISP=SHR
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTEPT),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 //***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDPT),DISP=SHR
//* //*
//******************************************************************** //********************************************************************
//**** DECRYPT TDEC PAYMENT FILE INTO DATAOUT //**** DECRYPT TDEC PAYMENT FILE INTO DATAOUT
//******************************************************************** //********************************************************************
//* //*
//DECRYPT EXEC SECPDEC,COND=(0,LT) //*DECRYPT EXEC SECPDEC,COND=(0,LT)
//*ECRYPT EXEC SECODEC,COND=(0,LT) //*ECRYPT EXEC SECODEC,COND=(0,LT)
//DATAIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR //DECRYPT EXEC PGM=IDCAMS,COND=(0,LT)
//DATAOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1), //IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),
// DISP=(,CATLG,DELETE), // DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), // 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. //*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE.
@ -116,21 +119,21 @@
//* DISP=(NEW,CATLG,DELETE), //* DISP=(NEW,CATLG,DELETE),
// DISP=SHR, // DISP=SHR,
// UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE), // 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=(*) //SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//** //**
//******************************************************************** //********************************************************************
//**** DELETE TDEC ENCRYPTED PAYMENT FILE FROM TDEC SERVER //**** DELETE TDEC ENCRYPTED PAYMENT FILE FROM TDEC SERVER
//******************************************************************** //********************************************************************
//TDECDEL EXEC PGM=FTP,COND=(0,LT) //*TDECDEL EXEC PGM=FTP,COND=(0,LT)
//SYSPRINT DD SYSOUT=* //*SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=* //*OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 //*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80 //*SYSGET DD *,DCB=BLKSIZE=80
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRPAY),DISP=SHR //***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRPAY),DISP=SHR
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDEPAY),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 //***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDPAY),DISP=SHR
//* //*
//** //**
@ -138,8 +141,8 @@
//* //*
//STEP0200 EXEC DTSRSESP //STEP0200 EXEC DTSRSESP
//*** //***
//* REPORT GENERATION //* NEED TO FIX FOR PRODUCTION USE REPORT GENERATION
//STEP0300 EXEC DTSRQRPT //*STEP0300 EXEC DTSRQRPT
//STEP0100.RPT140R1 DD HOLD=YES //STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES //STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES //STEP0100.RPT907R1 DD HOLD=YES

2
JCL/DTSGSID0.jcl
View File

@ -62,7 +62,7 @@
//OUTOUT DD SYSOUT=* //OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 //SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80 //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 //*NPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGUCHG),DISP=SHR
//******************************************************************* //*******************************************************************
//* //*

28
JCL/DTSGSID2.jcl
View File

@ -9,7 +9,9 @@
//* 00001700 //* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600 //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700 //**
//* RAINCODE TESTED 08/30/25 ZL1
//* 00001700
//* EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS) FOR UIBS 00001700 //* EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS) FOR UIBS 00001700
//* FROM TAX MASTER FILES FOR BENEFITS APPLICATIONS 00001700 //* FROM TAX MASTER FILES FOR BENEFITS APPLICATIONS 00001700
//* 00001700 //* 00001700
@ -42,7 +44,7 @@
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) //SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD * //SYSIN DD *
SORT FIELDS=(1,9,CH,A,44,5,CH,A,57,6,CH,A) 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 //** 00001700
//STEP0250 EXEC PGM=SORT, //STEP0250 EXEC PGM=SORT,
@ -110,13 +112,13 @@
//** PUT DUTAS DAILY UPDATES ON UAT SERVER FOR GSI TO PICKUP 00001700 //** PUT DUTAS DAILY UPDATES ON UAT SERVER FOR GSI TO PICKUP 00001700
//** 00001700 //** 00001700
//** 00001700 //** 00001700
//STEP0200 EXEC PGM=FTP, //*STEP0200 EXEC PGM=FTP,
// COND=(0,LT) //* COND=(0,LT)
//SYSPRINT DD SYSOUT=* //*SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=* //*OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 //*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80 //*SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(PUTGSI02),DISP=SHR //*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(PUTGSI02),DISP=SHR
//* //*
//STEP0100 EXEC PGM=DTSBX478, //STEP0100 EXEC PGM=DTSBX478,
// COND=(0,LT), // COND=(0,LT),
@ -130,7 +132,8 @@
//* //*
//DTSFW4 DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR //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 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
@ -150,7 +153,8 @@
// 'FILEDESC: DAILY WAGES COUNT FROM DUTAS ', // 'FILEDESC: DAILY WAGES COUNT FROM DUTAS ',
// 'FILENAME:DAILY-DUTAS-WAGES.TXT'), // 'FILENAME:DAILY-DUTAS-WAGES.TXT'),
// MAILFROM=DUTAS@DC.GOV // MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.UIBS.WZFILE,DISP=SHR //SYSUT1 DD DSN=DOESTAX.CONV.UIBS.WZFILE,
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 // CODEPAGE=1252,AUTOENCODE=YES,DISP=SHR
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY //SYSIN DD DUMMY
//******************************************************************* //*******************************************************************

61
JCL/DTSGWAGE.jcl
View File

@ -8,7 +8,7 @@
//******************* SET QTR PARM TO CURRENT QTR //******************* SET QTR PARM TO CURRENT QTR
//******************************************************************* //*******************************************************************
//**** //****
// SET CURRQTR='Q2021Q2' // SET CURRQTR='Q2025Q2'
//**** //****
//*** FILES COMING FROM TDEC SHOULD USE OUR (OCTO) PUBLIC KEY. //*** FILES COMING FROM TDEC SHOULD USE OUR (OCTO) PUBLIC KEY.
//**** //****
@ -26,26 +26,26 @@
//**** //****
//**** GET TDEC ENCRYPTED WAGE FILE (ONTIME AND DELINQUENT) 4 ESSP //**** GET TDEC ENCRYPTED WAGE FILE (ONTIME AND DELINQUENT) 4 ESSP
//******************************************************************** //********************************************************************
//TDECFTP EXEC PGM=FTP,COND=(0,LT) //*TDECFTP EXEC PGM=FTP,COND=(0,LT)
//SYSPRINT DD SYSOUT=* //*SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=* //*OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 //*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80 //*SYSGET DD *,DCB=BLKSIZE=80
//**PUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDREON),DISP=SHR //**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 //**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDON),DISP=SHR
//* //*
//******************************************************************** //********************************************************************
//**** DECRYPT TDEC DELINQ FILE INTO TEXTOUT //**** DECRYPT TDEC DELINQ FILE INTO TEXTOUT
//******************************************************************** //********************************************************************
//* //*
//DECRYPT EXEC SECPDEC,COND=(0,LT) //*DECRYPT EXEC SECPDEC,COND=(0,LT)
//*ECRYPT EXEC SECODEC,COND=(0,LT) //*ECRYPT EXEC SECODEC,COND=(0,LT)
//DATAIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR //*DATAIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR
//DATAOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1), //*DATAOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),
// DISP=(,CATLG,DELETE), //* DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), //* UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) //* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//* //*
//******************************************************************** //********************************************************************
//*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE. //*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE.
@ -53,12 +53,13 @@
//******************************************************************** //********************************************************************
//** //**
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT) //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), // DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), // 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=(*) //SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//** //**
@ -69,13 +70,14 @@
//******************************************************************** //********************************************************************
//** //**
//COPYESSP EXEC PGM=IDCAMS,COND=(0,LT) //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=(NEW,CATLG,DELETE),
//* DISP=SHR, // DISP=SHR,
//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), // 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=(*) //SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //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 //IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR
//** //**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.&CURRQTR., //OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.&CURRQTR.,
//** DISP=(NEW,CATLG,DELETE), //* DISP=(NEW,CATLG,DELETE),
// DISP=MOD, // DISP=MOD,
// UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE), // 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=(*) //SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//** //
//******************************************************************** //********************************************************************
//**** DELETE TDEC ENCRYPTED WAGE FILE FROM TDEC SERVER //**** DELETE TDEC ENCRYPTED WAGE FILE FROM TDEC SERVER
//******************************************************************** //********************************************************************
@ -108,14 +111,14 @@
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDEWAG),DISP=SHR //*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDEWAG),DISP=SHR
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDWAGE),DISP=SHR //INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDWAGE),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDWAG),DISP=SHR //***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDWAG),DISP=SHR
//* //
//ESSPMAIL EXEC PGM=IEBGENER,COND=(8,NE,TDECDEL), //ESSPMAIL EXEC PGM=IEBGENER,COND=(8,NE,TDECDEL),
// REGION=4M // REGION=4M
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003, //OUT1 OUTPUT DEST=U1003,
//* USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM', //* USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM',
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', // USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'TO:ARAVIND.VITTA@SAGITEC.COM', //* 'TO:ARAVIND.VITTA@SAGITEC.COM',
// 'TO:PRABHU.TEGUR@SAGITEC.COM', // 'TO:PRABHU.TEGUR@SAGITEC.COM',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV', // 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', // 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
@ -125,7 +128,7 @@
// 'FILENAME:NOTDEC_WAGES.TXT'), // 'FILENAME:NOTDEC_WAGES.TXT'),
// MAILFROM=DUTAS@DC.GOV // MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.TDEC.ESSP.NOWAGES.TXT,DISP=SHR //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 //SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP) //SYSUDUMP DD SYSOUT=(*,,DUMP)
//* //*
@ -135,7 +138,7 @@
//OUT1 OUTPUT DEST=U1003, //OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM', // USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM',
//* 'TO:SIVA.SAMBASIVAM@SAGITEC.COM', //* 'TO:SIVA.SAMBASIVAM@SAGITEC.COM',
// 'TO:ARAVIND.VITTA@SAGITEC.COM', //* 'TO:ARAVIND.VITTA@SAGITEC.COM',
// 'TO:PRABHU.TEGUR@SAGITEC.COM', // 'TO:PRABHU.TEGUR@SAGITEC.COM',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV', // 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', // 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
@ -145,7 +148,7 @@
// 'FILENAME:TDEC_WAGES.TXT'), // 'FILENAME:TDEC_WAGES.TXT'),
// MAILFROM=DUTAS@DC.GOV // MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.TDEC.ESSP.WAGES.TXT,DISP=SHR //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 //SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP) //SYSUDUMP DD SYSOUT=(*,,DUMP)
// //

2
JCL/DTSGZCHD.jcl
View File

@ -9,7 +9,7 @@
// SET PRGNODE='CONV' // SET PRGNODE='CONV'
// SET LVDHOLD='YES' // SET LVDHOLD='YES'
//* //*
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB //PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIELIB //LOADLIBS INCLUDE MEMBER=DTSIELIB
//** //**
//**** GET ESSP ACH PAYMENTS FROM WELLS FARGO USING FTPS ON THE //**** GET ESSP ACH PAYMENTS FROM WELLS FARGO USING FTPS ON THE

4
JCL/DTSMIN01.jcl
View File

@ -8,7 +8,9 @@
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600 //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//*LOADLIBS INCLUDE MEMBER=USERJLIB 00001600 //*LOADLIBS INCLUDE MEMBER=USERJLIB 00001600
//* 00001700 //*
//* RAINCODE TESTED 08/30/25 ZL1
//* 00001700
//STEP0100 EXEC PGM=DTSBS411, GENERAL SCAN //STEP0100 EXEC PGM=DTSBS411, GENERAL SCAN
// COND=(0,LT), // COND=(0,LT),
// REGION=4096K // REGION=4096K

54
JCL/DTSMIN02.jcl
View File

@ -4,7 +4,9 @@
//* 00001700 //* 00001700
// SET MSTNODE='PROD' 00001700 // SET MSTNODE='PROD' 00001700
// SET LVLNODE='CONV' 00001700 // SET LVLNODE='CONV' 00001700
//* 00001700 //*
//* RAINCODE TESTED 08/30/25 ZL1
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600 //PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700 //* 00001700
@ -35,36 +37,41 @@
//* DISP=(NEW,CATLG,DELETE), 00006000 //* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000 // DISP=SHR, 00006000
// UNIT=SYSDA, 00007000 // UNIT=SYSDA, 00007000
// SPACE=(29000,(1000,1000),RLSE), 00008000 // SPACE=(29000,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=29,BLKSIZE=29000) 00009000 // CODEPAGE=1252,AUTOENCODE=YES, 00008000
// DCB=(RECFM=LSEQ,LRECL=29,BLKSIZE=29000) 00009000
//* 00001700 //* 00001700
//EXPBX104 DD DSN=DOESTAX.CONV.ESSP.C104, 00005000 //EXPBX104 DD DSN=DOESTAX.CONV.ESSP.C104, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000 //* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000 // DISP=SHR, 00006000
// UNIT=SYSDA, 00007000 // UNIT=SYSDA, 00007000
// SPACE=(21600,(1000,1000),RLSE), 00008000 // SPACE=(21600,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=119,BLKSIZE=23800) 00009000 // CODEPAGE=1252,AUTOENCODE=YES, 00008000
// DCB=(RECFM=LSEQ,LRECL=119,BLKSIZE=23800) 00009000
//* 00001700 //* 00001700
//EXPBX106 DD DSN=DOESTAX.CONV.ESSP.C106, 00005000 //EXPBX106 DD DSN=DOESTAX.CONV.ESSP.C106, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000 //* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000 // DISP=SHR, 00006000
// UNIT=SYSDA, 00007000 // UNIT=SYSDA, 00007000
// SPACE=(26500,(1000,1000),RLSE), 00008000 // SPACE=(26500,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=53,BLKSIZE=26500) 00009000 // CODEPAGE=1252,AUTOENCODE=YES, 00008000
// DCB=(RECFM=LSEQ,LRECL=53,BLKSIZE=26500) 00009000
//* 00001700 //* 00001700
//EXPBX108 DD DSN=DOESTAX.CONV.ESSP.C108, 00005000 //EXPBX108 DD DSN=DOESTAX.CONV.ESSP.C108, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000 //* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000 // DISP=SHR, 00006000
// UNIT=SYSDA, 00007000 // UNIT=SYSDA, 00007000
// SPACE=(24000,(1000,1000),RLSE), 00008000 // SPACE=(24000,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=24,BLKSIZE=24000) 00009000 // CODEPAGE=1252,AUTOENCODE=YES, 00008000
// DCB=(RECFM=LSEQ,LRECL=24,BLKSIZE=24000) 00009000
//* 00001700 //* 00001700
//EXPBX110 DD DSN=DOESTAX.CONV.ESSP.C110, 00005000 //EXPBX110 DD DSN=DOESTAX.CONV.ESSP.C110, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000 //* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000 // DISP=SHR, 00006000
// UNIT=SYSDA, 00007000 // UNIT=SYSDA, 00007000
// SPACE=(24900,(1000,1000),RLSE), 00008000 // SPACE=(24900,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=249,BLKSIZE=24900) 00009000 // CODEPAGE=1252,AUTOENCODE=YES, 00008000
// DCB=(RECFM=LSEQ,LRECL=249,BLKSIZE=24900) 00009000
//* 00001700 //* 00001700
//EXPBX120 DD DUMMY 00005000 //EXPBX120 DD DUMMY 00005000
//* 00001700 //* 00001700
@ -96,7 +103,8 @@
// DISP=SHR,UNIT=SYSDA, 00011*18 // DISP=SHR,UNIT=SYSDA, 00011*18
//* DISP=(NEW,CATLG,DELETE),UNIT=SYSDA, 00011*18 //* DISP=(NEW,CATLG,DELETE),UNIT=SYSDA, 00011*18
// SPACE=(CYL,(100,25),RLSE), // 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 //* 00011*18
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
@ -173,7 +181,7 @@
//***************************************************************** //*****************************************************************
//* EMAIL STEP //* EMAIL STEP
//***************************************************************** //*****************************************************************
//IF1 IF STEP0400.RC=0 THEN //EMAIL IF STEP0400.RC=0 THEN
//* //*
//STEP0500 EXEC PGM=IEBGENER,REGION=4M //STEP0500 EXEC PGM=IEBGENER,REGION=4M
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
@ -189,8 +197,10 @@
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV', // 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'SUBJECT: DAILY MINI CONVERSION REGISTRATION(S) READY '), // 'SUBJECT: DAILY MINI CONVERSION REGISTRATION(S) READY '),
// MAILFROM=DUTAS@DC.GOV // MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.SENTRPT.TXT,DISP=SHR //SYSUT1 DD DSN=DOESTAX.CONV.SENTRPT.TXT,DISP=SHR,
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 // CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=800)
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY //SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP) //SYSUDUMP DD SYSOUT=(*,,DUMP)
// ELSE // ELSE
@ -208,8 +218,10 @@
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV', // 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'SUBJECT: NO DAILY MINI CONV REGISTRATION TODAY...'), // 'SUBJECT: NO DAILY MINI CONV REGISTRATION TODAY...'),
// MAILFROM=DUTAS@DC.GOV // MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.MINICONV.TXT1,DISP=SHR //SYSUT1 DD DSN=DOESTAX.CONV.MINICONV.TXT1,DISP=SHR,
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 // CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=800)
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY //SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP) //SYSUDUMP DD SYSOUT=(*,,DUMP)
// ENDIF // ENDIF
@ -228,8 +240,10 @@
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV', // 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'SUBJECT: ACCOUNTS PENDING FOR MINI CONV IN DUTAS.'), // 'SUBJECT: ACCOUNTS PENDING FOR MINI CONV IN DUTAS.'),
// MAILFROM=DUTAS@DC.GOV // MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.CURRRPT.TXT,DISP=SHR //SYSUT1 DD DSN=DOESTAX.CONV.CURRRPT.TXT,DISP=SHR,
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 // CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=800)
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY //SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP) //SYSUDUMP DD SYSOUT=(*,,DUMP)
//* //*

15
JCL/DTSPDAY1.jcl
View File

@ -20,7 +20,7 @@
// SET BYPASS2='000000' /* BYPASS EMPLOYER 2 // SET BYPASS2='000000' /* BYPASS EMPLOYER 2
// SET BYPASS3='000000' /* BYPASS EMPLOYER 3 // SET BYPASS3='000000' /* BYPASS EMPLOYER 3
//* //*
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**** //****
//* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP //* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP
@ -74,7 +74,7 @@
//**** //****
//**** //****
//STEP0075 EXEC DTSBX415 //STEP0075 EXEC DTSBX415
// /* GET EMLOYER DATA FRROM WEB //*
//****0100 EXEC DTSBX420 (JOB RUNS AFTER RQ325 AND PASSES BTC FILES) //****0100 EXEC DTSBX420 (JOB RUNS AFTER RQ325 AND PASSES BTC FILES)
//**** //****
//* /* MERGE WAGE.BTC TO BTC //* /* MERGE WAGE.BTC TO BTC
@ -82,10 +82,13 @@
//* //*
//*/// REMOVE STEP EMT JOB CANCLLED /* SPC BACKUP OF OLA FOR EMT //*/// REMOVE STEP EMT JOB CANCLLED /* SPC BACKUP OF OLA FOR EMT
//******** EXEC DESOLABK //******** EXEC DESOLABK
//* /* STD DAILY PROC //* /* STD DAILY RAINCODE BACKUP
//* /* STD DAILY BEFORE DAILY BATCH //* /* STD DAILY BEFORE DAILY BATCH
//*STEP0175 EXEC DTSUTVSM, //*STEP0175 EXEC DTSUTVSM,
//* BKUPGEN='(+1)' //* BKUPGEN='(+1)'
//STEP0100 EXEC DTSUTVSM, 00002102
// BKUPGEN='(+1)',freq='DAILY'
//**
//* /* GET CREDITS/DEBITS/REFUNDS FROM WEB //* /* GET CREDITS/DEBITS/REFUNDS FROM WEB
//STEP0200 EXEC DTSDUPDT, //STEP0200 EXEC DTSDUPDT,
//* LHOLD='NO', //* LHOLD='NO',
@ -132,7 +135,9 @@
//** //**
//STEP0300 EXEC DTSACHD1 /* ARECHIVE DAILY REPORTS //STEP0300 EXEC DTSACHD1 /* ARECHIVE DAILY REPORTS
//* //*
//STEP0400 EXEC DTSUTVSM, //*STEP0400 EXEC DTSUTVSM,
// BKUPGEN='(+2)' //* BKUPGEN='(+2)'
//*STEP0100 EXEC DTSUTVSM, 00002102
//* BKUPGEN='(+1)',freq='DAILY'
//** //**
//* //*

2
JCL/DTSPDAY7.jcl
View File

@ -9,7 +9,7 @@
// SET LVLNODE='PROD' // SET LVLNODE='PROD'
// SET LVDHOLD='YES' // SET LVDHOLD='YES'
//* //*
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**** //****
//* 09/30/99 - JHP //* 09/30/99 - JHP

15
JCL/DTSPMON1.jcl
View File

@ -13,7 +13,7 @@
//**** //****
//**** 6/29/09 ADDED PROC (DTSACHM1) TO ARCHIVE REPORTS 405/414 ZL1 //**** 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 //**** 11/09/12 CHANGED REPORT PROC FROM DTSRMEND TO DTSRMTR ZL1
//**** FOR TRMS REPORTS //**** FOR TRMS REPORTS
//**** //****
@ -26,8 +26,8 @@
//LOADLIBS INCLUDE MEMBER=DTSIJLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB
//* //*
//* SPEC BACKUP BEFORE MONTHLY BATCH //* SPEC BACKUP BEFORE MONTHLY BATCH
//STEP0100 EXEC DTSUTVMO, //*STEP0100 EXEC DTSUTVMO,
// BKUPGEN='(+1)' //* BKUPGEN='(+1)'
//* //*
//STEP0200 EXEC DTSUEXT, MONTHLY PERIODIC EXTRACT //STEP0200 EXEC DTSUEXT, MONTHLY PERIODIC EXTRACT
// RUNTYPE='ME', // RUNTYPE='ME',
@ -109,8 +109,8 @@
//********************************************************************* //*********************************************************************
//* //*
//* STD BACKUP AFTER MONTHLY BATCH //* STD BACKUP AFTER MONTHLY BATCH
//STEP0500 EXEC DTSUTVSM, //*STEP0500 EXEC DTSUTVSM,
// BKUPGEN='(+1)' //* BKUPGEN='(+1)'
//**//* THIS RESTORE IS DONE AT MONTH-END TO //**//* THIS RESTORE IS DONE AT MONTH-END TO
//**//* REORG THE MAIN VSAM FILES (MSTA/B/C/D/E/F/G & AIX & WGH) //**//* REORG THE MAIN VSAM FILES (MSTA/B/C/D/E/F/G & AIX & WGH)
//**//* (OLA IS ALREADY RESET BY THE DAILY) //**//* (OLA IS ALREADY RESET BY THE DAILY)
@ -131,10 +131,11 @@
//* //*
//STEP0800 EXEC DTSACHM1 /ARCHIVE MONTHLY REPORTS (405/414) //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 //STEP0800 EXEC PGM=FTP

2
JCL/DTSPODC4.jcl
View File

@ -1,7 +1,7 @@
//DTSPODC4 JOB (0),'CA7 DUMMY JOB',CLASS=P,MSGCLASS=X,USER=#DOADTS, //DTSPODC4 JOB (0),'CA7 DUMMY JOB',CLASS=P,MSGCLASS=X,USER=#DOADTS,
// NOTIFY=ECNTZL1 // NOTIFY=ECNTZL1
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE /*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 * //* THIS JOB IS DEMANDED IN AFTER SUCCESSFULL TRANSMISSION *
//* RUNS ON DOES CA/7 * //* RUNS ON DOES CA/7 *

2
JCL/DTSPODC6.jcl
View File

@ -1,7 +1,7 @@
//DTSPODC6 JOB (0),'CA7 DUMMY JOB',CLASS=P,MSGCLASS=X,USER=#DOADTS, //DTSPODC6 JOB (0),'CA7 DUMMY JOB',CLASS=P,MSGCLASS=X,USER=#DOADTS,
// NOTIFY=ECNTZL1 // NOTIFY=ECNTZL1
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE /*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 * //* THIS JOB IS DEMANDED IN AFTER SUCCESSFULL TRANSMISSION *
//* RUNS ON DOES CA/7 * //* RUNS ON DOES CA/7 *

2
JCL/DTSPVIEW.jcl
View File

@ -6,7 +6,7 @@
// SET LVLNODE='PROD' // SET LVLNODE='PROD'
// SET LVDHOLD='YES' // SET LVDHOLD='YES'
//* //*
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**** //****
//INFOPACK EXEC PGM=INFOPACR, //INFOPACK EXEC PGM=INFOPACR,

2
JCL/DTSPX148.jcl
View File

@ -21,7 +21,7 @@
// SET S0910='+0' // SET S0910='+0'
//* 00001700 //* 00001700
//* 00001700 //* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001600 //PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//***************************************************************** //*****************************************************************
//*** //***

6
JCL/DTSRACHD.jcl
View File

@ -10,7 +10,7 @@
// SET PRGNODE='PROD' // SET PRGNODE='PROD'
// SET LVDHOLD='YES' // SET LVDHOLD='YES'
//* //*
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB //PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB
//** //**
//******************************************************************** //********************************************************************
@ -43,7 +43,7 @@
//** //**
//******************************************************************** //********************************************************************
//** //**
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), //MAIL EXEC PGM=IEBGENER,COND=(0,LT),
// REGION=4M // REGION=4M
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003, //OUT1 OUTPUT DEST=U1003,
@ -59,7 +59,7 @@
// 'FILENAME:essp_ach.TXT'), // 'FILENAME:essp_ach.TXT'),
// MAILFROM=DUTAS@DC.GOV // MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACHDD.TXT,DISP=SHR //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 //SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP) //SYSUDUMP DD SYSOUT=(*,,DUMP)
// //

2
JCL/DTSRBTCH.jcl
View File

@ -7,7 +7,7 @@
//********************************************************************** //**********************************************************************
//*** COPY PROD BTC FILES TO HDVL FOR NEW BATCH raincode tESTING ZL1 //*** 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 //LOADLIBS INCLUDE MEMBER=DTSIJLIB
//* //*
//COPY1Z EXEC PGM=IDCAMS //COPY1Z EXEC PGM=IDCAMS

2
JCL/DTSRDAY1.jcl
View File

@ -13,7 +13,7 @@
// SET LDEST=U@PRT65 // SET LDEST=U@PRT65
// SET PRTHOLD='YES' // SET PRTHOLD='YES'
//* //*
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**** //****
//* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP //* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP

2
JCL/DTSRQ126.jcl
View File

@ -12,7 +12,7 @@
//******************************************************************* //*******************************************************************
//* WEEKLYREPORT DTSBR122 - * //* WEEKLYREPORT DTSBR122 - *
//* APPROVED STATUS DETERMINATIONS E-MAIL //* APPROVED STATUS DETERMINATIONS E-MAIL
//* * //* raincode test zl1 *
//******************************************************************* //*******************************************************************
//* //*
//LOADLIBS INCLUDE MEMBER=DTSIJLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB

2
JCL/DTSRQ202.jcl
View File

@ -27,7 +27,7 @@
//* 12/23/16 ADD STEP TO DELETE JOB DTSPACHD FTP LOG FILE //* 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 //* 07/25/17 ADD STEP TO DELETE/CREATE NEW W4 WAGE FILE ZL1
//* //* 09/26/25 TESTING RAINCODE ZL1
//****************************************************************** //******************************************************************
// SET EXTNODE='CONV' // SET EXTNODE='CONV'
// SET MSTNODE='PROD' // SET MSTNODE='PROD'

2
JCL/DTSRQ320.jcl
View File

@ -7,7 +7,7 @@
//**** //****
// SET LVLNODE='PROD' // SET LVLNODE='PROD'
// SET MSTNODE='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 // SET LHOLD='NO' <<<<<<< FOR FILE NAME ONLY
//**** //****
//* JOB : PENALTY ASSESSMENT PROCESS (RATED EMPLOYERS ONLY) //* JOB : PENALTY ASSESSMENT PROCESS (RATED EMPLOYERS ONLY)

11
JCL/DTSRQ325.jcl
View File

@ -22,7 +22,7 @@
//* HAS A PROBLEM DOCS GET THE OLD FILE FROM LAST RUN AND CAUSES 00001700 //* HAS A PROBLEM DOCS GET THE OLD FILE FROM LAST RUN AND CAUSES 00001700
//* DUPLICATE ERROR CONDITION. 8/4/14 ZL1 00001700 //* DUPLICATE ERROR CONDITION. 8/4/14 ZL1 00001700
//* 00001700 //* 00001700
//* 00001700 //* TESTING RC 09/13/25 ZL1 00001700
//* ADDED STEP0200 DTSBESSP TO BACKUP INPUT FILES FROM ESSP X102 THRU 00001700 //* ADDED STEP0200 DTSBESSP TO BACKUP INPUT FILES FROM ESSP X102 THRU 00001700
//* X145 AND X420,X422 BTC FILES CREATED BY JOB DTSBX420. 00001700 //* X145 AND X420,X422 BTC FILES CREATED BY JOB DTSBX420. 00001700
//* 10/8/14 ZL1 00001700 //* 10/8/14 ZL1 00001700
@ -47,11 +47,14 @@
// UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE), // UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000) // 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
//* 00001700 //* 00001700
//STEP0050 EXEC DTSUTVSM, //*STEP0050 EXEC DTSUTVSM,
// BKUPGEN='(+1)' //* BKUPGEN='(+1)'
//STEP0100 EXEC DTSUTVSM, 00002102
// BKUPGEN='(+1)',freq='DAILY' 00003000
//* //*
//******************************************************************** //********************************************************************
//* BACKUP ALL UI TAX CONV EXTERNAL FILES 00001700 //* BACKUP ALL UI TAX CONV EXTERNAL FILES 00001700

42
JCL/DTSRQ335.jcl
View File

@ -16,7 +16,7 @@
//* 00122099 //* 00122099
//* ADDED BACKUP STEP FOR PAYDIST FILE -10/09 ZL1 00123099 //* ADDED BACKUP STEP FOR PAYDIST FILE -10/09 ZL1 00123099
//* 00124099 //* 00124099
//**** 00130090 //**** RAINCODE TESTED 08/30/25 ZL1 00130090
// SET LVLNODE='PROD' 00140099 // SET LVLNODE='PROD' 00140099
// SET MSTNODE='PROD' 00150099 // SET MSTNODE='PROD' 00150099
// SET RUNTYPE='0' 0=CONVERT; 1=INCREMENTAL 00150199 // SET RUNTYPE='0' 0=CONVERT; 1=INCREMENTAL 00150199
@ -28,7 +28,9 @@
//*TEP0100 EXEC DTSUTVSM, 00191099 //*TEP0100 EXEC DTSUTVSM, 00191099
//* BKUPGEN='(+1)' 00192099 //* BKUPGEN='(+1)' 00192099
//* 00193099 //* 00193099
//STEP0100 EXEC DTSBX340 MASTER FILE DATA 00200099 //STEP0100 EXEC DTSBX340
//*
//*STEP0100 EXEC DTSZX340
//* 00250099 //* 00250099
//STEP0100.DTSFBTCO DD DUMMY 00260061 //STEP0100.DTSFBTCO DD DUMMY 00260061
//STEP0100.DTSFVRO1 DD DUMMY 00270099 //STEP0100.DTSFVRO1 DD DUMMY 00270099
@ -45,13 +47,20 @@
//STEP0600 EXEC PGM=IDCAMS 00292099 //STEP0600 EXEC PGM=IDCAMS 00292099
//SYSPRINT DD SYSOUT=* 00293099 //SYSPRINT DD SYSOUT=* 00293099
//INDD09 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.PAYDIST,DISP=SHR 00294099 //INDD09 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.PAYDIST,DISP=SHR 00294099
//OUTDD01 DD DSN=ECNTSUP.DOESTAX.PROD.PAYDIST.FTP(+1), 00295099 //OUTDD01 DD DSN=ECNTSUP.DOESTAX.PROD.PAYDIST.FTP(+1),
// UNIT=CART, 00296099 //* DISP=SHR
// VOLUME=(,RETAIN), 00296199 // DISP=(NEW,CATLG,DELETE), 00180017
// LABEL=(1,SL,,,EXPDT=99000), 00297099 // UNIT=SYSDA,SPACE=(CYL,(100,10),RLSE), 00190017
// DISP=(,CATLG,DELETE), 00298099 // DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000)
// SPACE=(31552,(200,200),RLSE), 00299099 //*
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=50,BLKSIZE=30000) 00299199 //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 //**** 00299299
REPRO INFILE(INDD09) OUTFILE(OUTDD01) 00299399 REPRO INFILE(INDD09) OUTFILE(OUTDD01) 00299399
/* 00299499 /* 00299499
@ -61,12 +70,15 @@
//SYSOUT DD SYSOUT=* 00299899 //SYSOUT DD SYSOUT=* 00299899
//SORTIN DD DSN=DOESTAX.&LVLNODE..VSAM.ATH,DISP=SHR, 00299999 //SORTIN DD DSN=DOESTAX.&LVLNODE..VSAM.ATH,DISP=SHR, 00299999
// AMP=('BUFNI=5,BUFND=30') 00300099 // AMP=('BUFNI=5,BUFND=30') 00300099
//SORTOUT DD DSN=DOESTAX.&LVLNODE..BACKUP.ATH(+1), 00301099 //SORTOUT DD DSN=DOESTAX.&LVLNODE..BACKUP.ATH(+1),
// DISP=(,CATLG,DELETE), 00302099 // DISP=(NEW,CATLG,DELETE), 00180017
// UNIT=CART, 00303099 // UNIT=SYSDA, 00190017
// VOLUME=(,RETAIN,REF=*.STEP0600.OUTDD01), 00304099 // DCB=(RECFM=FB,LRECL=256,BLKSIZE=25600) 00301099
// LABEL=(2,SL,,,EXPDT=99000), 00305099 //* DISP=(,CATLG,DELETE), 00302099
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=25600) 00306099 //* 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 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00307099
//**** 00310099 //**** 00310099
//* 00470099 //* 00470099

23
JCL/DTSRQ414.jcl
View File

@ -14,7 +14,7 @@
//* ON REQUEST REPORT DTSBR414 - * //* ON REQUEST REPORT DTSBR414 - *
//**** //****
//* 06/30/09 ADDED PROC TO ARCHIVE REPORT RECORDS 414 ZL1 //* 06/30/09 ADDED PROC TO ARCHIVE REPORT RECORDS 414 ZL1
//**** //**** TESTING RC ZL1
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB
//** //**
@ -49,17 +49,18 @@
//STEP0100.RPT907R1 DD HOLD=YES //STEP0100.RPT907R1 DD HOLD=YES
//STEP0100.RPT907R2 DD HOLD=YES //STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 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 //STEP0500 EXEC DTSAR414 /ARCHIVE 414 RECORDS
//** //**
//STEP0600 EXEC DTSUTVSM, //*STEP0600 EXEC DTSUTVSM,
// BKUPGEN='(+1)' //* BKUPGEN='(+1)'
//* //*

4
JCL/DTSRQ442.jcl
View File

@ -16,7 +16,7 @@
//* 1. RUN RIGHT AFTER THE LAST SUCCESSFUL MONTHLY RUN //* 1. RUN RIGHT AFTER THE LAST SUCCESSFUL MONTHLY RUN
//* //*
//* //*
//* //* TESTING RC ZL1
//*================================================================| //*================================================================|
//*** //***
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB //PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
@ -36,7 +36,7 @@
//** //**
//* REPORT GENERATION //* REPORT GENERATION
//STEP0300 EXEC DTSRQRPT //STEP0300 EXEC DTSRQRPT
//* //
//STEP0400 EXEC PGM=FTP //STEP0400 EXEC PGM=FTP
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=* //OUTOUT DD SYSOUT=*

2
JCL/DTSRQ444.jcl
View File

@ -17,7 +17,7 @@
//* //*
//* 2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO //* 2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
//* //*
//* //* testing rc zl1
//*================================================================| //*================================================================|
//*** //***
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB //PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB

21
JCL/DTSRQ459.jcl
View File

@ -29,15 +29,15 @@
/* /*
//*** SORT BE460 FIRST 13 BYTES //*** SORT BE460 FIRST 13 BYTES
//STEP0300 EXEC DTSRS459 //STEP0300 EXEC DTSRS459
// //*
//STEP0400 EXEC PGM=FTP,REGION=2M //*STEP0400 EXEC PGM=FTP,REGION=2M
//*YSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9) //**YSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9) //*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
//SYSIN DD * //*SYSIN DD *
FWFRIENDLY TRUE //*FWFRIENDLY TRUE
//SYSPRINT DD SYSOUT=*,HOLD=YES //*SYSPRINT DD SYSOUT=*,HOLD=YES
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR //*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR
/* //*
//* //*
//******************************************************************** //********************************************************************
//* | //* |
@ -51,7 +51,8 @@ FWFRIENDLY TRUE
// DISP=(,CATLG,DELETE), // DISP=(,CATLG,DELETE),
// UNIT=SYSDA, // UNIT=SYSDA,
// SPACE=(CYL,(20,10),RLSE), // 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 * //SYSIN DD *
REPRO INFILE(INDD01) OUTFILE(OUTDD01) REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/* /*

2
JCL/DTSRQ511.jcl
View File

@ -8,7 +8,7 @@
//* 00001700 //* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600 //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700 //* TESTING RC ZL1 00001700
//* 00001700 //* 00001700
//STEP0100 EXEC PGM=DTSBD511, /* GENERATE NON PAYMNT SUR CHG LTR //STEP0100 EXEC PGM=DTSBD511, /* GENERATE NON PAYMNT SUR CHG LTR
// COND=(0,LT), // COND=(0,LT),

6
JCL/DTSRQ513.jcl
View File

@ -20,7 +20,7 @@
//SYSABOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=* //SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=* //CAIMRPTS DD SYSOUT=*
//RPT513R1 DD SYSOUT=0 //RPT513R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=0
//** //**
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00001600 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00001600
//DTSFVRI1 DD DSN=DOESTAX.&MSTNODE..SRTMONTH.RPT&GEN.,DISP=SHR //DTSFVRI1 DD DSN=DOESTAX.&MSTNODE..SRTMONTH.RPT&GEN.,DISP=SHR
@ -29,8 +29,8 @@
//* //*
//** //**
//DTSF513 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX513, //DTSF513 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX513,
// DISP=(NEW,CATLG,CATLG), //* DISP=(NEW,CATLG,CATLG),
//* DISP=(OLD,KEEP,KEEP), // DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA, // UNIT=SYSDA,
// CODEPAGE=1252,AUTOENCODE=YES, // CODEPAGE=1252,AUTOENCODE=YES,
// SPACE=(800,(1000,1000),RLSE), // SPACE=(800,(1000,1000),RLSE),

27
JCL/DTSRQ713.jcl
View File

@ -8,7 +8,7 @@
// SET MSTNODE='PROD' // SET MSTNODE='PROD'
// SET UINODE='PROD' // SET UINODE='PROD'
// SET SPCNODE='PROD' // SET SPCNODE='PROD'
// SET QTR='Q251' //*** SET QTR='Q063'
// SET LHOLD='NO' // SET LHOLD='NO'
//**** //****
//* BUILD TRANSACTION RECORDS TO CREATE BOTH THE RECONSTRUCTION FILE //* BUILD TRANSACTION RECORDS TO CREATE BOTH THE RECONSTRUCTION FILE
@ -35,14 +35,15 @@
//*STEP0125 EXEC DTSUTVSQ, //*STEP0125 EXEC DTSUTVSQ,
//* BKUPGEN='(+1)' //* BKUPGEN='(+1)'
//*** * //*** *
//*STEP0200 EXEC DTSUX770, BD400 PERIODIC EXTRACT //STEP0200 EXEC DTSUX770, BD400 PERIODIC EXTRACT
//STEP0200 EXEC DTSUX777, BD400 PERIODIC EXTRACT
// RUNTYPE='QE', // RUNTYPE='QE',
// PREBACK='Y' // PREBACK='Y'
//*STEP0100.DTSFREF DD DSN=DOESTAX.&SPCNODE..VSAM.REF, /*1X SPECIAL //*STEP0100.DTSFREF DD DSN=DOESTAX.&SPCNODE..VSAM.REF, /*1X SPECIAL
//* DISP=SHR,AMP=('BUFNI=5,BUFND=10') //* DISP=SHR,AMP=('BUFNI=5,BUFND=10')
//*STEP0100.DTSFBTCO DD DISP=(OLD,KEEP,KEEP) //*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), //STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ713),
// DISP=SHR // DISP=SHR
//*** USE THE FOLLOWING LINES FOR A RERUN **-->> //*** USE THE FOLLOWING LINES FOR A RERUN **-->>
@ -56,13 +57,13 @@
//*** //***
//STEP0100.DTSFVR01 DD DUMMY //STEP0100.DTSFVR01 DD DUMMY
//*** SEND DATA TO SERVER FOR UPLOAD //*** SEND DATA TO SERVER FOR UPLOAD
//STEP0300 EXEC PGM=FTP TO DATA VALIDATION DATABASE //*STEP0300 EXEC PGM=FTP TO DATA VALIDATION DATABASE
//SYSPRINT DD SYSOUT=* //*SYSPRINT DD SYSOUT=*
//SOUTOUT DD SYSOUT=* //*SOUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 //*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80 //*SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFTDVA), //*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFTDVA),
// DISP=SHR //* DISP=SHR
//*** SORT REPORT RECORDS //*** SORT REPORT RECORDS
//STEP0400 EXEC DTSRSORT //STEP0400 EXEC DTSRSORT
//*** REPORT GENERATION //*** REPORT GENERATION
@ -72,9 +73,9 @@
//STEP0100.RPT719R1 DD DUMMY //STEP0100.RPT719R1 DD DUMMY
//STEP0100.DTS910F1 DD DUMMY //STEP0100.DTS910F1 DD DUMMY
//*** STD BACKUP AFTER DATA FILE UPDATE //*** STD BACKUP AFTER DATA FILE UPDATE
//STEP0600 EXEC DTSUTVSM, //*STEP0600 EXEC DTSUTVSM,
//*** BKUPGEN='(+2)' /* (ONLY IF +1 BKP DONE IN STEP0100) //*** BKUPGEN='(+2)' /* (ONLY IF +1 BKP DONE IN STEP0100)
// BKUPGEN='(+1)' //* BKUPGEN='(+1)'
//* //*
//* THIS RESTORE IS DONE AT QTR-END TO //* THIS RESTORE IS DONE AT QTR-END TO
//* REORG THE SECONDARY VSAM FILES (ATC/REF & WRK) //* REORG THE SECONDARY VSAM FILES (ATC/REF & WRK)

2
JCL/DTSRRRPT.jcl
View File

@ -19,7 +19,7 @@
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLPROG..PROCS.BATCH.LIB //PROCLIB JCLLIB ORDER=DOESTAX.&LVLPROG..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**** SORT REPORT RECORDS //**** SORT REPORT RECORDS
//STEP0200 EXEC DTSZSORT //*STEP0200 EXEC DTSZSORT
//*TEP0100.SORTIN DD DSN=DOESTAX.&LVLNODE..SRTDAILY.RPT(+0), //*TEP0100.SORTIN DD DSN=DOESTAX.&LVLNODE..SRTDAILY.RPT(+0),
//* DISP=SHR //* DISP=SHR
//**** DD DSN=DOESTAX.&LVLNODE..PER.RPT.G0349V00, //**** DD DSN=DOESTAX.&LVLNODE..PER.RPT.G0349V00,

5
JCL/DTSVBKUP.jcl
View File

@ -5,11 +5,12 @@
// REGION=0M 00000514 // REGION=0M 00000514
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE /*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00000614 //* 00000614
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000714 //*PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000714
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000814 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000814
//**** 00000914 //**** 00000914
//* UI TAX BACKUP VSAM FILES * 00001000 //* UI TAX BACKUP VSAM FILES * 00001000
//* * 00001100 //* -FREQ <DAILY|WEEKLY|MONTHLY|QUARTERLY>
//* * 00001100
//* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES * 00001200 //* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES * 00001200
//* IN THE CICS REGION. IF YOU FAIL TO CLOSE * 00001300 //* IN THE CICS REGION. IF YOU FAIL TO CLOSE * 00001300
//* THE FILES IN THE CICS REGION BEFORE RUNNING * 00001400 //* THE FILES IN THE CICS REGION BEFORE RUNNING * 00001400

12
JCL/DTSVRSTR.jcl
View File

@ -5,7 +5,7 @@
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE /*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00000500 //* 00000500
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000609 //PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000609
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000721 //*LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000721
//**** 00000921 //**** 00000921
//* UI TAX VSAM FILES RESTORE ------ READ NOTE BELOW -------- * 00001100 //* UI TAX VSAM FILES RESTORE ------ READ NOTE BELOW -------- * 00001100
//* * 00001200 //* * 00001200
@ -20,5 +20,15 @@
//* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES * 00001300 //* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES * 00001300
//* IN THE CICS REGION. * 00001400 //* IN THE CICS REGION. * 00001400
//**** 00001621 //**** 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 //STEP0100 EXEC DTSURVSM, 00002000
// freq='DAILY',gen=-2,src='PROD',tgt='PROD' 00003029 // freq='DAILY',gen=-2,src='PROD',tgt='PROD' 00003029

2
JCL/DTSW4WGE.jcl
View File

@ -9,7 +9,7 @@
//********************************************************************* //*********************************************************************
//* LOAD THE WAGE FILE FOR DOCS NIGHTLY RUN //* LOAD THE WAGE FILE FOR DOCS NIGHTLY RUN
//* //*
//* //* RAINCODE TESTED 08/30/25 ZL1
//********************************************************************* //*********************************************************************
// SET ACHYEAR='FY2009' // SET ACHYEAR='FY2009'
// SET EXTNODE='CONV' // SET EXTNODE='CONV'

2
JCL/DTSZPAYT.jcl
View File

@ -25,7 +25,7 @@
// SET EXTNODE='CONV' // SET EXTNODE='CONV'
// SET RPTNODE='ESSP.BX420.RPT' // SET RPTNODE='ESSP.BX420.RPT'
//* //*
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB //PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB
//** //**
//* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES) //* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)

100
JCL/DTSZX145 (2).jcl Normal file
View File

@ -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)
/*

10
JCL/DefineFLAT.jcl Normal file
View File

@ -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)
//*

19
JCL/IB14flatfile.jcl Normal file
View File

@ -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)
//*
//

75
JCL/IEB14CRE.jcl Normal file
View File

@ -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

337
JCL/JRUN800.jcl Normal file
View File

@ -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

452
JCL/JRUNZ800.jcl Normal file
View File

@ -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

110
JCL/LISTCAT.JCL Normal file
View File

@ -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
/*
//
//

116
JCL/LOADESSP..jcl Normal file
View File

@ -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)
//*
//

206
JCL/LOADESSP.jcl Normal file
View File

@ -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)
/*
//

107
JCL/LOADESSPX999..jcl Normal file
View File

@ -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)
//*

76
JCL/LOADOTHRS..jcl Normal file
View File

@ -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)
/*
//

235
JCL/LOADOTHRS.jcl Normal file
View File

@ -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)
//*
//

31
JCL/LOADWAGPAY.jcl Normal file
View File

@ -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)
//*

56
JCL/LOADX150.jcl Normal file
View File

@ -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)
//*

17
JCL/LOADX999.Jcl Normal file
View File

@ -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)
//*

199
JCL/LOADmini.jcl Normal file
View File

@ -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)
//*
//

2
JCL/RUNPBKUP.jcl
View File

@ -71,7 +71,7 @@
//SYSUDUMP DD SYSOUT=* 00810000 //SYSUDUMP DD SYSOUT=* 00810000
//SYSPRINT DD SYSOUT=* 00820000 //SYSPRINT DD SYSOUT=* 00820000
//INPDS DD DSN=DOESTAX.PROD.PROCS.BATCH.LIB,DISP=SHR 00821000 //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 // DISP=(,CATLG,DELETE), 00840000
// UNIT=SYSDA, 00850000 // UNIT=SYSDA, 00850000
// SPACE=(8000,(2000,500,500)), 00860001 // SPACE=(8000,(2000,500,500)), 00860001

Some files were not shown because too many files have changed in this diff Show More