All Z' modified PROD server code merge 09/10/2025
This commit is contained in:
@ -35,6 +35,10 @@
|
||||
00035 * 02/23/2009 MODIFIED SELECTION TO INCLUDE DC GOV WAGES DESBD310
|
||||
00036 * REFERENCE: PROGRAMMER: GD DESBD310
|
||||
00037 * DESBD310
|
||||
00034 * DESBD310
|
||||
00035 * 10/04/2025 MODIFIED SELECTION TO use 18 byte wwgh DESBD310
|
||||
00036 * copybook : PROGRAMMER: zl1 DESBD310
|
||||
00037 * DESBD310
|
||||
00038 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD310
|
||||
00039 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD310
|
||||
00040 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DESBD310
|
||||
|
||||
519
Batch/DESBD470.cob
Normal file
519
Batch/DESBD470.cob
Normal 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
|
||||
@ -1,5 +1,5 @@
|
||||
00001 IDENTIFICATION DIVISION. 10/02/24
|
||||
00002 PROGRAM-ID. DESBD471. DESBD474
|
||||
00002 PROGRAM-ID. DESBD474. DESBD474
|
||||
00003 AUTHOR. NGC. LV018
|
||||
00004 DATE-WRITTEN. DECEMBER 2012. DESBD474
|
||||
00005 DATE-COMPILED. DESBD474
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
00001 IDENTIFICATION DIVISION. 10/10/24
|
||||
00002 PROGRAM-ID. DESBD471. DESBD475
|
||||
00002 PROGRAM-ID. DESBD475. DESBD475
|
||||
00003 AUTHOR. NGC. LV005
|
||||
00004 DATE-WRITTEN. DECEMBER 2012. DESBD475
|
||||
00005 DATE-COMPILED. DESBD475
|
||||
|
||||
135
Batch/DOESU946.cob
Normal file
135
Batch/DOESU946.cob
Normal 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
|
||||
@ -583,8 +583,10 @@
|
||||
00582 GO TO S910-MSTR-IO. DTSBD120
|
||||
00583 DTSBD120
|
||||
00584 S910-MSTR-IO. DTSBD120
|
||||
RCCODE DISPLAY 'START-Time:' CURRENT-DATE.
|
||||
00585 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD120
|
||||
00586 MSKL-REC. DTSBD120
|
||||
RCCODE DISPLAY 'END-Time:' CURRENT-DATE.
|
||||
00587 S910-EXIT. EXIT. DTSBD120
|
||||
00588 SKIP3 DTSBD120
|
||||
00589 S921-OPEN-READ. DTSBD120
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
00001 IDENTIFICATION DIVISION. 08/27/25
|
||||
00001 IDENTIFICATION DIVISION. 04/03/15
|
||||
00002 PROGRAM-ID. DTSBX418. DTSBX418
|
||||
00003 AUTHOR. NGC. LV052
|
||||
00003 AUTHOR. NGC. LV051
|
||||
00004 DATE-WRITTEN. APRIL 2005. DTSBX418
|
||||
00005 DATE-COMPILED. DTSBX418
|
||||
00006 SKIP3 DTSBX418
|
||||
@ -142,7 +142,7 @@
|
||||
00142 05 SORT-DATA PIC X(512). DTSBX418
|
||||
00143 DTSBX418
|
||||
00144 WORKING-STORAGE SECTION. DTSBX418
|
||||
001445 77 PAN-VALET PICTURE X(24) VALUE '052DTSBX418 08/27/25'. DTSBX418
|
||||
001445 77 PAN-VALET PICTURE X(24) VALUE '051DTSBX418 04/03/15'. DTSBX418
|
||||
00145 77 PAN-VALET PICTURE X(24) VALUE '013DTSBX418 10/07/14'. CL*49
|
||||
00146 77 PAN-VALET PICTURE X(24) VALUE '154DTSBX418 10/07/14'. CL*49
|
||||
00147 SKIP3 DTSBX418
|
||||
@ -566,8 +566,8 @@
|
||||
00565 MOVE W-CURR-RUN-DATE TO LX42-CURR-RUN-DATE. DTSBX418
|
||||
00566 MOVE L005-DATE TO LX42-SYS-DATE. DTSBX418
|
||||
00567 MOVE L005-TIME TO LX42-SYS-TIME. DTSBX418
|
||||
00568 * MOVE ZERO TO LX42-BATCH-NO CL*52
|
||||
00569 MOVE ZERO TO LX42-PSEUDO-BATCH-NO CL*52
|
||||
00568 * MOVE ZERO TO LX42-BATCH-NO DTSBX418
|
||||
00568 MOVE ZERO TO LX42-PSEUDO-BATCH-NO DTSBX418
|
||||
00570 LX42-LAST-DETERM-EMP DTSBX418
|
||||
00571 LX42-RPT-CNT DTSBX418
|
||||
00572 LX42-RPT-REMIT-AMT DTSBX418
|
||||
|
||||
268
Batch/DTSBX802.cob
Normal file
268
Batch/DTSBX802.cob
Normal 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
|
||||
@ -9,9 +9,9 @@
|
||||
00009 * 02/18/2002 INITIAL DEVELOPMENT. GD DTSIWWGH
|
||||
00010 * 03/18/2004 MODIFIED FOR NEW WAGE PROCESS. GD DTSIWWGH
|
||||
00011 * 02/27/2024 MODIFIED FOR UIBS WAGE PROCESSING ZL CL**3
|
||||
00012 * DTSIWWGH
|
||||
00013 * KEY = 12 LENGTH = 23 CL**2
|
||||
00014 * DTSIWWGH
|
||||
00012 * TAXWGH FILE CHANGE ONLY TO 23 BYTES DTSIWWGH
|
||||
00013 * KEY = 12 LENGTH = 23 (TAXWGH ONLY) CL**2
|
||||
00014 * WGH FILE STAYED AT 18 BYTES DTSIWWGH
|
||||
00015 ***** DTSIWWGH
|
||||
00016 DTSIWWGH
|
||||
00017 10 WWGH-KEY-AREA. DTSIWWGH
|
||||
@ -21,4 +21,4 @@
|
||||
00021 DTSIWWGH
|
||||
00022 10 WWGH-DATA-AREA. DTSIWWGH
|
||||
00023 15 WWGH-EARNINGS PIC S9(09)V9(02) COMP-3. DTSIWWGH
|
||||
00024 15 WWGH-CHNG-DATE PIC S9(09) COMP-3. CL**2
|
||||
00024* 15 WWGH-CHNG-DATE PIC S9(09) COMP-3. CL**2
|
||||
|
||||
132
Copybook/DTSNH104 (2).cpy
Normal file
132
Copybook/DTSNH104 (2).cpy
Normal 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
62
Copybook/DTSWX120 (2).cpy
Normal 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
5
Copybook/WSDATES (2).cpy
Normal 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
15
JCL/CAUDX144.JCL
Normal 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
15
JCL/COPYMISSWAGS.JCL
Normal 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
15
JCL/COPYX999.JCL
Normal 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
10
JCL/CopyFLAT.jcl
Normal 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)
|
||||
@ -61,7 +61,11 @@
|
||||
//*TSFX144 DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20181,DISP=SHR 00331006
|
||||
//* 00340000
|
||||
//*TSFX146 DD DSN=ECNTSUP.DOESTAX.CONV.TAXWEB.ESSPX146,DISP=SHR 00350013
|
||||
//DTSFX146 DD DSN=DOESTAX.PROD.WAGE.NAME.EXP,DISP=SHR 00351013
|
||||
//DTSFX146 DD DSN=DOESTAX.PROD.WAGE.NAME.EXP,
|
||||
//* DISP=SHR 00351013
|
||||
// DISP=(NEW,CATLG,DELETE), 00050206
|
||||
// UNIT=SYSDA,SPACE=(CYL,(20,15),RLSE), 00050306
|
||||
// DCB=(RECFM=LSEQ,LRECL=76,BLKSIZE=7600)
|
||||
//* 00360000
|
||||
//********************************************************************* 00370000
|
||||
//*** COPY ESSP DAILY WAGES TO ARCHIVE BACKUP FILE. 00390007
|
||||
|
||||
@ -15,7 +15,7 @@
|
||||
//****
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//*
|
||||
//* RAINCODE TESTED 08/30/25 ZL1
|
||||
//*********************************************************************
|
||||
//STEP0100 EXEC DTSUEXT, BD400 PERIODIC EXTRACT
|
||||
// RUNTYPE='QD',
|
||||
|
||||
@ -12,9 +12,11 @@
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||
//*
|
||||
//* RAINCODE TESTED 08/30/25 ZL1
|
||||
//* 00070000
|
||||
//STEP0200 EXEC DTSBX215
|
||||
//* 00014000
|
||||
//*
|
||||
// 00014000
|
||||
//*****************************************
|
||||
//STEP0210 EXEC PGM=FTP,
|
||||
// COND=(0,LT)
|
||||
|
||||
42
JCL/DTSBX216.jcl
Normal file
42
JCL/DTSBX216.jcl
Normal 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
|
||||
//*
|
||||
//*
|
||||
@ -55,7 +55,7 @@
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
||||
//OUTDD01 DD DSN=DOESTAX.PROD.DIFSRFND.X305IMP(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(15,5),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=109,BLKSIZE=5450)
|
||||
//SYSIN DD *
|
||||
@ -71,13 +71,16 @@
|
||||
//STEP0075 EXEC PGM=SORT SORT FTP RECORDS
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SORTIN DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
||||
//SORTOUT DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
||||
//SORTOUT DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP.SORTED,DISP=SHR
|
||||
//** DISP=(,CATLG,DELETE),
|
||||
//** UNIT=SYSDA,SPACE=(CYL,(15,5),RLSE),
|
||||
//** DCB=(SYS3.MODEL,RECFM=FB,LRECL=109,BLKSIZE=5450)
|
||||
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSX305),DISP=SHR
|
||||
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
|
||||
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
|
||||
//*********************************************************************
|
||||
//STEP0100 EXEC DTSUTVSM,
|
||||
// BKUPGEN='(+1)'
|
||||
//*STEP0100 EXEC DTSUTVSM,
|
||||
//* BKUPGEN='(+1)'
|
||||
//*****
|
||||
//STEP0200 EXEC DTSBX305
|
||||
//** 00001700
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
//DTSBX403 JOB (UI,4300,3400,T),SC,CLASS=A,MSGLEVEL=(1,1), JOB10082
|
||||
// USER=#DOADTS,
|
||||
// MSGCLASS=X,NOTIFY=EUSC01K,REGION=4096K
|
||||
//*
|
||||
//*-------------- RAINCODE TESTED 08/30/25 ZL1
|
||||
//***************************************************
|
||||
//* TO EXTRACT 403/405 RECORDS, UNPACK AND WRITE TO OUTPUT FILE.
|
||||
//***************************************************
|
||||
|
||||
@ -16,7 +16,7 @@
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB
|
||||
//*
|
||||
//* RAINCODE TESTED 08/30/25 ZL1
|
||||
//******************************************************************
|
||||
//STEP0100 EXEC PGM=DTSBX403,
|
||||
// COND=(0,LT),
|
||||
@ -26,7 +26,7 @@
|
||||
//SYSABEND DD SYSOUT=*
|
||||
//SYSUDUMP DD SYSOUT=*
|
||||
//*
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//*DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//*
|
||||
//DTSFVRI1 DD DSN=DOESTAX.PROD.PER.RPT(+0),
|
||||
// DISP=SHR
|
||||
|
||||
@ -35,7 +35,7 @@
|
||||
//STEP0200 EXEC DTSRSESP
|
||||
//***
|
||||
//* REPORT GENERATION
|
||||
//STEP0300 EXEC DTSRQRPT
|
||||
//*STEP0300 EXEC DTSRQRPT
|
||||
//STEP0100.RPT140R1 DD HOLD=YES
|
||||
//STEP0100.RPT140R2 DD HOLD=YES
|
||||
//STEP0100.RPT907R1 DD HOLD=YES
|
||||
|
||||
@ -39,17 +39,25 @@
|
||||
//***** REPORT WILL BE REPORTED ON THE PENDING FILES WHEN PROCESSED 00001700
|
||||
//* IT REBUILDS THE OUTPUT BTC AND WAGE FILE EACH TIME IT RUNS. 00001700
|
||||
//** 00001700
|
||||
//************************************* 01/19/17 ZL1
|
||||
//*****************************TESTING RC 09/06/25 ZL1
|
||||
//STEP0100 EXEC PGM=SORT,REGION=1024K
|
||||
//SORT.SYSPRINT DD SYSOUT=*
|
||||
//SORT.STATOUT DD SYSOUT=*
|
||||
//SORT.SYSDBOUT DD SYSOUT=*
|
||||
//SORT.SYSUDUMP DD SYSOUT=*
|
||||
//SORT.SYSOUT DD SYSOUT=*
|
||||
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR
|
||||
//*SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR
|
||||
//SORTIN DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
|
||||
// DD DSN=DOESTAX.DEVL.FIX.REPORTS,DISP=SHR
|
||||
//* DD DSN=DOESTAX.DEVL.FIX.REPORTS,DISP=SHR
|
||||
//* DISP=(NEW,CATLG,DELETE), 00006000
|
||||
//* UNIT=SYSDA, 00007000
|
||||
//* SPACE=(8192,(100,200),RLSE),
|
||||
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.DORGX140,DISP=SHR
|
||||
//* DISP=(NEW,CATLG,DELETE), 00006000
|
||||
//* UNIT=SYSDA, 00007000
|
||||
//* SPACE=(8192,(100,200),RLSE),
|
||||
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
||||
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
||||
//SYSIN DD *
|
||||
@ -66,8 +74,16 @@
|
||||
//SORT.SYSOUT DD SYSOUT=*
|
||||
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR
|
||||
//SORTIN DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR
|
||||
// DD DSN=DOESTAX.DEVL.FIX.WAGES,DISP=SHR
|
||||
//* DD DSN=DOESTAX.DEVL.FIX.WAGES,DISP=SHR
|
||||
//* DISP=(NEW,CATLG,DELETE), 00006000
|
||||
//* UNIT=SYSDA, 00007000
|
||||
//* SPACE=(8192,(100,200),RLSE),
|
||||
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.DORGX144,DISP=SHR
|
||||
//* DISP=(NEW,CATLG,DELETE), 00006000
|
||||
//* UNIT=SYSDA, 00007000
|
||||
//* SPACE=(8192,(100,200),RLSE),
|
||||
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
||||
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
||||
//SYSIN DD *
|
||||
|
||||
@ -101,8 +101,9 @@
|
||||
END
|
||||
//*
|
||||
//*
|
||||
//*TEP0200 EXEC DTSRP451 / REGULAR
|
||||
//*STEP0200 EXEC DTSRP451 / REGULAR
|
||||
//*
|
||||
//*TEP0200 EXEC DTSSN451 / X147 PROCESS
|
||||
//*STEP0200 EXEC DTSSN451 / X147 PROCESS
|
||||
//*
|
||||
//** 00001700
|
||||
//
|
||||
@ -6,7 +6,7 @@
|
||||
//* 00001700
|
||||
// SET LVLNODE='CONV'
|
||||
// SET MSTNODE='PROD'
|
||||
// SET PRGNODE='CONV'
|
||||
// SET PRGNODE='PROD'
|
||||
// SET IMPNODE='CONV'
|
||||
// SET LVDHOLD='YES' 00001700
|
||||
// SET EXTNODE='CONV' 00001700
|
||||
@ -62,8 +62,9 @@
|
||||
// 'SUBJECT: FAILED AMENDED REPORTS',
|
||||
// 'FILENAME:ESSP_X451_FAILED.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PEND.TXT(+1),DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PEND.TXT(+1),DISP=SHR,
|
||||
// CODEPAGE=1252,AUTOENCODE=YES
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//*
|
||||
@ -81,8 +82,9 @@
|
||||
// 'SUBJECT: DUTAS DAILY AMENDED REPORTS',
|
||||
// 'FILENAME:ESSP_X451_PASSED.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PAID.TXT(+1),DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PAID.TXT(+1),DISP=SHR,
|
||||
// CODEPAGE=1252,AUTOENCODE=YES
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//** 00001700
|
||||
|
||||
@ -71,6 +71,6 @@
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(UIBCHGOB),DISP=SHR
|
||||
//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBCHGOB),DISP=SHR
|
||||
//
|
||||
//*******************************************************************
|
||||
|
||||
@ -23,7 +23,7 @@
|
||||
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//*
|
||||
//DTSFNAME DD DSN=DOESTAX.DEVL.VSAM.WAGE.NAME,DISP=SHR,
|
||||
//DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGE.NAME,DISP=SHR,
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//DTSFWGH DD DSN=DOESTAX.PROD.VSAM.WGH,DISP=SHR,
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
|
||||
@ -32,8 +32,7 @@
|
||||
//* SPACE=(30720,(2000,4000),RLSE), 00211048
|
||||
// SPACE=(CYL,(20,50),RLSE), 00211149
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00212007
|
||||
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00213007
|
||||
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00213007
|
||||
//* 00214007
|
||||
//STEP0200 EXEC PGM=SORT, SORT TRANSACTIONS 00216009
|
||||
// COND=(0,LT) 00217009
|
||||
@ -50,7 +49,7 @@
|
||||
//* SPACE=(30720,(2000,4000),RLSE), 00330048
|
||||
// SPACE=(CYL,(50,50),RLSE), 00331048
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340021
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00350009
|
||||
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00350009
|
||||
//* 00360009
|
||||
//* 00370041
|
||||
//STEP0150 EXEC PGM=SORT, SORT TRANSACTIONS 00380041
|
||||
@ -67,7 +66,7 @@
|
||||
// UNIT=SYSDA, 00490041
|
||||
// SPACE=(30720,(2000,4000),RLSE), 00500041
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00510041
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00520041
|
||||
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00520041
|
||||
//* 00530041
|
||||
//************************************************************** 01210000
|
||||
//* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000
|
||||
|
||||
@ -31,7 +31,7 @@
|
||||
// UNIT=SYSDA, 00210000
|
||||
// SPACE=(30720,(2000,2000),RLSE), 00211000
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00212000
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00213003
|
||||
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00213003
|
||||
//* 00214000
|
||||
//* 00215001
|
||||
//STEP0200 EXEC PGM=SORT, SORT TRANSACTIONS 00216002
|
||||
@ -48,7 +48,7 @@
|
||||
// UNIT=SYSDA, 00320000
|
||||
// SPACE=(30720,(2000,2000),RLSE), 00330000
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340000
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00350003
|
||||
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00350003
|
||||
//* 00360000
|
||||
//* 00370005
|
||||
//STEP0300 EXEC PGM=SORT, SORT TRANSACTIONS 00380005
|
||||
@ -65,7 +65,7 @@
|
||||
// UNIT=SYSDA, 00490005
|
||||
// SPACE=(30720,(2000,2000),RLSE), 00500005
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00510005
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00520005
|
||||
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00520005
|
||||
//* 00530005
|
||||
//************************************************************** 01210000
|
||||
//* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000
|
||||
|
||||
@ -7,6 +7,7 @@
|
||||
//*CREATE FILE FOR WEB TO VERIFY ADDRESS IS CORRECT BEFORE ISSUING
|
||||
//*REFUNDS
|
||||
//***************************************************** 06/22/17 ZL1***
|
||||
//* RAINCODE TESTED ON 08/30/25 ZL1
|
||||
//*
|
||||
// SET MSTNODE='PROD'
|
||||
// SET LVLNODE='DEVL'
|
||||
|
||||
@ -28,7 +28,7 @@
|
||||
//* OUTPUT FILE: 00001700
|
||||
//* 00001700
|
||||
//* 00001700
|
||||
//* THIS JOB MAY BE RERUN. 00001700
|
||||
//* THIS JOB MAY BE RERUN. TESTING RC ZL1 09/06/25 00001700
|
||||
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
|
||||
//** 00001700
|
||||
//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS
|
||||
@ -108,7 +108,8 @@
|
||||
//*
|
||||
//STEP0400 EXEC DTSBX626
|
||||
//***********************************************************
|
||||
//*
|
||||
//
|
||||
//
|
||||
// IF (STEP0400.STEP0450.RC EQ 0) THEN
|
||||
//STEP0500 EXEC PGM=IEBGENER,REGION=4M,
|
||||
// COND=(0,LT)
|
||||
@ -122,7 +123,7 @@
|
||||
// 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//*
|
||||
// ELSE
|
||||
@ -139,7 +140,7 @@
|
||||
// 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSUT2 DD SCODEPAGE=1252,AUTOENCODE=YES,YSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//*
|
||||
// ENDIF
|
||||
|
||||
@ -22,7 +22,7 @@
|
||||
// COND=(0,LT) 00100000
|
||||
//SYSOUT DD SYSOUT=* 00110000
|
||||
//* 00120000
|
||||
//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.WAGES(+0),DISP=SHR 00130010
|
||||
//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+0),DISP=SHR 00130010
|
||||
// DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,DISP=SHR 00131013
|
||||
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00140000
|
||||
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00150000
|
||||
@ -34,7 +34,7 @@
|
||||
// UNIT=SYSDA, 00210000
|
||||
// SPACE=(30720,(2000,2000),RLSE), 00211000
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00212002
|
||||
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX629),DISP=SHR 00213002
|
||||
//*SYSIN DD DSN=DOESTAX.&LVLNODE..USER.PARMLIB(DTSSX629),DISP=SHR 00213002
|
||||
//SYSIN DD * 00213102
|
||||
SORT FIELDS=(62,6,CH,A,86,5,CH,A) 00213202
|
||||
SUM FIELDS=NONE 00213302
|
||||
@ -57,8 +57,7 @@
|
||||
// UNIT=SYSDA, 00320000
|
||||
// SPACE=(30720,(2000,2000),RLSE), 00330000
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340000
|
||||
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSBX629),DISP=SHR
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBX629),DISP=SHR 00350001
|
||||
//SYSIN DD DSN=DOESTAX.&LVLNODE..USER.PARMLIB(DTSBX629),DISP=SHR 00350001
|
||||
//* 00360000
|
||||
//************************************************************** 01210000
|
||||
//* CREATE REPORT FOR STAFF TO REVIEW TDEC MISSING REPORTS. MISSING 01220012
|
||||
@ -73,10 +72,15 @@
|
||||
//DTSFX140 DD DSN=&&TDECMISS,DISP=(OLD,PASS,DELETE) 01290202
|
||||
//DTSFI144 DD DSN=&&TDECANN,DISP=(OLD,PASS,DELETE) 01291013
|
||||
//DTSFO144 DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,DISP=SHR 01292013
|
||||
//RPT627R1 DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT,DISP=SHR 01307006
|
||||
//RPT627R1 DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT,
|
||||
//* DISP=(NEW,CATLG,DELETE), 00300000
|
||||
// DISP=SHR, 00310000
|
||||
// UNIT=SYSDA, 00320000
|
||||
// SPACE=(30720,(2000,2000),RLSE), 00330000
|
||||
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330) 01307006
|
||||
//SYSOUT DD SYSOUT=* 01308000
|
||||
//* 01360006
|
||||
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01361000
|
||||
//*
|
||||
//EMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01361000
|
||||
// REGION=4M 01362000
|
||||
//SYSPRINT DD SYSOUT=* 01363000
|
||||
//OUT1 OUTPUT DEST=U1003, 01364000
|
||||
@ -85,13 +89,13 @@
|
||||
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV', 01368010
|
||||
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', 01368118
|
||||
// 'CC:TIM.PERLOW@DC.GOV', 01369016
|
||||
// 'CC:ESAYAS.LEMMA@DC.GOV', 01369110
|
||||
//* 'CC:ESAYAS.LEMMA@DC.GOV', 01369110
|
||||
// 'SUBJECT: TDEC-ESSP REPORTS SENT/RECEIVED', 01369212
|
||||
// 'FILENAME:ESSP_TDEC_WAGES.TXT', 01369411
|
||||
// 'FILEDESC: TDEC REPORTS RECEIVED FROM ESSP '), 01369515
|
||||
// MAILFROM=DUTAS@DC.GOV 01369615
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT,DISP=SHR 01369706
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01369800
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 01369800
|
||||
//SYSIN DD DUMMY 01369900
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01370000
|
||||
//**********************************************************************01380000
|
||||
|
||||
@ -4,7 +4,7 @@
|
||||
//** CROSS CHECK ESSP DAILY RECORD COUNT WITH FILES RECEIVED. 00051005
|
||||
//** PROGRAM ABENDS IF COUNTS DONT MATCH 07/12/18 ZL1 00053005
|
||||
//** 00054000
|
||||
//** 00055000
|
||||
//** RAINCODE TESTED 08/30/25 ZL1 00055000
|
||||
// SET PRGNODE='DEVL' 00056000
|
||||
// SET LVLNODE='CONV' 00056100
|
||||
// SET MSTNODE='PROD' 00056200
|
||||
@ -28,8 +28,9 @@
|
||||
//** 00160017
|
||||
//OFILE DD DSN=DOESTAX.CONV.FROMESSP.BKPX999(+1), 00170017
|
||||
// DISP=(NEW,CATLG,DELETE), 00180017
|
||||
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE), 00190017
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=80) 00200017
|
||||
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=80) 00200017
|
||||
//SYSPRINT DD SYSOUT=(*) 00210017
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR 00220017
|
||||
//* 00230017
|
||||
@ -54,7 +55,11 @@
|
||||
//DTSFX147 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR 01295001
|
||||
//DTSFX998 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR 01296002
|
||||
//DTSFX999 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR 01297001
|
||||
//RPT630R1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR 01307001
|
||||
//RPT630R1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR,
|
||||
//* DISP=(NEW,CATLG,DELETE), 00180017
|
||||
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330) 01307001
|
||||
//SYSOUT DD SYSOUT=* 01308000
|
||||
//* 01360000
|
||||
//STEP0400 EXEC PGM=IEBGENER,COND=(0,LT), 01361010
|
||||
@ -72,8 +77,11 @@
|
||||
// 'FILENAME:ESSP_DOES_COUNT.TXT', 01369604
|
||||
// 'FILEDESC: ESSP DAILY SUMMARY RECORD COUNTS TO DUTAS'), 01369721
|
||||
// MAILFROM=DUTAS@DC.GOV 01369821
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR 01369904
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01370004
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,
|
||||
// DISP=SHR,
|
||||
//* CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330)
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 01370004
|
||||
//SYSIN DD DUMMY 01370104
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01370204
|
||||
//* 01371006
|
||||
@ -92,8 +100,11 @@
|
||||
// 'FILENAME:ESSP_DOES_COUNT.TXT', 01379506
|
||||
// 'FILEDESC: ESSP DAILY SUMMARY RECORD COUNTS TO DUTAS'), 01379620
|
||||
// MAILFROM=DUTAS@DC.GOV 01379720
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR 01379806
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01379906
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,
|
||||
// DISP=SHR,
|
||||
//* CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330)
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 01379906
|
||||
//SYSIN DD DUMMY 01380006
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01381006
|
||||
//**********************************************************************01390004
|
||||
|
||||
@ -16,7 +16,7 @@
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCS.BATCH.LIB 00001600
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600
|
||||
//** 00001700
|
||||
//* PROCESS ESSP ACH PAYMENTS FILES 00001700
|
||||
//* PROCESS ESSP ACH PAYMENTS FILES - testing RC ZL1 00001700
|
||||
//* 00001700
|
||||
//** 00001700
|
||||
//** THIS JOB WILL PROCESS ESSP ACH PAYMENTS TO DUTAS 00001700
|
||||
@ -28,11 +28,11 @@
|
||||
//*****************************************************************
|
||||
//**
|
||||
//STEP0200 EXEC DTSBXACH
|
||||
//*
|
||||
//
|
||||
//STEP0300 EXEC DTSRSESP
|
||||
//***
|
||||
//* REPORT GENERATION
|
||||
//STEP0300 EXEC DTSRERPT
|
||||
//*STEP0300 EXEC DTSRERPT
|
||||
//STEP0100.RPT140R1 DD HOLD=YES
|
||||
//STEP0100.RPT140R2 DD HOLD=YES
|
||||
//STEP0100.RPT907R1 DD HOLD=YES
|
||||
|
||||
@ -29,7 +29,13 @@
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
|
||||
// DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,DISP=SHR
|
||||
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459,DISP=SHR
|
||||
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459,
|
||||
// DISP=SHR,
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(CYL,(20,10),RLSE),
|
||||
//* CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792)
|
||||
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
||||
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
||||
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
||||
@ -68,13 +74,13 @@
|
||||
OMIT COND(24,9,CH,EQ,C'060726487')
|
||||
//*
|
||||
//*******************************************************************
|
||||
//STEP0300 EXEC PGM=FTP,REGION=2M
|
||||
//*STEP0300 EXEC PGM=FTP,REGION=2M
|
||||
//*YSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
|
||||
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
|
||||
//SYSIN DD *
|
||||
FWFRIENDLY TRUE
|
||||
//SYSPRINT DD SYSOUT=*,HOLD=YES
|
||||
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR
|
||||
//***SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
|
||||
//*SYSIN DD *
|
||||
//**FWFRIENDLY TRUE
|
||||
//*SYSPRINT DD SYSOUT=*,HOLD=YES
|
||||
//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR
|
||||
//*
|
||||
//*******************************************************************
|
||||
//STEP0400 EXEC PGM=IDCAMS
|
||||
@ -84,7 +90,8 @@ FWFRIENDLY TRUE
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(CYL,(20,10),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=386,BLKSIZE=27792)
|
||||
//SYSIN DD *
|
||||
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
|
||||
/*
|
||||
|
||||
@ -17,7 +17,7 @@
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600
|
||||
//** 00001700
|
||||
//* PROCESS ESSP PENDING DATA FILES (REPORTS AND PAYMENTS) 00001700
|
||||
//* 00001700
|
||||
//* TESTING RC ZL1 00001700
|
||||
//** 00001700
|
||||
//** THIS JOB WILL PROCESS ESSP PENDING REPORT WAGES AND PAYMENTS 00001700
|
||||
//** 1. REPORTS(X140) WILL GO TO PENDING FILE IF NO 00001700
|
||||
@ -40,13 +40,12 @@
|
||||
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
|
||||
//** 00001700
|
||||
//*****************************************************************
|
||||
//**
|
||||
//STEP0200 EXEC DTSNXREL
|
||||
//*
|
||||
//STEP0200 EXEC DTSRSESP
|
||||
//***
|
||||
//* REPORT GENERATION
|
||||
//STEP0300 EXEC DTSRERPT
|
||||
//*STEP0300 EXEC DTSRERPT
|
||||
//STEP0100.RPT140R1 DD HOLD=YES
|
||||
//STEP0100.RPT140R2 DD HOLD=YES
|
||||
//STEP0100.RPT907R1 DD HOLD=YES
|
||||
|
||||
@ -17,7 +17,7 @@
|
||||
// SET CHGNODE='PROD' 00070017
|
||||
// SET CHGMNBR='CHGM002' 00071004
|
||||
// SET CHGMSSN='CHGM030' 00072014
|
||||
// SET QTRLY='QTR251' <<<<<<<<< CHANGE PARM <<<<<<<<<<<<<<< 00080038
|
||||
// SET QTRLY='QTR253' <<<<<<<<< CHANGE PARM <<<<<<<<<<<<<<< 00080038
|
||||
// SET LDEST=U@PRT65 00090000
|
||||
// SET LVDHOLD='YES' 00100027
|
||||
// SET LHOLD='YES' 00101027
|
||||
@ -27,9 +27,9 @@
|
||||
//**** 00150000
|
||||
//* QUARTERLY CHARGE REPORTING PROCESS FOR SI EMPLOYERS ONLY 00160032
|
||||
//**** 00480000
|
||||
//STEP0200 EXEC DTSUXCGP 00490000
|
||||
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGQ1), 00491032
|
||||
// DISP=SHR 00500032
|
||||
//*STEP0200 EXEC DTSUXCGP 00490000
|
||||
//*STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGQ1), 00491032
|
||||
//* DISP=SHR 00500032
|
||||
//**** 00504000
|
||||
//STEP0300 EXEC DTSCHGQ1 00510031
|
||||
//STEP0100.RPC110R1 DD DUMMY /* SI REPORTS PRODUCED IN Q2 00511030
|
||||
|
||||
@ -19,7 +19,7 @@
|
||||
// SET MSTNODE='PROD' 00070009
|
||||
// SET CHGNODE='PROD' 00080000
|
||||
// SET CHGMNBR='CHGM002' 00090000
|
||||
// SET QTRLY='QTR251' <<<<<<<<<<<< CHANGE PARM <<<<<<<<< 00091021
|
||||
// SET QTRLY='QTR253' <<<<<<<<<<<< CHANGE PARM <<<<<<<<< 00091021
|
||||
// SET LDEST=U@PRT65 00092005
|
||||
// SET LVDHOLD='YES' 00093014
|
||||
// SET LHOLD='NO' 00094014
|
||||
@ -41,7 +41,10 @@
|
||||
//SORTIN DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,
|
||||
// DISP=SHR
|
||||
//*
|
||||
//SORTOUT DD DSN=DOESTAX.CONV.SI.CHARGE.SORTED,DISP=SHR
|
||||
//SORTOUT DD DSN=DOESTAX.CONV.SI.CHARGE.SORTED,
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=54,BLKSIZE=5400)
|
||||
//SYSIN DD *
|
||||
SORT FIELDS=COPY
|
||||
INCLUDE COND=(6,1,CH,EQ,C'0',OR,
|
||||
@ -105,15 +108,16 @@
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
|
||||
// 'TO:YINKA.OLAREWAJU-ALO@DC.GOV',
|
||||
// 'TO:JOY.DIGGS@DC.GOV',
|
||||
//* 'TO:JOY.DIGGS@DC.GOV',
|
||||
// 'TO:MARGARET.HERNANDEZ@DC.GOV',
|
||||
// 'TO:SRUJANI.CHANDRAGIRI@DC.GOV',
|
||||
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
|
||||
// 'SUBJECT: SI QUARTERLY CHARGES REPORTS PRINTED',
|
||||
// 'FILENAME:SI_QTR_CHARGE.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,DISP=SHR,
|
||||
// CODEPAGE=1252,AUTOENCODE=YES
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//**
|
||||
|
||||
@ -4,7 +4,7 @@
|
||||
// NOTIFY=ECNTSUP,REGION=0M 00030099
|
||||
//**** 00040000
|
||||
//* BENEFIT CHARGE REPORTING PROCESS FOR RATED EMPLOYERS ONLY 00041099
|
||||
//**** 00041199
|
||||
//**** raincode tested 10/04/25 zl1 00041199
|
||||
//**** JOB CAN RUN ANYTIME - NO MASTER FILES UPDATED 00041299
|
||||
//**** 00042000
|
||||
// SET PRGNODE='PROD' 00043099
|
||||
@ -14,7 +14,7 @@
|
||||
// SET UINODE='PROD' 00047000
|
||||
// SET CHGMNBR='CHGM002' 00048000
|
||||
// SET CHGMSSN='CHGM030' 00049000
|
||||
// SET QTRLY='QTR251' 00050099
|
||||
// SET QTRLY='QTR253' 00050099
|
||||
// SET LDEST='U@PRT155' 00070099
|
||||
// SET LHOLD='YES' 00080099
|
||||
// SET LVDHOLD='YES' 00081099
|
||||
@ -26,9 +26,9 @@
|
||||
//STEP0100 EXEC DTSUXCGR 00140099
|
||||
//*TEP0300.CHGPARM DD DISP=SHR /* CHARGE PARM 00150099
|
||||
//*TEP1400.BD220CHG DD DISP=SHR /* CHARGE REPORT FILE 00160099
|
||||
//STEP0300.EXTPARM DD * 00170065
|
||||
QTR, , ,YYYYYY,000000 00200099
|
||||
/* 00210000
|
||||
//*STEP0300.EXTPARM DD * 00170065
|
||||
//*QTR, , ,YYYYYY,000000 00200099
|
||||
//* 00210000
|
||||
//*ANN, , ,YYYYYY,000000 00220099
|
||||
//*QTR, , ,YYYYNY,000000 00230099
|
||||
//*EMP,070106,063007,YNNNNN,154162 00240099
|
||||
|
||||
@ -16,7 +16,12 @@
|
||||
//SORT.SYSUDUMP DD SYSOUT=*
|
||||
//SORT.SYSOUT DD SYSOUT=*
|
||||
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
|
||||
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.ESSPX145,DISP=SHR
|
||||
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.ESSPX145,DISP=SHR,
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(CYL,(20,10),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
||||
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
||||
//SYSIN DD *
|
||||
|
||||
30
JCL/DTSDX216.jcl
Normal file
30
JCL/DTSDX216.jcl
Normal 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
|
||||
//********************************************************************
|
||||
@ -17,7 +17,7 @@
|
||||
//SYSABEND DD SYSOUT=*
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//DTSFX140 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR
|
||||
// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD140.RELEASE,DISP=SHR
|
||||
//* DD DSN=DOESTAX.CONV.FROMESSP.FRAUD140.RELEASE,DISP=SHR
|
||||
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
@ -28,11 +28,11 @@
|
||||
//* SPACE=(8192,(100,200),RLSE),
|
||||
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//****
|
||||
//DTSFR140 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR
|
||||
//DTSFR140 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR,
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
//* SPACE=(8192,(100,200),RLSE),
|
||||
//* CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//* DCB=(RECFM=LSEQ,LRECL=161,BLKSIZE=1610)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=160,BLKSIZE=1600)
|
||||
//*
|
||||
//STEP0200 EXEC PGM=DESBD474,
|
||||
// COND=(0,LT),
|
||||
@ -41,9 +41,9 @@
|
||||
//SYSABOUT DD SYSOUT=*
|
||||
//SYSABEND DD SYSOUT=*
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
|
||||
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),DISP=SHR
|
||||
//DTSFX144 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR
|
||||
// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD144.RELEASE,DISP=SHR
|
||||
//* DD DSN=DOESTAX.CONV.FROMESSP.FRAUD144.RELEASE,DISP=SHR
|
||||
//DTSFF144 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X144(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// SPACE=(CYL,(100,50),RLSE),
|
||||
@ -64,7 +64,7 @@
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),DISP=SHR
|
||||
//DTSFX147 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR
|
||||
// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD147.RELEASE,DISP=SHR
|
||||
//* DD DSN=DOESTAX.CONV.FROMESSP.FRAUD147.RELEASE,DISP=SHR
|
||||
//DTSFF147 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X147(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
@ -94,7 +94,7 @@
|
||||
// 'FILENAME:DAILY_POTENTIAL_FRAUD.CSV'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//*
|
||||
|
||||
151
JCL/DTSFRAUDZ.jcl
Normal file
151
JCL/DTSFRAUDZ.jcl
Normal 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
38
JCL/DTSFTP147.jcl
Normal 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
|
||||
/*
|
||||
|
||||
@ -28,24 +28,24 @@
|
||||
//*-----------------------------------------------------
|
||||
//* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS
|
||||
//*-----------------------------------------------------
|
||||
//STEPWF EXEC PGM=FTP,
|
||||
//*STEPWF EXEC PGM=FTP,
|
||||
//* PARM='-r TLS safetrans.wellsfargo.com'
|
||||
// PARM='-Sftp=TRUE 10.57.110.160'
|
||||
//ENVVAR DD *
|
||||
CLIENT=sftp
|
||||
SFTP_AUTH=3
|
||||
//* PARM='-Sftp=TRUE 10.57.110.160'
|
||||
//*ENVVAR DD *
|
||||
//* CLIENT=sftp
|
||||
//* SFTP_AUTH=3
|
||||
/*
|
||||
//*SFTPAUTH DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
|
||||
//SFTPAUTH DD *
|
||||
machine 10.57.110.160 user dutasrc pass Today728rc!
|
||||
//*SFTPAUTH DD *
|
||||
//* machine 10.57.110.160 user dutasrc pass Today728rc!
|
||||
/*
|
||||
//*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN)
|
||||
//NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
|
||||
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT)
|
||||
// DD *
|
||||
FWFRIENDLY TRUE
|
||||
//SYSPRINT DD SYSOUT=*,HOLD=YES
|
||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWFAD),DISP=SHR
|
||||
//*NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
|
||||
//*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT)
|
||||
//* DD *
|
||||
//*FWFRIENDLY TRUE
|
||||
//*SYSPRINT DD SYSOUT=*,HOLD=YES
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWFAD),DISP=SHR
|
||||
/*
|
||||
//********************************************************************
|
||||
//*** COPY essp ach RETURNS to backup ach file.
|
||||
@ -85,8 +85,10 @@ FWFRIENDLY TRUE
|
||||
// 'FILEDESC: ESSP ACH RETURNS FORM WELLS FARGO ',
|
||||
// 'FILENAME:ESSP_DUTAS_ACHRETURNS.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X426ACHR(+1),DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X426ACHR(+1),DISP=SHR,
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=134,BLKSIZE=1340)
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//****
|
||||
|
||||
12
JCL/DTSGACPY.jcl
Normal file
12
JCL/DTSGACPY.jcl
Normal 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)
|
||||
//
|
||||
|
||||
@ -8,13 +8,13 @@
|
||||
//****
|
||||
//*** REMOVED PAYMENT CHECK FILE FROM THIS JOB 040119 ZL1
|
||||
//*** PAYMENTS ARE NOW MADE IN JOB BX530................ZL1
|
||||
//****
|
||||
//******** DUTAS PRODUCTION RAINCODE 10/21/25 ,,,,,,ZL1
|
||||
//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY.
|
||||
//****
|
||||
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
|
||||
//********************************************************************
|
||||
//**`**** CHANGE PARM QTR TO CURRENT QUARTER ********
|
||||
// SET CURRQTR='Q2018Q4'
|
||||
// SET CURRQTR='Q20252Q2'
|
||||
// SET LVLNODE='CONV'
|
||||
// SET MSTNODE='PROD'
|
||||
// SET PRGNODE='CONV'
|
||||
@ -39,7 +39,8 @@
|
||||
//OUTDD01 DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||
//*********************************************************************
|
||||
//********************************************************************
|
||||
@ -60,12 +61,13 @@
|
||||
//*
|
||||
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
|
||||
//*ECRYPT EXEC SECODEC,COND=(0,LT)
|
||||
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
|
||||
//COPYCHKS EXEC PGM=IDCAMS,COND=(0,LT)
|
||||
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR
|
||||
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||
//**
|
||||
@ -81,7 +83,8 @@
|
||||
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.SDAILY.CHKS(+1),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||
//**
|
||||
@ -96,7 +99,8 @@
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
// DISP=MOD,
|
||||
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||
//**
|
||||
@ -109,10 +113,11 @@
|
||||
//* DISP=MOD,
|
||||
// DISP=SHR,
|
||||
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||
//**
|
||||
//*
|
||||
//********************************************************************
|
||||
//**** DELETE TDEC ENCRYPTED CHECK FILE
|
||||
//********************************************************************
|
||||
@ -126,12 +131,12 @@
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR
|
||||
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDCHK),DISP=SHR
|
||||
//*
|
||||
//STEP0200 EXEC DTSZXCHK
|
||||
//STEP0200 EXEC DTSBXCHK
|
||||
//*
|
||||
//STEP0300 EXEC DTSRSESP
|
||||
//*STEP0300 EXEC DTSRSESP
|
||||
//***
|
||||
//* REPORT GENERATION
|
||||
//STEP0400 EXEC DTSRERPZ
|
||||
//*STEP0400 EXEC DTSRERPT
|
||||
//STEP0100.RPT140R1 DD HOLD=YES
|
||||
//STEP0100.RPT140R2 DD HOLD=YES
|
||||
//STEP0100.RPT907R1 DD HOLD=YES
|
||||
|
||||
@ -15,7 +15,7 @@
|
||||
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
|
||||
//********************************************************************
|
||||
//******** CHANGE QTR PARM TO CURRENT QTR **********
|
||||
// SET CURRQTR='Q2017Q4'
|
||||
// SET CURRQTR='Q2025Q2'
|
||||
//*
|
||||
// SET LVLNODE='CONV'
|
||||
// SET MSTNODE='PROD'
|
||||
@ -55,27 +55,30 @@
|
||||
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||
//*********************************************************************
|
||||
//*
|
||||
//TDECFTP EXEC PGM=FTP,COND=(0,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*TDECFTP EXEC PGM=FTP,COND=(0,LT)
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*OUTOUT DD SYSOUT=*
|
||||
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//*SYSGET DD *,DCB=BLKSIZE=80
|
||||
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDREPT),DISP=SHR
|
||||
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTEPT),DISP=SHR
|
||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGPAYT),DISP=SHR
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGPAYT),DISP=SHR
|
||||
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDPT),DISP=SHR
|
||||
//*
|
||||
//********************************************************************
|
||||
//**** DECRYPT TDEC PAYMENT FILE INTO DATAOUT
|
||||
//********************************************************************
|
||||
//*
|
||||
//DECRYPT EXEC SECPDEC,COND=(0,LT)
|
||||
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
|
||||
//*ECRYPT EXEC SECODEC,COND=(0,LT)
|
||||
//DATAIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
|
||||
//DATAOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),
|
||||
//DECRYPT EXEC PGM=IDCAMS,COND=(0,LT)
|
||||
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
|
||||
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||
//*
|
||||
//********************************************************************
|
||||
//*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE.
|
||||
@ -116,21 +119,21 @@
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
// DISP=SHR,
|
||||
// UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
// DCB=(SYS3.MODEL,RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||
//**
|
||||
//********************************************************************
|
||||
//**** DELETE TDEC ENCRYPTED PAYMENT FILE FROM TDEC SERVER
|
||||
//********************************************************************
|
||||
//TDECDEL EXEC PGM=FTP,COND=(0,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRPAY),DISP=SHR
|
||||
//*TDECDEL EXEC PGM=FTP,COND=(0,LT)
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*OUTOUT DD SYSOUT=*
|
||||
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//*SYSGET DD *,DCB=BLKSIZE=80
|
||||
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRPAY),DISP=SHR
|
||||
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDEPAY),DISP=SHR
|
||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDPAYT),DISP=SHR
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDPAYT),DISP=SHR
|
||||
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDPAY),DISP=SHR
|
||||
//*
|
||||
//**
|
||||
@ -138,8 +141,8 @@
|
||||
//*
|
||||
//STEP0200 EXEC DTSRSESP
|
||||
//***
|
||||
//* REPORT GENERATION
|
||||
//STEP0300 EXEC DTSRQRPT
|
||||
//* NEED TO FIX FOR PRODUCTION USE REPORT GENERATION
|
||||
//*STEP0300 EXEC DTSRQRPT
|
||||
//STEP0100.RPT140R1 DD HOLD=YES
|
||||
//STEP0100.RPT140R2 DD HOLD=YES
|
||||
//STEP0100.RPT907R1 DD HOLD=YES
|
||||
|
||||
@ -62,7 +62,7 @@
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(UIBGTCHG),DISP=SHR
|
||||
//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGTCHG),DISP=SHR
|
||||
//*NPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGUCHG),DISP=SHR
|
||||
//*******************************************************************
|
||||
//*
|
||||
|
||||
@ -9,7 +9,9 @@
|
||||
//* 00001700
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||
//** 00001700
|
||||
//**
|
||||
//* RAINCODE TESTED 08/30/25 ZL1
|
||||
//* 00001700
|
||||
//* EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS) FOR UIBS 00001700
|
||||
//* FROM TAX MASTER FILES FOR BENEFITS APPLICATIONS 00001700
|
||||
//* 00001700
|
||||
@ -42,7 +44,7 @@
|
||||
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
||||
//SYSIN DD *
|
||||
SORT FIELDS=(1,9,CH,A,44,5,CH,A,57,6,CH,A)
|
||||
INCLUDE COND=(11,2,CH,EQ,C'W1')
|
||||
INCLUDE COND=(11,2,CH,EQ,C'W2')
|
||||
//*
|
||||
//** 00001700
|
||||
//STEP0250 EXEC PGM=SORT,
|
||||
@ -110,13 +112,13 @@
|
||||
//** PUT DUTAS DAILY UPDATES ON UAT SERVER FOR GSI TO PICKUP 00001700
|
||||
//** 00001700
|
||||
//** 00001700
|
||||
//STEP0200 EXEC PGM=FTP,
|
||||
// COND=(0,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(PUTGSI02),DISP=SHR
|
||||
//*STEP0200 EXEC PGM=FTP,
|
||||
//* COND=(0,LT)
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*OUTOUT DD SYSOUT=*
|
||||
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//*SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(PUTGSI02),DISP=SHR
|
||||
//*
|
||||
//STEP0100 EXEC PGM=DTSBX478,
|
||||
// COND=(0,LT),
|
||||
@ -130,7 +132,8 @@
|
||||
//*
|
||||
//DTSFW4 DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
|
||||
//*
|
||||
//DTSFUIBS DD DSN=DOESTAX.CONV.UIBS.WZFILE,DISP=SHR
|
||||
//DTSFUIBS DD DSN=DOESTAX.CONV.UIBS.WZFILE,
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,DISP=SHR
|
||||
//*
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
||||
@ -150,7 +153,8 @@
|
||||
// 'FILEDESC: DAILY WAGES COUNT FROM DUTAS ',
|
||||
// 'FILENAME:DAILY-DUTAS-WAGES.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.UIBS.WZFILE,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.UIBS.WZFILE,
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,DISP=SHR
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//*******************************************************************
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
//******************* SET QTR PARM TO CURRENT QTR
|
||||
//*******************************************************************
|
||||
//****
|
||||
// SET CURRQTR='Q2021Q2'
|
||||
// SET CURRQTR='Q2025Q2'
|
||||
//****
|
||||
//*** FILES COMING FROM TDEC SHOULD USE OUR (OCTO) PUBLIC KEY.
|
||||
//****
|
||||
@ -26,26 +26,26 @@
|
||||
//****
|
||||
//**** GET TDEC ENCRYPTED WAGE FILE (ONTIME AND DELINQUENT) 4 ESSP
|
||||
//********************************************************************
|
||||
//TDECFTP EXEC PGM=FTP,COND=(0,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*TDECFTP EXEC PGM=FTP,COND=(0,LT)
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*OUTOUT DD SYSOUT=*
|
||||
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//*SYSGET DD *,DCB=BLKSIZE=80
|
||||
//**PUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDREON),DISP=SHR
|
||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWAGE),DISP=SHR
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWAGE),DISP=SHR
|
||||
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDON),DISP=SHR
|
||||
//*
|
||||
//********************************************************************
|
||||
//**** DECRYPT TDEC DELINQ FILE INTO TEXTOUT
|
||||
//********************************************************************
|
||||
//*
|
||||
//DECRYPT EXEC SECPDEC,COND=(0,LT)
|
||||
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
|
||||
//*ECRYPT EXEC SECODEC,COND=(0,LT)
|
||||
//DATAIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR
|
||||
//DATAOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//*DATAIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR
|
||||
//*DATAOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
//* UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
||||
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//*
|
||||
//********************************************************************
|
||||
//*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE.
|
||||
@ -53,12 +53,13 @@
|
||||
//********************************************************************
|
||||
//**
|
||||
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
|
||||
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR
|
||||
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR
|
||||
//**
|
||||
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.WAGES(+1),
|
||||
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||
//**
|
||||
@ -69,13 +70,14 @@
|
||||
//********************************************************************
|
||||
//**
|
||||
//COPYESSP EXEC PGM=IDCAMS,COND=(0,LT)
|
||||
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR
|
||||
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR
|
||||
//**
|
||||
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.TXT,DISP=SHR
|
||||
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.TXT,
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
//* DISP=SHR,
|
||||
//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
// DISP=SHR,
|
||||
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||
//**
|
||||
@ -89,13 +91,14 @@
|
||||
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR
|
||||
//**
|
||||
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.&CURRQTR.,
|
||||
//** DISP=(NEW,CATLG,DELETE),
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
// DISP=MOD,
|
||||
// UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||
//**
|
||||
//
|
||||
//********************************************************************
|
||||
//**** DELETE TDEC ENCRYPTED WAGE FILE FROM TDEC SERVER
|
||||
//********************************************************************
|
||||
@ -108,14 +111,14 @@
|
||||
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDEWAG),DISP=SHR
|
||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDWAGE),DISP=SHR
|
||||
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDWAG),DISP=SHR
|
||||
//*
|
||||
//
|
||||
//ESSPMAIL EXEC PGM=IEBGENER,COND=(8,NE,TDECDEL),
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
//* USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM',
|
||||
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
|
||||
// 'TO:ARAVIND.VITTA@SAGITEC.COM',
|
||||
//* 'TO:ARAVIND.VITTA@SAGITEC.COM',
|
||||
// 'TO:PRABHU.TEGUR@SAGITEC.COM',
|
||||
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
|
||||
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
|
||||
@ -125,7 +128,7 @@
|
||||
// 'FILENAME:NOTDEC_WAGES.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.TDEC.ESSP.NOWAGES.TXT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//*
|
||||
@ -135,7 +138,7 @@
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
// USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM',
|
||||
//* 'TO:SIVA.SAMBASIVAM@SAGITEC.COM',
|
||||
// 'TO:ARAVIND.VITTA@SAGITEC.COM',
|
||||
//* 'TO:ARAVIND.VITTA@SAGITEC.COM',
|
||||
// 'TO:PRABHU.TEGUR@SAGITEC.COM',
|
||||
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
|
||||
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
|
||||
@ -145,7 +148,7 @@
|
||||
// 'FILENAME:TDEC_WAGES.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.TDEC.ESSP.WAGES.TXT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//
|
||||
|
||||
@ -9,7 +9,7 @@
|
||||
// SET PRGNODE='CONV'
|
||||
// SET LVDHOLD='YES'
|
||||
//*
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIELIB
|
||||
//**
|
||||
//**** GET ESSP ACH PAYMENTS FROM WELLS FARGO USING FTPS ON THE
|
||||
|
||||
@ -8,6 +8,8 @@
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||
//*LOADLIBS INCLUDE MEMBER=USERJLIB 00001600
|
||||
//*
|
||||
//* RAINCODE TESTED 08/30/25 ZL1
|
||||
//* 00001700
|
||||
//STEP0100 EXEC PGM=DTSBS411, GENERAL SCAN
|
||||
// COND=(0,LT),
|
||||
|
||||
@ -4,6 +4,8 @@
|
||||
//* 00001700
|
||||
// SET MSTNODE='PROD' 00001700
|
||||
// SET LVLNODE='CONV' 00001700
|
||||
//*
|
||||
//* RAINCODE TESTED 08/30/25 ZL1
|
||||
//* 00001700
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||
@ -35,36 +37,41 @@
|
||||
//* DISP=(NEW,CATLG,DELETE), 00006000
|
||||
// DISP=SHR, 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(29000,(1000,1000),RLSE), 00008000
|
||||
// DCB=(RECFM=FB,LRECL=29,BLKSIZE=29000) 00009000
|
||||
// SPACE=(29000,(1000,1000),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES, 00008000
|
||||
// DCB=(RECFM=LSEQ,LRECL=29,BLKSIZE=29000) 00009000
|
||||
//* 00001700
|
||||
//EXPBX104 DD DSN=DOESTAX.CONV.ESSP.C104, 00005000
|
||||
//* DISP=(NEW,CATLG,DELETE), 00006000
|
||||
// DISP=SHR, 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(21600,(1000,1000),RLSE), 00008000
|
||||
// DCB=(RECFM=FB,LRECL=119,BLKSIZE=23800) 00009000
|
||||
// SPACE=(21600,(1000,1000),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES, 00008000
|
||||
// DCB=(RECFM=LSEQ,LRECL=119,BLKSIZE=23800) 00009000
|
||||
//* 00001700
|
||||
//EXPBX106 DD DSN=DOESTAX.CONV.ESSP.C106, 00005000
|
||||
//* DISP=(NEW,CATLG,DELETE), 00006000
|
||||
// DISP=SHR, 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(26500,(1000,1000),RLSE), 00008000
|
||||
// DCB=(RECFM=FB,LRECL=53,BLKSIZE=26500) 00009000
|
||||
// SPACE=(26500,(1000,1000),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES, 00008000
|
||||
// DCB=(RECFM=LSEQ,LRECL=53,BLKSIZE=26500) 00009000
|
||||
//* 00001700
|
||||
//EXPBX108 DD DSN=DOESTAX.CONV.ESSP.C108, 00005000
|
||||
//* DISP=(NEW,CATLG,DELETE), 00006000
|
||||
// DISP=SHR, 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(24000,(1000,1000),RLSE), 00008000
|
||||
// DCB=(RECFM=FB,LRECL=24,BLKSIZE=24000) 00009000
|
||||
// SPACE=(24000,(1000,1000),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES, 00008000
|
||||
// DCB=(RECFM=LSEQ,LRECL=24,BLKSIZE=24000) 00009000
|
||||
//* 00001700
|
||||
//EXPBX110 DD DSN=DOESTAX.CONV.ESSP.C110, 00005000
|
||||
//* DISP=(NEW,CATLG,DELETE), 00006000
|
||||
// DISP=SHR, 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(24900,(1000,1000),RLSE), 00008000
|
||||
// DCB=(RECFM=FB,LRECL=249,BLKSIZE=24900) 00009000
|
||||
// SPACE=(24900,(1000,1000),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES, 00008000
|
||||
// DCB=(RECFM=LSEQ,LRECL=249,BLKSIZE=24900) 00009000
|
||||
//* 00001700
|
||||
//EXPBX120 DD DUMMY 00005000
|
||||
//* 00001700
|
||||
@ -96,7 +103,8 @@
|
||||
// DISP=SHR,UNIT=SYSDA, 00011*18
|
||||
//* DISP=(NEW,CATLG,DELETE),UNIT=SYSDA, 00011*18
|
||||
// SPACE=(CYL,(100,25),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=477,BLKSIZE=477)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=477,BLKSIZE=477)
|
||||
//* 00011*18
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
||||
@ -173,7 +181,7 @@
|
||||
//*****************************************************************
|
||||
//* EMAIL STEP
|
||||
//*****************************************************************
|
||||
//IF1 IF STEP0400.RC=0 THEN
|
||||
//EMAIL IF STEP0400.RC=0 THEN
|
||||
//*
|
||||
//STEP0500 EXEC PGM=IEBGENER,REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
@ -189,8 +197,10 @@
|
||||
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
|
||||
// 'SUBJECT: DAILY MINI CONVERSION REGISTRATION(S) READY '),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.SENTRPT.TXT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.SENTRPT.TXT,DISP=SHR,
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=800)
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
// ELSE
|
||||
@ -208,8 +218,10 @@
|
||||
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
|
||||
// 'SUBJECT: NO DAILY MINI CONV REGISTRATION TODAY...'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.MINICONV.TXT1,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.MINICONV.TXT1,DISP=SHR,
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=800)
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
// ENDIF
|
||||
@ -228,8 +240,10 @@
|
||||
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
|
||||
// 'SUBJECT: ACCOUNTS PENDING FOR MINI CONV IN DUTAS.'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.CURRRPT.TXT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.CURRRPT.TXT,DISP=SHR,
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=800)
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//*
|
||||
|
||||
@ -20,7 +20,7 @@
|
||||
// SET BYPASS2='000000' /* BYPASS EMPLOYER 2
|
||||
// SET BYPASS3='000000' /* BYPASS EMPLOYER 3
|
||||
//*
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//****
|
||||
//* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP
|
||||
@ -74,7 +74,7 @@
|
||||
//****
|
||||
//****
|
||||
//STEP0075 EXEC DTSBX415
|
||||
// /* GET EMLOYER DATA FRROM WEB
|
||||
//*
|
||||
//****0100 EXEC DTSBX420 (JOB RUNS AFTER RQ325 AND PASSES BTC FILES)
|
||||
//****
|
||||
//* /* MERGE WAGE.BTC TO BTC
|
||||
@ -82,10 +82,13 @@
|
||||
//*
|
||||
//*/// REMOVE STEP EMT JOB CANCLLED /* SPC BACKUP OF OLA FOR EMT
|
||||
//******** EXEC DESOLABK
|
||||
//* /* STD DAILY PROC
|
||||
//* /* STD DAILY RAINCODE BACKUP
|
||||
//* /* STD DAILY BEFORE DAILY BATCH
|
||||
//*STEP0175 EXEC DTSUTVSM,
|
||||
//* BKUPGEN='(+1)'
|
||||
//STEP0100 EXEC DTSUTVSM, 00002102
|
||||
// BKUPGEN='(+1)',freq='DAILY'
|
||||
//**
|
||||
//* /* GET CREDITS/DEBITS/REFUNDS FROM WEB
|
||||
//STEP0200 EXEC DTSDUPDT,
|
||||
//* LHOLD='NO',
|
||||
@ -132,7 +135,9 @@
|
||||
//**
|
||||
//STEP0300 EXEC DTSACHD1 /* ARECHIVE DAILY REPORTS
|
||||
//*
|
||||
//STEP0400 EXEC DTSUTVSM,
|
||||
// BKUPGEN='(+2)'
|
||||
//*STEP0400 EXEC DTSUTVSM,
|
||||
//* BKUPGEN='(+2)'
|
||||
//*STEP0100 EXEC DTSUTVSM, 00002102
|
||||
//* BKUPGEN='(+1)',freq='DAILY'
|
||||
//**
|
||||
//*
|
||||
|
||||
@ -9,7 +9,7 @@
|
||||
// SET LVLNODE='PROD'
|
||||
// SET LVDHOLD='YES'
|
||||
//*
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//****
|
||||
//* 09/30/99 - JHP
|
||||
|
||||
@ -13,7 +13,7 @@
|
||||
//****
|
||||
//**** 6/29/09 ADDED PROC (DTSACHM1) TO ARCHIVE REPORTS 405/414 ZL1
|
||||
//****
|
||||
//****
|
||||
//**** TWATINF RC ZL1
|
||||
//**** 11/09/12 CHANGED REPORT PROC FROM DTSRMEND TO DTSRMTR ZL1
|
||||
//**** FOR TRMS REPORTS
|
||||
//****
|
||||
@ -26,8 +26,8 @@
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//*
|
||||
//* SPEC BACKUP BEFORE MONTHLY BATCH
|
||||
//STEP0100 EXEC DTSUTVMO,
|
||||
// BKUPGEN='(+1)'
|
||||
//*STEP0100 EXEC DTSUTVMO,
|
||||
//* BKUPGEN='(+1)'
|
||||
//*
|
||||
//STEP0200 EXEC DTSUEXT, MONTHLY PERIODIC EXTRACT
|
||||
// RUNTYPE='ME',
|
||||
@ -109,8 +109,8 @@
|
||||
//*********************************************************************
|
||||
//*
|
||||
//* STD BACKUP AFTER MONTHLY BATCH
|
||||
//STEP0500 EXEC DTSUTVSM,
|
||||
// BKUPGEN='(+1)'
|
||||
//*STEP0500 EXEC DTSUTVSM,
|
||||
//* BKUPGEN='(+1)'
|
||||
//**//* THIS RESTORE IS DONE AT MONTH-END TO
|
||||
//**//* REORG THE MAIN VSAM FILES (MSTA/B/C/D/E/F/G & AIX & WGH)
|
||||
//**//* (OLA IS ALREADY RESET BY THE DAILY)
|
||||
@ -131,10 +131,11 @@
|
||||
//*
|
||||
//STEP0800 EXEC DTSACHM1 /ARCHIVE MONTHLY REPORTS (405/414)
|
||||
//*
|
||||
//*
|
||||
//
|
||||
//
|
||||
//******************************************************************
|
||||
//* |
|
||||
//* JOB : FTP R414 FILES TO SERVER
|
||||
//* JOB : FTP R414 FILES TO SERVER NO NEED TO FTP BILLS
|
||||
//* |
|
||||
//******************************************************************
|
||||
//STEP0800 EXEC PGM=FTP
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
//DTSPODC4 JOB (0),'CA7 DUMMY JOB',CLASS=P,MSGCLASS=X,USER=#DOADTS,
|
||||
// NOTIFY=ECNTZL1
|
||||
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
||||
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
|
||||
//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB BY Z/OS
|
||||
//**********************************************************************
|
||||
//* THIS JOB IS DEMANDED IN AFTER SUCCESSFULL TRANSMISSION *
|
||||
//* RUNS ON DOES CA/7 *
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
//DTSPODC6 JOB (0),'CA7 DUMMY JOB',CLASS=P,MSGCLASS=X,USER=#DOADTS,
|
||||
// NOTIFY=ECNTZL1
|
||||
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
||||
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
|
||||
//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB BY Z/OS
|
||||
//**********************************************************************
|
||||
//* THIS JOB IS DEMANDED IN AFTER SUCCESSFULL TRANSMISSION *
|
||||
//* RUNS ON DOES CA/7 *
|
||||
|
||||
@ -6,7 +6,7 @@
|
||||
// SET LVLNODE='PROD'
|
||||
// SET LVDHOLD='YES'
|
||||
//*
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//****
|
||||
//INFOPACK EXEC PGM=INFOPACR,
|
||||
|
||||
@ -21,7 +21,7 @@
|
||||
// SET S0910='+0'
|
||||
//* 00001700
|
||||
//* 00001700
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001600
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||
//*****************************************************************
|
||||
//***
|
||||
|
||||
@ -10,7 +10,7 @@
|
||||
// SET PRGNODE='PROD'
|
||||
// SET LVDHOLD='YES'
|
||||
//*
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//**
|
||||
//********************************************************************
|
||||
@ -43,7 +43,7 @@
|
||||
//**
|
||||
//********************************************************************
|
||||
//**
|
||||
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),
|
||||
//MAIL EXEC PGM=IEBGENER,COND=(0,LT),
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
@ -59,7 +59,7 @@
|
||||
// 'FILENAME:essp_ach.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACHDD.TXT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//
|
||||
|
||||
@ -7,7 +7,7 @@
|
||||
//**********************************************************************
|
||||
//*** COPY PROD BTC FILES TO HDVL FOR NEW BATCH raincode tESTING ZL1
|
||||
//**********************************************************************
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//*
|
||||
//COPY1Z EXEC PGM=IDCAMS
|
||||
|
||||
@ -13,7 +13,7 @@
|
||||
// SET LDEST=U@PRT65
|
||||
// SET PRTHOLD='YES'
|
||||
//*
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//****
|
||||
//* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP
|
||||
|
||||
@ -12,7 +12,7 @@
|
||||
//*******************************************************************
|
||||
//* WEEKLYREPORT DTSBR122 - *
|
||||
//* APPROVED STATUS DETERMINATIONS E-MAIL
|
||||
//* *
|
||||
//* raincode test zl1 *
|
||||
//*******************************************************************
|
||||
//*
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
|
||||
@ -27,7 +27,7 @@
|
||||
//* 12/23/16 ADD STEP TO DELETE JOB DTSPACHD FTP LOG FILE
|
||||
//*
|
||||
//* 07/25/17 ADD STEP TO DELETE/CREATE NEW W4 WAGE FILE ZL1
|
||||
//*
|
||||
//* 09/26/25 TESTING RAINCODE ZL1
|
||||
//******************************************************************
|
||||
// SET EXTNODE='CONV'
|
||||
// SET MSTNODE='PROD'
|
||||
|
||||
@ -7,7 +7,7 @@
|
||||
//****
|
||||
// SET LVLNODE='PROD'
|
||||
// SET MSTNODE='PROD'
|
||||
// SET PENQTR='Q253' <<<<<<< FOR FILE NAME ONLY
|
||||
// SET PENQTR='Q244' <<<<<<< FOR FILE NAME ONLY
|
||||
// SET LHOLD='NO' <<<<<<< FOR FILE NAME ONLY
|
||||
//****
|
||||
//* JOB : PENALTY ASSESSMENT PROCESS (RATED EMPLOYERS ONLY)
|
||||
|
||||
@ -22,7 +22,7 @@
|
||||
//* HAS A PROBLEM DOCS GET THE OLD FILE FROM LAST RUN AND CAUSES 00001700
|
||||
//* DUPLICATE ERROR CONDITION. 8/4/14 ZL1 00001700
|
||||
//* 00001700
|
||||
//* 00001700
|
||||
//* TESTING RC 09/13/25 ZL1 00001700
|
||||
//* ADDED STEP0200 DTSBESSP TO BACKUP INPUT FILES FROM ESSP X102 THRU 00001700
|
||||
//* X145 AND X420,X422 BTC FILES CREATED BY JOB DTSBX420. 00001700
|
||||
//* 10/8/14 ZL1 00001700
|
||||
@ -47,11 +47,14 @@
|
||||
// UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000)
|
||||
//*********************************************************************
|
||||
//* REGULAR PROD VSAM FILES BACKUP BEFORE ANY UPDATES 00001700
|
||||
//* REGULAR PROD VSAM FILES BACKUP BEFORE ANY UPDATES RAINCODE VERSION 00001700
|
||||
//******************************************************************** 00001700
|
||||
//* 00001700
|
||||
//STEP0050 EXEC DTSUTVSM,
|
||||
// BKUPGEN='(+1)'
|
||||
//*STEP0050 EXEC DTSUTVSM,
|
||||
//* BKUPGEN='(+1)'
|
||||
//STEP0100 EXEC DTSUTVSM, 00002102
|
||||
// BKUPGEN='(+1)',freq='DAILY' 00003000
|
||||
|
||||
//*
|
||||
//********************************************************************
|
||||
//* BACKUP ALL UI TAX CONV EXTERNAL FILES 00001700
|
||||
|
||||
@ -16,7 +16,7 @@
|
||||
//* 00122099
|
||||
//* ADDED BACKUP STEP FOR PAYDIST FILE -10/09 ZL1 00123099
|
||||
//* 00124099
|
||||
//**** 00130090
|
||||
//**** RAINCODE TESTED 08/30/25 ZL1 00130090
|
||||
// SET LVLNODE='PROD' 00140099
|
||||
// SET MSTNODE='PROD' 00150099
|
||||
// SET RUNTYPE='0' 0=CONVERT; 1=INCREMENTAL 00150199
|
||||
@ -28,7 +28,9 @@
|
||||
//*TEP0100 EXEC DTSUTVSM, 00191099
|
||||
//* BKUPGEN='(+1)' 00192099
|
||||
//* 00193099
|
||||
//STEP0100 EXEC DTSBX340 MASTER FILE DATA 00200099
|
||||
//STEP0100 EXEC DTSBX340
|
||||
//*
|
||||
//*STEP0100 EXEC DTSZX340
|
||||
//* 00250099
|
||||
//STEP0100.DTSFBTCO DD DUMMY 00260061
|
||||
//STEP0100.DTSFVRO1 DD DUMMY 00270099
|
||||
@ -45,13 +47,20 @@
|
||||
//STEP0600 EXEC PGM=IDCAMS 00292099
|
||||
//SYSPRINT DD SYSOUT=* 00293099
|
||||
//INDD09 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.PAYDIST,DISP=SHR 00294099
|
||||
//OUTDD01 DD DSN=ECNTSUP.DOESTAX.PROD.PAYDIST.FTP(+1), 00295099
|
||||
// UNIT=CART, 00296099
|
||||
// VOLUME=(,RETAIN), 00296199
|
||||
// LABEL=(1,SL,,,EXPDT=99000), 00297099
|
||||
// DISP=(,CATLG,DELETE), 00298099
|
||||
// SPACE=(31552,(200,200),RLSE), 00299099
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=50,BLKSIZE=30000) 00299199
|
||||
//OUTDD01 DD DSN=ECNTSUP.DOESTAX.PROD.PAYDIST.FTP(+1),
|
||||
//* DISP=SHR
|
||||
// DISP=(NEW,CATLG,DELETE), 00180017
|
||||
// UNIT=SYSDA,SPACE=(CYL,(100,10),RLSE), 00190017
|
||||
// DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000)
|
||||
//*
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//* 00295099
|
||||
//* UNIT=CART, 00296099
|
||||
//* VOLUME=(,RETAIN), 00296199
|
||||
//* LABEL=(1,SL,,,EXPDT=99000), 00297099
|
||||
//* DISP=(,CATLG,DELETE), 00298099
|
||||
//* SPACE=(31552,(200,200),RLSE), 00299099
|
||||
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=50,BLKSIZE=30000) 00299199
|
||||
//**** 00299299
|
||||
REPRO INFILE(INDD09) OUTFILE(OUTDD01) 00299399
|
||||
/* 00299499
|
||||
@ -61,12 +70,15 @@
|
||||
//SYSOUT DD SYSOUT=* 00299899
|
||||
//SORTIN DD DSN=DOESTAX.&LVLNODE..VSAM.ATH,DISP=SHR, 00299999
|
||||
// AMP=('BUFNI=5,BUFND=30') 00300099
|
||||
//SORTOUT DD DSN=DOESTAX.&LVLNODE..BACKUP.ATH(+1), 00301099
|
||||
// DISP=(,CATLG,DELETE), 00302099
|
||||
// UNIT=CART, 00303099
|
||||
// VOLUME=(,RETAIN,REF=*.STEP0600.OUTDD01), 00304099
|
||||
// LABEL=(2,SL,,,EXPDT=99000), 00305099
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=25600) 00306099
|
||||
//SORTOUT DD DSN=DOESTAX.&LVLNODE..BACKUP.ATH(+1),
|
||||
// DISP=(NEW,CATLG,DELETE), 00180017
|
||||
// UNIT=SYSDA, 00190017
|
||||
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=25600) 00301099
|
||||
//* DISP=(,CATLG,DELETE), 00302099
|
||||
//* UNIT=CART, 00303099
|
||||
//* VOLUME=(,RETAIN,REF=*.STEP0600.OUTDD01), 00304099
|
||||
//* LABEL=(2,SL,,,EXPDT=99000), 00305099
|
||||
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=25600) 00306099
|
||||
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00307099
|
||||
//**** 00310099
|
||||
//* 00470099
|
||||
|
||||
@ -14,7 +14,7 @@
|
||||
//* ON REQUEST REPORT DTSBR414 - *
|
||||
//****
|
||||
//* 06/30/09 ADDED PROC TO ARCHIVE REPORT RECORDS 414 ZL1
|
||||
//****
|
||||
//**** TESTING RC ZL1
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//**
|
||||
@ -49,17 +49,18 @@
|
||||
//STEP0100.RPT907R1 DD HOLD=YES
|
||||
//STEP0100.RPT907R2 DD HOLD=YES
|
||||
//STEP0100.RPT980R1 DD HOLD=YES
|
||||
//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00631000
|
||||
//*DOESLBLP.DOESLBL1 DD DUMMY
|
||||
//*
|
||||
//*
|
||||
//*STEP0400 EXEC PGM=FTP
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*OUTOUT DD SYSOUT=*
|
||||
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//*SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT414),DISP=SHR
|
||||
//*
|
||||
//STEP0400 EXEC PGM=FTP
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT414),DISP=SHR
|
||||
/*
|
||||
//STEP0500 EXEC DTSAR414 /ARCHIVE 414 RECORDS
|
||||
//**
|
||||
//STEP0600 EXEC DTSUTVSM,
|
||||
// BKUPGEN='(+1)'
|
||||
//*STEP0600 EXEC DTSUTVSM,
|
||||
//* BKUPGEN='(+1)'
|
||||
//*
|
||||
|
||||
@ -16,7 +16,7 @@
|
||||
//* 1. RUN RIGHT AFTER THE LAST SUCCESSFUL MONTHLY RUN
|
||||
//*
|
||||
//*
|
||||
//*
|
||||
//* TESTING RC ZL1
|
||||
//*================================================================|
|
||||
//***
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
|
||||
@ -36,7 +36,7 @@
|
||||
//**
|
||||
//* REPORT GENERATION
|
||||
//STEP0300 EXEC DTSRQRPT
|
||||
//*
|
||||
//
|
||||
//STEP0400 EXEC PGM=FTP
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
|
||||
@ -17,7 +17,7 @@
|
||||
//*
|
||||
//* 2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
|
||||
//*
|
||||
//*
|
||||
//* testing rc zl1
|
||||
//*================================================================|
|
||||
//***
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
|
||||
|
||||
@ -29,15 +29,15 @@
|
||||
/*
|
||||
//*** SORT BE460 FIRST 13 BYTES
|
||||
//STEP0300 EXEC DTSRS459
|
||||
//
|
||||
//STEP0400 EXEC PGM=FTP,REGION=2M
|
||||
//*YSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
|
||||
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
|
||||
//SYSIN DD *
|
||||
FWFRIENDLY TRUE
|
||||
//SYSPRINT DD SYSOUT=*,HOLD=YES
|
||||
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR
|
||||
/*
|
||||
//*
|
||||
//*STEP0400 EXEC PGM=FTP,REGION=2M
|
||||
//**YSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
|
||||
//*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
|
||||
//*SYSIN DD *
|
||||
//*FWFRIENDLY TRUE
|
||||
//*SYSPRINT DD SYSOUT=*,HOLD=YES
|
||||
//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR
|
||||
//*
|
||||
//*
|
||||
//********************************************************************
|
||||
//* |
|
||||
@ -51,7 +51,8 @@ FWFRIENDLY TRUE
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(CYL,(20,10),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=386,BLKSIZE=27792)
|
||||
//SYSIN DD *
|
||||
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
|
||||
/*
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
//* 00001700
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||
//* 00001700
|
||||
//* TESTING RC ZL1 00001700
|
||||
//* 00001700
|
||||
//STEP0100 EXEC PGM=DTSBD511, /* GENERATE NON PAYMNT SUR CHG LTR
|
||||
// COND=(0,LT),
|
||||
|
||||
@ -20,7 +20,7 @@
|
||||
//SYSABOUT DD SYSOUT=*
|
||||
//SYSABEND DD SYSOUT=*
|
||||
//CAIMRPTS DD SYSOUT=*
|
||||
//RPT513R1 DD SYSOUT=0
|
||||
//RPT513R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=0
|
||||
//**
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00001600
|
||||
//DTSFVRI1 DD DSN=DOESTAX.&MSTNODE..SRTMONTH.RPT&GEN.,DISP=SHR
|
||||
@ -29,8 +29,8 @@
|
||||
//*
|
||||
//**
|
||||
//DTSF513 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX513,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
//* DISP=(OLD,KEEP,KEEP),
|
||||
//* DISP=(NEW,CATLG,CATLG),
|
||||
// DISP=(OLD,KEEP,KEEP),
|
||||
// UNIT=SYSDA,
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// SPACE=(800,(1000,1000),RLSE),
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
// SET MSTNODE='PROD'
|
||||
// SET UINODE='PROD'
|
||||
// SET SPCNODE='PROD'
|
||||
// SET QTR='Q251'
|
||||
//*** SET QTR='Q063'
|
||||
// SET LHOLD='NO'
|
||||
//****
|
||||
//* BUILD TRANSACTION RECORDS TO CREATE BOTH THE RECONSTRUCTION FILE
|
||||
@ -35,14 +35,15 @@
|
||||
//*STEP0125 EXEC DTSUTVSQ,
|
||||
//* BKUPGEN='(+1)'
|
||||
//*** *
|
||||
//*STEP0200 EXEC DTSUX770, BD400 PERIODIC EXTRACT
|
||||
//STEP0200 EXEC DTSUX777, BD400 PERIODIC EXTRACT
|
||||
//STEP0200 EXEC DTSUX770, BD400 PERIODIC EXTRACT
|
||||
// RUNTYPE='QE',
|
||||
// PREBACK='Y'
|
||||
//*STEP0100.DTSFREF DD DSN=DOESTAX.&SPCNODE..VSAM.REF, /*1X SPECIAL
|
||||
//* DISP=SHR,AMP=('BUFNI=5,BUFND=10')
|
||||
//*STEP0100.DTSFBTCO DD DISP=(OLD,KEEP,KEEP)
|
||||
//STEP0100.BE770PRM DD DISP=(OLD,KEEP,KEEP)
|
||||
//*STEP0100.BE770PRM DD DISP=(OLD,KEEP,KEEP)
|
||||
//*STEP0100.EXTPARM DD *
|
||||
//*770,
|
||||
//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ713),
|
||||
// DISP=SHR
|
||||
//*** USE THE FOLLOWING LINES FOR A RERUN **-->>
|
||||
@ -56,13 +57,13 @@
|
||||
//***
|
||||
//STEP0100.DTSFVR01 DD DUMMY
|
||||
//*** SEND DATA TO SERVER FOR UPLOAD
|
||||
//STEP0300 EXEC PGM=FTP TO DATA VALIDATION DATABASE
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SOUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFTDVA),
|
||||
// DISP=SHR
|
||||
//*STEP0300 EXEC PGM=FTP TO DATA VALIDATION DATABASE
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*SOUTOUT DD SYSOUT=*
|
||||
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//*SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFTDVA),
|
||||
//* DISP=SHR
|
||||
//*** SORT REPORT RECORDS
|
||||
//STEP0400 EXEC DTSRSORT
|
||||
//*** REPORT GENERATION
|
||||
@ -72,9 +73,9 @@
|
||||
//STEP0100.RPT719R1 DD DUMMY
|
||||
//STEP0100.DTS910F1 DD DUMMY
|
||||
//*** STD BACKUP AFTER DATA FILE UPDATE
|
||||
//STEP0600 EXEC DTSUTVSM,
|
||||
//*STEP0600 EXEC DTSUTVSM,
|
||||
//*** BKUPGEN='(+2)' /* (ONLY IF +1 BKP DONE IN STEP0100)
|
||||
// BKUPGEN='(+1)'
|
||||
//* BKUPGEN='(+1)'
|
||||
//*
|
||||
//* THIS RESTORE IS DONE AT QTR-END TO
|
||||
//* REORG THE SECONDARY VSAM FILES (ATC/REF & WRK)
|
||||
|
||||
@ -19,7 +19,7 @@
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLPROG..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//**** SORT REPORT RECORDS
|
||||
//STEP0200 EXEC DTSZSORT
|
||||
//*STEP0200 EXEC DTSZSORT
|
||||
//*TEP0100.SORTIN DD DSN=DOESTAX.&LVLNODE..SRTDAILY.RPT(+0),
|
||||
//* DISP=SHR
|
||||
//**** DD DSN=DOESTAX.&LVLNODE..PER.RPT.G0349V00,
|
||||
|
||||
@ -5,10 +5,11 @@
|
||||
// REGION=0M 00000514
|
||||
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
||||
//* 00000614
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000714
|
||||
//*PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000714
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000814
|
||||
//**** 00000914
|
||||
//* UI TAX BACKUP VSAM FILES * 00001000
|
||||
//* -FREQ <DAILY|WEEKLY|MONTHLY|QUARTERLY>
|
||||
//* * 00001100
|
||||
//* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES * 00001200
|
||||
//* IN THE CICS REGION. IF YOU FAIL TO CLOSE * 00001300
|
||||
|
||||
@ -5,7 +5,7 @@
|
||||
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
||||
//* 00000500
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000609
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000721
|
||||
//*LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000721
|
||||
//**** 00000921
|
||||
//* UI TAX VSAM FILES RESTORE ------ READ NOTE BELOW -------- * 00001100
|
||||
//* * 00001200
|
||||
@ -20,5 +20,15 @@
|
||||
//* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES * 00001300
|
||||
//* IN THE CICS REGION. * 00001400
|
||||
//**** 00001621
|
||||
/**** 00001621
|
||||
//* NOTE: RAINCODE RESTORE FOR DAILY MASTER FILES * 00001300
|
||||
//* TO RESTORE +0 GENERATION USE PROC DTSURVSM0 * 00001400
|
||||
//****
|
||||
//*** TO RESTORE MINUS (-) GENERATION USE PROC DTSURVSM1
|
||||
//*
|
||||
//*STEP0100 EXEC DTSURVSM0 00002000
|
||||
//** 00003029
|
||||
//*STEP0100 EXEC DTSURVSM1 CHANGE PROC FOR - GENERATION NEEDED 00002000
|
||||
//*
|
||||
//STEP0100 EXEC DTSURVSM, 00002000
|
||||
// freq='DAILY',gen=-2,src='PROD',tgt='PROD' 00003029
|
||||
@ -9,7 +9,7 @@
|
||||
//*********************************************************************
|
||||
//* LOAD THE WAGE FILE FOR DOCS NIGHTLY RUN
|
||||
//*
|
||||
//*
|
||||
//* RAINCODE TESTED 08/30/25 ZL1
|
||||
//*********************************************************************
|
||||
// SET ACHYEAR='FY2009'
|
||||
// SET EXTNODE='CONV'
|
||||
|
||||
@ -25,7 +25,7 @@
|
||||
// SET EXTNODE='CONV'
|
||||
// SET RPTNODE='ESSP.BX420.RPT'
|
||||
//*
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//**
|
||||
//* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)
|
||||
|
||||
100
JCL/DTSZX145 (2).jcl
Normal file
100
JCL/DTSZX145 (2).jcl
Normal 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
10
JCL/DefineFLAT.jcl
Normal 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
19
JCL/IB14flatfile.jcl
Normal 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
75
JCL/IEB14CRE.jcl
Normal 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
337
JCL/JRUN800.jcl
Normal 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
452
JCL/JRUNZ800.jcl
Normal 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
110
JCL/LISTCAT.JCL
Normal 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
116
JCL/LOADESSP..jcl
Normal 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
206
JCL/LOADESSP.jcl
Normal 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
107
JCL/LOADESSPX999..jcl
Normal 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
76
JCL/LOADOTHRS..jcl
Normal 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
235
JCL/LOADOTHRS.jcl
Normal 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
31
JCL/LOADWAGPAY.jcl
Normal 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
56
JCL/LOADX150.jcl
Normal 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
17
JCL/LOADX999.Jcl
Normal 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
199
JCL/LOADmini.jcl
Normal 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)
|
||||
//*
|
||||
//
|
||||
@ -71,7 +71,7 @@
|
||||
//SYSUDUMP DD SYSOUT=* 00810000
|
||||
//SYSPRINT DD SYSOUT=* 00820000
|
||||
//INPDS DD DSN=DOESTAX.PROD.PROCS.BATCH.LIB,DISP=SHR 00821000
|
||||
//BACKUP DD DSN=DOESTAX.PROD.BKUP.PROCS.BATCH.LIB(+1), 00822001
|
||||
//BACKUP DD DSN=DOESTAX.PROD.BKUP.PROCLIB(+1), 00822001
|
||||
// DISP=(,CATLG,DELETE), 00840000
|
||||
// UNIT=SYSDA, 00850000
|
||||
// SPACE=(8000,(2000,500,500)), 00860001
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user