Compare commits
14 Commits
7408a12cc6
...
Dutas-Dev-
| Author | SHA1 | Date | |
|---|---|---|---|
| 9e2a3afcc9 | |||
| 5da0179563 | |||
| 3972c4a856 | |||
| 6537588163 | |||
| 8fca292a50 | |||
| 2c94b89801 | |||
| aebe4cd149 | |||
| 2a54f65e13 | |||
| 49a18b5c47 | |||
| 716014d0bf | |||
| f8c32748c5 | |||
| 42a3da46ab | |||
| c99f490664 | |||
| d3af779d95 |
2102
AddToCatalog_JOBS_DEVL.txt
Normal file
2102
AddToCatalog_JOBS_DEVL.txt
Normal file
File diff suppressed because it is too large
Load Diff
2322
AddToCatalog_JOBS_PROD.txt
Normal file
2322
AddToCatalog_JOBS_PROD.txt
Normal file
File diff suppressed because it is too large
Load Diff
2102
AddToCatalog_JOBS_TEST.txt
Normal file
2102
AddToCatalog_JOBS_TEST.txt
Normal file
File diff suppressed because it is too large
Load Diff
1722
AddToCatalog_PROCS_DEVL.txt
Normal file
1722
AddToCatalog_PROCS_DEVL.txt
Normal file
File diff suppressed because it is too large
Load Diff
1722
AddToCatalog_PROCS_PROD.txt
Normal file
1722
AddToCatalog_PROCS_PROD.txt
Normal file
File diff suppressed because it is too large
Load Diff
1722
AddToCatalog_PROCS_TEST.txt
Normal file
1722
AddToCatalog_PROCS_TEST.txt
Normal file
File diff suppressed because it is too large
Load Diff
@ -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
|
||||
@ -8,7 +8,7 @@ Write-Host 'Getting ENV'
|
||||
|
||||
|
||||
# Compiling and Running
|
||||
& "$env:rcbin\cobrc" "@CompileOptions.txt" "E:\DUTAS\src\Batch\CHGBD100.cob"
|
||||
& "$env:rcbin\cobrc" "@CompileOptions.txt" "E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE127.cob"
|
||||
Write-Host 'Compile CHGBD100'
|
||||
|
||||
& "$env:rcbin\rclrun" "hello"
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
-IgnoreParseError=TRUE
|
||||
-OutputDir=\\does\fileshares\DUTAS\DOESTAX\PROD\BIN\BATCH\LIB
|
||||
-OutputDir=\\does-rainvm-prd\DefaultVolume\DOESTAX\DEVL\BIN\BATCH\LIB
|
||||
-RemoveFileVerifyFailed=FALSE
|
||||
-MaxMem=1000
|
||||
-IncludeSearchPath=\\does\fileshares\DUTAS\DOESTAX\PROD\SRC\CPY\LIB
|
||||
-IncludeSearchPath=\\does-rainvm-prd\DefaultVolume\DOESTAX\DEVL\SRC\CPY\LIB
|
||||
-IncludeExtension=.cpy
|
||||
-StringRuntimeEncoding=037
|
||||
-DefInit=TRUE
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
00001 ***** 04/13/17
|
||||
00001 ***** 08/14/25
|
||||
00002 * DTSIS82
|
||||
00003 * DTSIS82 QUARTER INQUIRY/UPDATE SEND/RECEIVE AREA. LV004
|
||||
00003 * DTSIS82 QUARTER INQUIRY/UPDATE SEND/RECEIVE AREA. LV005
|
||||
00004 * DTSIS82
|
||||
00005 * 02-13-2013 REMOVED INTENT TO ESTIMATE DATE. ADDED DTSIS82
|
||||
00006 * REIMBURSABLE LATE PENALTY ASSESSMENT DT DTSIS82
|
||||
@ -139,19 +139,19 @@
|
||||
00139 20 MAP-UC30-FINAL-DEL-YY-A PIC X(01). DTSIS82
|
||||
00140 20 MAP-UC30-FINAL-DEL-YY PIC X(02). DTSIS82
|
||||
00141 SKIP1 DTSIS82
|
||||
00142 10 MAP-DELQ-LTR-SENT-DATE-AREA. CL**3
|
||||
00143 15 MAP-DELQ-LTR-SENT-MM-AREA. CL**2
|
||||
00144 20 MAP-DELQ-LTR-SENT-MM-L PIC S9(04) COMP. CL**2
|
||||
00145 20 MAP-DELQ-LTR-SENT-MM-A PIC X(01). CL**2
|
||||
00146 20 MAP-DELQ-LTR-SENT-MM PIC X(02). CL**2
|
||||
00147 15 MAP-DELQ-LTR-SENT-DD-AREA. CL**2
|
||||
00148 20 MAP-DELQ-LTR-SENT-DD-L PIC S9(04) COMP. CL**2
|
||||
00149 20 MAP-DELQ-LTR-SENT-DD-A PIC X(01). CL**2
|
||||
00150 20 MAP-DELQ-LTR-SENT-DD PIC X(02). CL**2
|
||||
00151 15 MAP-DELQ-LTR-SENT-YY-AREA. CL**2
|
||||
00152 20 MAP-DELQ-LTR-SENT-YY-L PIC S9(04) COMP. CL**2
|
||||
00153 20 MAP-DELQ-LTR-SENT-YY-A PIC X(01). CL**2
|
||||
00154 20 MAP-DELQ-LTR-SENT-YY PIC X(02). CL**2
|
||||
00142 * 10 MAP-DELQ-LTR-SENT-DATE-AREA. CL**5
|
||||
00143 * 15 MAP-DELQ-LTR-SENT-MM-AREA. CL**5
|
||||
00144 * 20 MAP-DELQ-LTR-SENT-MM-L PIC S9(04) COMP. CL**5
|
||||
00145 * 20 MAP-DELQ-LTR-SENT-MM-A PIC X(01). CL**5
|
||||
00146 * 20 MAP-DELQ-LTR-SENT-MM PIC X(02). CL**5
|
||||
00147 * 15 MAP-DELQ-LTR-SENT-DD-AREA. CL**5
|
||||
00148 * 20 MAP-DELQ-LTR-SENT-DD-L PIC S9(04) COMP. CL**5
|
||||
00149 * 20 MAP-DELQ-LTR-SENT-DD-A PIC X(01). CL**5
|
||||
00150 * 20 MAP-DELQ-LTR-SENT-DD PIC X(02). CL**5
|
||||
00151 * 15 MAP-DELQ-LTR-SENT-YY-AREA. CL**5
|
||||
00152 * 20 MAP-DELQ-LTR-SENT-YY-L PIC S9(04) COMP. CL**5
|
||||
00153 * 20 MAP-DELQ-LTR-SENT-YY-A PIC X(01). CL**5
|
||||
00154 * 20 MAP-DELQ-LTR-SENT-YY PIC X(02). CL**5
|
||||
00155 SKIP1 DTSIS82
|
||||
00156 10 MAP-UC30-FINAL-ACT-DATE-AREA. DTSIS82
|
||||
00157 15 MAP-UC30-FINAL-ACTION-MM-AREA. DTSIS82
|
||||
|
||||
@ -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
|
||||
180
Copybook/OJRPE127.cpy
Normal file
180
Copybook/OJRPE127.cpy
Normal file
@ -0,0 +1,180 @@
|
||||
00001 I1000-EDIT-AND-DEFAULT-PARMS. 06/28/18
|
||||
00002 PERFORM I1110-RESP-OP-ID THRU I1110-EXIT OJRPE127
|
||||
00003 LV009
|
||||
00004 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||
00005 PERFORM I1120-END-YRQ THRU I1120-EXIT OJRPE127
|
||||
00006 END-IF OJRPE127
|
||||
00007 OJRPE127
|
||||
00008 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||
00009 PERFORM I1130-START-YRQ THRU I1130-EXIT OJRPE127
|
||||
00010 END-IF OJRPE127
|
||||
00011 OJRPE127
|
||||
00012 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||
00013 COMPUTE WRK-PARM-NUMBER-QTRS OJRPE127
|
||||
00014 = WRK-PARM-END-ABS-QTR - WRK-PARM-START-ABS-QTR + 1 OJRPE127
|
||||
00015 END-IF OJRPE127
|
||||
00016 CL**3
|
||||
00017 DISPLAY '# QTRS NOT LIABLE THIS RUN ' WRK-PARM-NUMBER-QTRS CL**3
|
||||
00018 CL**3
|
||||
00019 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||
00020 PERFORM I1140-AUTOMATIC-INACT-IND THRU I1140-EXIT OJRPE127
|
||||
00021 END-IF OJRPE127
|
||||
00022 OJRPE127
|
||||
00023 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||
00024 PERFORM I1150-EMP-CLASS THRU I1150-EXIT OJRPE127
|
||||
00025 END-IF. OJRPE127
|
||||
00026 I1000-EXIT. OJRPE127
|
||||
00027 EXIT. OJRPE127
|
||||
00028 SKIP3 OJRPE127
|
||||
00029 OJRPE127
|
||||
00030 I1110-RESP-OP-ID. OJRPE127
|
||||
00031 IF OJR-PARM-RESP-OP-ID = SPACES OJRPE127
|
||||
00032 MOVE 'PARM-RESP-OP-ID MISSING' TO ABEND-MSG OJRPE127
|
||||
00033 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||
00034 END-IF OJRPE127
|
||||
00035 OJRPE127
|
||||
00036 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||
00037 MOVE OJR-PARM-RESP-OP-ID TO L082-OP-ID OJRPE127
|
||||
00038 PERFORM S082-LOOKUP-OP-ID THRU S082-EXIT OJRPE127
|
||||
00039 IF L082-NOT-VALID-OP OR L082-INTERNAL-88 OJRPE127
|
||||
00040 MOVE 'OJR-PARM-RESP-OP-ID NOT VALID' OJRPE127
|
||||
00041 TO ABEND-MSG OJRPE127
|
||||
00042 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||
00043 END-IF OJRPE127
|
||||
00044 END-IF OJRPE127
|
||||
00045 OJRPE127
|
||||
00046 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||
00047 MOVE OJR-PARM-RESP-OP-ID TO WRK-PARM-RESP-OP-ID OJRPE127
|
||||
00048 END-IF. OJRPE127
|
||||
00049 I1110-EXIT. OJRPE127
|
||||
00050 EXIT. OJRPE127
|
||||
00051 SKIP3 OJRPE127
|
||||
00052 I1120-END-YRQ. OJRPE127
|
||||
00053 IF OJR-PARM-END-YRQ = SPACES OJRPE127
|
||||
00054 MOVE OJR-LAST-UC30-DEL-MAIL-YRQ TO WRK-PARM-END-YRQ OJRPE127
|
||||
00055 ELSE OJRPE127
|
||||
00056 MOVE OJR-PARM-END-YRQ TO L004-QTR-3-X OJRPE127
|
||||
00057 PERFORM S004-FROM-3 THRU S004-EXIT OJRPE127
|
||||
00058 IF L004-VALID-QTR OJRPE127
|
||||
00059 MOVE L004-QTR-5-9 TO WRK-PARM-END-YRQ OJRPE127
|
||||
00060 ELSE OJRPE127
|
||||
00061 MOVE 'PARM-END-YRQ NOT VALID' OJRPE127
|
||||
00062 TO ABEND-MSG OJRPE127
|
||||
00063 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||
00064 END-IF OJRPE127
|
||||
00065 END-IF OJRPE127
|
||||
00066 OJRPE127
|
||||
00067 OJRPE127
|
||||
00068 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||
00069 IF WRK-PARM-END-YRQ > OJR-LAST-UC30-DEL-MAIL-YRQ OJRPE127
|
||||
00070 MOVE 'PARM-END-YRQ > LAST-UC30-DEL-MAIL-YRQ' OJRPE127
|
||||
00071 TO ABEND-MSG OJRPE127
|
||||
00072 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||
00073 END-IF OJRPE127
|
||||
00074 END-IF OJRPE127
|
||||
00075 OJRPE127
|
||||
00076 OJRPE127
|
||||
00077 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||
00078 MOVE WRK-PARM-END-YRQ TO L004-QTR-5-9 OJRPE127
|
||||
00079 OJRPE127
|
||||
00080 PERFORM S004-FROM-5 THRU S004-EXIT OJRPE127
|
||||
00081 OJRPE127
|
||||
00082 MOVE L004-ABS-QTR TO WRK-PARM-END-ABS-QTR OJRPE127
|
||||
00083 DISPLAY ' WRK END QTR ' WRK-PARM-END-YRQ CL**3
|
||||
00084 MOVE L004-QTR-END-DATE TO WRK-END-YRQ-DATE CL**7
|
||||
00085 END-IF. OJRPE127
|
||||
00086 I1120-EXIT. OJRPE127
|
||||
00087 EXIT. OJRPE127
|
||||
00088 SKIP3 OJRPE127
|
||||
00089 I1130-START-YRQ. OJRPE127
|
||||
00090 IF OJR-PARM-START-YRQ = SPACES OJRPE127
|
||||
00091 MOVE WRK-PARM-END-ABS-QTR TO L004-ABS-QTR OJRPE127
|
||||
00092 SUBTRACT 7 FROM L004-ABS-QTR OJRPE127
|
||||
00093 PERFORM S004-FROM-ABS THRU S004-EXIT OJRPE127
|
||||
00094 MOVE L004-QTR-5-9 TO WRK-PARM-START-YRQ OJRPE127
|
||||
00095 MOVE L004-ABS-QTR TO WRK-PARM-START-ABS-QTR OJRPE127
|
||||
00096 DISPLAY 'WRK START QTR ' WRK-PARM-START-YRQ CL**3
|
||||
00097 MOVE L004-QTR-START-DATE TO WRK-START-YRQ-DATE CL**7
|
||||
00098 ELSE OJRPE127
|
||||
00099 MOVE OJR-PARM-START-YRQ TO L004-QTR-3-X OJRPE127
|
||||
00100 PERFORM S004-FROM-3 THRU S004-EXIT OJRPE127
|
||||
00101 IF L004-VALID-QTR OJRPE127
|
||||
00102 MOVE L004-QTR-5-9 TO WRK-PARM-START-YRQ OJRPE127
|
||||
00103 MOVE L004-ABS-QTR TO WRK-PARM-START-ABS-QTR OJRPE127
|
||||
00104 MOVE L004-QTR-START-DATE TO WRK-START-YRQ-DATE CL**7
|
||||
00105 ELSE OJRPE127
|
||||
00106 MOVE 'PARM-START-YRQ NOT VALID' OJRPE127
|
||||
00107 TO ABEND-MSG OJRPE127
|
||||
00108 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||
00109 END-IF OJRPE127
|
||||
00110 END-IF OJRPE127
|
||||
00111 OJRPE127
|
||||
00112 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||
00113 IF WRK-PARM-START-YRQ < OJR-FIRST-PURSUED-RPT-YRQ OJRPE127
|
||||
00114 MOVE 'PARM-START-YRQ < FIRST-PURSUED-RPT-YRQ' OJRPE127
|
||||
00115 TO ABEND-MSG OJRPE127
|
||||
00116 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||
00117 END-IF OJRPE127
|
||||
00118 END-IF OJRPE127
|
||||
00119 OJRPE127
|
||||
00120 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||
00121 IF WRK-PARM-START-YRQ > WRK-PARM-END-YRQ OJRPE127
|
||||
00122 MOVE 'PARM-START-YRQ GREATER THAN WRK-PARM-END-YRQ' OJRPE127
|
||||
00123 TO ABEND-MSG OJRPE127
|
||||
00124 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||
00125 END-IF OJRPE127
|
||||
00126 END-IF. OJRPE127
|
||||
00127 I1130-EXIT. OJRPE127
|
||||
00128 EXIT. OJRPE127
|
||||
00129 SKIP3 OJRPE127
|
||||
00130 I1140-AUTOMATIC-INACT-IND. OJRPE127
|
||||
00131 IF OJR-PARM-AUTO-INACT-IND = SPACES OR LOW-VALUES OJRPE127
|
||||
00132 SET WRK-PARM-AUTO-INACT-NO-88 TO TRUE OJRPE127
|
||||
00133 GO TO I1140-EXIT OJRPE127
|
||||
00134 END-IF OJRPE127
|
||||
00135 OJRPE127
|
||||
00136 MOVE OJR-PARM-AUTO-INACT-IND TO WRK-PARM-AUTO-INACT-IND OJRPE127
|
||||
00137 OJRPE127
|
||||
00138 IF WRK-PARM-AUTO-INACT-YES-88 OJRPE127
|
||||
00139 OR OJRPE127
|
||||
00140 WRK-PARM-AUTO-INACT-NO-88 OJRPE127
|
||||
00141 CONTINUE OJRPE127
|
||||
00142 ELSE OJRPE127
|
||||
00143 MOVE 'PARM-AUTO-INACT-IND NOT VALID' OJRPE127
|
||||
00144 TO ABEND-MSG OJRPE127
|
||||
00145 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||
00146 END-IF OJRPE127
|
||||
00147 OJRPE127
|
||||
00148 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||
00149 IF WRK-PARM-AUTO-INACT-YES-88 OJRPE127
|
||||
00150 * IF WRK-PARM-NUMBER-QTRS = +12 CL**9
|
||||
00151 IF WRK-PARM-NUMBER-QTRS = +08 CL**9
|
||||
00152 CONTINUE OJRPE127
|
||||
00153 ELSE OJRPE127
|
||||
00154 * MOVE 'AUTO INACT = YES, BUT #QTRS NOT =12' CL**9
|
||||
00155 MOVE 'AUTO INACT = YES, BUT #QTRS NOT =08' CL**9
|
||||
00156 TO ABEND-MSG OJRPE127
|
||||
00157 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||
00158 END-IF OJRPE127
|
||||
00159 END-IF OJRPE127
|
||||
00160 END-IF. OJRPE127
|
||||
00161 I1140-EXIT. OJRPE127
|
||||
00162 EXIT. OJRPE127
|
||||
00163 SKIP3 OJRPE127
|
||||
00164 OJRPE127
|
||||
00165 I1150-EMP-CLASS. OJRPE127
|
||||
00166 IF OJR-PARM-EMP-CLASS = SPACES OJRPE127
|
||||
00167 SET WRK-PARM-CLASS-ALL-88 TO TRUE OJRPE127
|
||||
00168 GO TO I1150-EXIT OJRPE127
|
||||
00169 END-IF OJRPE127
|
||||
00170 OJRPE127
|
||||
00171 IF OJR-PARM-EMP-CLASS = 'R' OR 'S' OJRPE127
|
||||
00172 MOVE OJR-PARM-EMP-CLASS TO WRK-PARM-EMP-CLASS OJRPE127
|
||||
00173 ELSE OJRPE127
|
||||
00174 MOVE 'PARM-EMP-CLASS NOT VALID' OJRPE127
|
||||
00175 TO ABEND-MSG OJRPE127
|
||||
00176 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||
00177 END-IF. OJRPE127
|
||||
00178 I1150-EXIT. OJRPE127
|
||||
00179 EXIT. OJRPE127
|
||||
00180 EJECT OJRPE127
|
||||
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.RPT414R1,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// DCB=(LRECL=134,RECFM=FBA),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X305PARM',
|
||||
// COPY)
|
||||
96
JCL/DELESSP.jcl
Normal file
96
JCL/DELESSP.jcl
Normal file
@ -0,0 +1,96 @@
|
||||
//LOADESSP JOB (UI,4300,03410,P),'DECRYPT/WAGES--TDEC',REGION=4000K,
|
||||
// USER=#DOADTS,
|
||||
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
|
||||
/*ROUTE PRINT U@PRT65
|
||||
//*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)
|
||||
//*
|
||||
//STEP004 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP006 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP007 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP010 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP014 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP016 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP018 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP020 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP022 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP024 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP026 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP028 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
@ -54,14 +54,19 @@
|
||||
//SYSABEND DD SYSOUT=* 00270000
|
||||
//SYSUDUMP DD SYSOUT=* 00280000
|
||||
//* 00290000
|
||||
//DTSFNAME DD DSN=DOESTAX.DEVL.VSAM.WAGENAME,DISP=SHR, 00300006
|
||||
//DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGENAME,DISP=SHR, 00300006
|
||||
// AMP=('BUFNI=5,BUFND=10') 00310000
|
||||
//* 00320000
|
||||
//DTSFX144 DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00330006
|
||||
//*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),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES, 00050306
|
||||
// DCB=(RECFM=LSEQ,LRECL=76,BLKSIZE=7600)
|
||||
//* 00360000
|
||||
//********************************************************************* 00370000
|
||||
//*** COPY ESSP DAILY WAGES TO ARCHIVE BACKUP FILE. 00390007
|
||||
@ -71,7 +76,26 @@
|
||||
//COPYESSP EXEC PGM=IDCAMS,COND=(0,LT) 00430007
|
||||
//IFILE DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00440007
|
||||
//** 00450007
|
||||
//OFILE DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20213,DISP=MOD 00460011
|
||||
//OFILE DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20252,DISP=MOD 00460011
|
||||
//SYSPRINT DD SYSOUT=(*) 00500007
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR 00510007
|
||||
//** 00520007
|
||||
//**
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'DOESTAX.PROD.WAGE.NAME.EXP' +
|
||||
DOESTAX.PROD.WAGE.NAME.EXP
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//* 00520007
|
||||
|
||||
@ -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',
|
||||
|
||||
@ -15,4 +15,22 @@
|
||||
//STEP0100.DTSFVRI1 DD DSN=DOESTAX.PROD.SRTDAY07.RPT(+0),
|
||||
// DISP=SHR
|
||||
//*
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.REG122' ECNTSUP.DOESTAX.PROD.FTP.REG122
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//
|
||||
|
||||
@ -10,3 +10,24 @@
|
||||
//* 00001700
|
||||
//STEP0100 EXEC DTSBX202
|
||||
//*********************************************************************
|
||||
/*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ERRTRN.AM' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.ERRTRN.AM
|
||||
PUT 'ECNTSUP.DOESTAX.PROD.FTP.BX217.AM' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.BX217.AM
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
@ -1,6 +1,6 @@
|
||||
//DTSBX215 JOB (UI,4300,3400,T),PROD.BX215,CLASS=A,MSGCLASS=X, 00000010
|
||||
//* TYPRUN=SCAN,
|
||||
// USER=#DOADTS,
|
||||
// USER=#DOADTS,RESTART=STEP0900,
|
||||
// NOTIFY=ECNTSUP,
|
||||
// REGION=0M
|
||||
//*
|
||||
@ -12,15 +12,32 @@
|
||||
//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
|
||||
//*****************************************
|
||||
//STEP0210 EXEC PGM=FTP,
|
||||
// COND=(0,LT)
|
||||
//*
|
||||
//*
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0900 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.BX215' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.BX215
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.BX220' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.BX220
|
||||
PUT 'ECNTSUP.DOESTAX.PROD.FTP.DEPOSIT' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.DEPOSIT
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT310),DISP=SHR
|
||||
//
|
||||
//* 00014000
|
||||
//*****************************************
|
||||
|
||||
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
|
||||
//*
|
||||
//*
|
||||
@ -21,7 +21,8 @@
|
||||
// DISP=(OLD,KEEP,KEEP),
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
// SPACE=(7500,(10,20),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=750,BLKSIZE=7500)
|
||||
//*
|
||||
//******************************************************************
|
||||
//* RAINCODE TESTED 08/20/25 ZL1 r
|
||||
@ -31,13 +32,25 @@
|
||||
//******************************************************************
|
||||
//**** STOP HERE AS OF 10/3/22 DIFS TAKES OVER FROM SOAR ZL1
|
||||
//*
|
||||
//*TEP0200 EXEC PGM=FTP,COND=(0,LT)
|
||||
//*YSPRINT DD SYSOUT=*
|
||||
//*UTOUT DD SYSOUT=*
|
||||
//*YSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//*YSGET DD *,DCB=BLKSIZE=80
|
||||
//*NPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT303),DISP=SHR
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
ASCII
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
PUT 'DOESTAX.PROD.FTP.REFUND.X303EXP' +
|
||||
DOESTAX.PROD.FTP.REFUND.X303EXP
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//*********************************************************************
|
||||
//* |
|
||||
//* JOB : SAVE A COPY OF THE FTP REFUND FILE
|
||||
|
||||
@ -35,7 +35,7 @@
|
||||
//* JOB : SAVE A COPY OF THE DIFS-FTP REFUND FILE ZL1
|
||||
//* |
|
||||
//*********************************************************************
|
||||
//STEP0250 EXEC PGM=IDCAMS
|
||||
//STEP0100 EXEC PGM=IDCAMS
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
||||
//OUTDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
||||
@ -51,11 +51,11 @@
|
||||
//* JOB : SAVE A COPY OF THE DIFS-FTP REFUND FILE ZL1
|
||||
//* |
|
||||
//*********************************************************************
|
||||
//STEP0250 EXEC PGM=IDCAMS
|
||||
//STEP0200 EXEC PGM=IDCAMS
|
||||
//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 *
|
||||
@ -68,18 +68,42 @@
|
||||
//* LATEST UPDATES ARE SORTED TO THE BOTTOM OF FILE 00001700
|
||||
//* 00001700
|
||||
//********************************************************************
|
||||
//STEP0075 EXEC PGM=SORT SORT FTP RECORDS
|
||||
//STEP0300 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)'
|
||||
//*STEP0400 EXEC DTSUTVSM, 00002102
|
||||
//* BKUPGEN='(+1)',freq='DAILY'
|
||||
//*****
|
||||
//STEP0200 EXEC DTSBX305
|
||||
//STEP0500 EXEC DTSBX305
|
||||
//** 00001700
|
||||
//STEP0300 EXEC DTSBX306
|
||||
//STEP0600 EXEC DTSBX306
|
||||
//** 00001700
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0700 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'DOESTAX.PROD.FTP.REFUND.X305EXP' +
|
||||
DOESTAX.PROD.FTP.REFUND.X305EXP
|
||||
PUT 'ECNTSUP.DOESTAX.PROD.FTP.X306' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.X306
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
@ -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.
|
||||
//***************************************************
|
||||
@ -34,10 +34,27 @@
|
||||
//DTSLN403 DD DSN=DOESTAX.CONV.LEIN403.RECORD,
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
// DISP=SHR
|
||||
//* UNIT=SYSDA,
|
||||
//* SPACE=(CYL,(10,10),RLSE),
|
||||
//* DCB=(RECFM=FB,LRECL=1732,BLKSIZE=0)
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(CYL,(10,10),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=1732,BLKSIZE=0)
|
||||
//*
|
||||
//DTSLN405 DD DUMMY
|
||||
//*
|
||||
//*********************************************************************
|
||||
//************************************************************** 00845099
|
||||
//*
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'DOESTAX.CONV.LEIN403.RECORD' DOESTAX.CONV.LEIN403.RECORD
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
@ -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),
|
||||
@ -34,10 +34,28 @@
|
||||
//DTSLN405 DD DSN=DOESTAX.CONV.LEIN405.RECORD,
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
// DISP=SHR
|
||||
//* UNIT=SYSDA,
|
||||
//* SPACE=(CYL,(10,10),RLSE),
|
||||
//* DCB=(RECFM=FB,LRECL=323,BLKSIZE=0)
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(CYL,(10,10),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=323,BLKSIZE=0)
|
||||
//*
|
||||
//DTSLN403 DD DUMMY
|
||||
//*
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'DOESTAX.CONV.LEIN405.RECORD' DOESTAX.CONV.LEIN405.RECORD
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
@ -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 *
|
||||
|
||||
@ -3,7 +3,7 @@
|
||||
//* TYPRUN=SCAN,
|
||||
// USER=#DOADTS,
|
||||
//** NOTIFY=ECNTSUP,
|
||||
// NOTIFY=ECNTZL1,
|
||||
// NOTIFY=ECNTZL1,RESTART=STEPFTP,
|
||||
// REGION=0M
|
||||
//* 00001700
|
||||
// SET LVLNODE='DEVL'
|
||||
@ -31,4 +31,25 @@
|
||||
//STEP0200 EXEC DTSBX441
|
||||
//*
|
||||
//STEP0300 EXEC DTSBX433
|
||||
//** 00001700
|
||||
//**
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEPFTP EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/essp/outbound_essp
|
||||
ascii
|
||||
put 'DOESTAX.CONV.ESSP.DAILY.FTP.X104' +
|
||||
DOESTAX.CONV.ESSP.DAILY.FTP.X104
|
||||
put 'DOESTAX.CONV.ESSP.DAILY.FTP.X141' +
|
||||
DOESTAX.CONV.ESSP.DAILY.FTP.X141
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//* 00001700
|
||||
|
||||
@ -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
|
||||
|
||||
75
JCL/DTSBX468.jcl
Normal file
75
JCL/DTSBX468.jcl
Normal file
@ -0,0 +1,75 @@
|
||||
//DTSBX468 JOB (HS,0000,0000,P),NDNH-WAGE-EXACT2,CLASS=S,MSGCLASS=X,
|
||||
//*** TYPRUN=SCAN,
|
||||
//* USER=#DOADTS,
|
||||
// NOTIFY=ECNTZL1,
|
||||
// REGION=4M
|
||||
//****
|
||||
// SET UINODE='PROD'
|
||||
// SET MSTNODE='PROD'
|
||||
// SET PRGNODE='PROD'
|
||||
// SET OUTNODE='CONV'
|
||||
//****
|
||||
//* PRODUCE THE QUARTERLY WAGE EXTRACT FOR NDNH AND OAG
|
||||
//*
|
||||
//* EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (QTR DECLARED DELQ)
|
||||
//* RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
|
||||
//****
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//****
|
||||
//** BE SURE TO CHNG THE PARM IN DOESTAX.CONV.USER.PARMLIB(DTSBX465)
|
||||
//** (OR, FOR NOW, THE ONE BELOW AT THE END OF THIS JOB)
|
||||
//****
|
||||
//STEP0100 EXEC PGM=DTSBX468
|
||||
//PRNTR DD SYSOUT=(*)
|
||||
//SYSOUT DD SYSOUT=(*)
|
||||
//SYSUDUMP DD SYSOUT=(*)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSDBOUT DD SYSOUT=(*)
|
||||
//SYSCOUNT DD SYSOUT=(*)
|
||||
//*
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//*DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGENAME,DISP=SHR,
|
||||
//* AMP=('BUFNI=5,BUFND=10')
|
||||
//*
|
||||
//*BUSINES DD DSN=EFT.QWDATA.QTRLY.SDC.R250831,
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
//* UNIT=SYSDA,SPACE=(CYL,(900,50),RLSE),
|
||||
//* DCB=(RECFM=LSEQ,LRECL=601)
|
||||
//BUSINES DD DSN=DOESTAX.CONV.NDNH.QTRWAGE,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
//* DISP=SHR
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(CYL,(300,100),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=601,BLKSIZE=6010)
|
||||
//*
|
||||
//*
|
||||
//***DEFAULT IS LAST COMPLETED QUARTER DECLARED DELINQUENT
|
||||
//***
|
||||
//SYSIN DD *
|
||||
**DTSBX465 20250601 20250831 DCG FED BUS
|
||||
/*
|
||||
//
|
||||
//EMAIL EXEC PGM=IEBGENER,
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
// USERDATA=('TO:TARA.WRIGHT@ACF.HHS.GOV',
|
||||
// 'TO:HAROLD.JOHNSON@DC.GOV',
|
||||
// 'TO:CAROLYN.TAYLORSON@SSA.GOV',
|
||||
// 'TO:SEAN.JOSIAH@DC.GOV',
|
||||
// 'TO:JOY.DIGGS@DC.GOV',
|
||||
// 'TO:ALEXIS.WASHINGTON@ACF.HHS.GOV',
|
||||
// 'TO:PRUDVI.PALLA@DC.GOV',
|
||||
// 'TO:LYNNETTA.THOMPSON@ACF.HHS.GOV',
|
||||
// 'SUBJECT:DC QUARTERLY WAGE NAME SUBMISSION',
|
||||
// 'FILEDESC: DOES WAGES WITH NAMES ',
|
||||
// 'FILENAME:DOESWAGE.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.OAG.WAGES.TXT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//*
|
||||
//**
|
||||
84
JCL/DTSBX469.jcl
Normal file
84
JCL/DTSBX469.jcl
Normal file
@ -0,0 +1,84 @@
|
||||
//DTSBX469 JOB (HS,0000,0000,P),NDNH-WAGE-EXACT2,CLASS=S,MSGCLASS=X,
|
||||
//*** TYPRUN=SCAN,
|
||||
//* USER=#DOADTS,
|
||||
// NOTIFY=ECNTZL1,RESTART=STEP0400,
|
||||
// REGION=4M
|
||||
//****
|
||||
// SET UINODE='PROD'
|
||||
// SET MSTNODE='PROD'
|
||||
// SET PRGNODE='PROD'
|
||||
// SET LVLNODE='CONV'
|
||||
//****
|
||||
//* PRODUCE THE QUARTERLY WAGE EXTRACT FOR OFFICE OF TAX AND REVENUE (OTR)AND OAG
|
||||
//*
|
||||
//* EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (QTR DECLARED DELQ)
|
||||
//* RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
|
||||
//****
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//****
|
||||
//** BE SURE TO CHNG THE PARM IN DOESTAX.CONV.USER.PARMLIB(DTSBX465)
|
||||
//** (OR, FOR NOW, THE ONE BELOW AT THE END OF THIS JOB)
|
||||
//****
|
||||
//STEP0100 EXEC PGM=DTSBX469
|
||||
//PRNTR DD SYSOUT=(*)
|
||||
//SYSOUT DD SYSOUT=(*)
|
||||
//SYSUDUMP DD SYSOUT=(*)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSDBOUT DD SYSOUT=(*)
|
||||
//SYSCOUNT DD SYSOUT=(*)
|
||||
//*
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//*DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGENAME,DISP=SHR,
|
||||
//* AMP=('BUFNI=5,BUFND=10')
|
||||
//*
|
||||
//*
|
||||
//BUSINES DD DSN=DOESTAX.&LVLNODE..UI.OTR.BUS,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
//* DISP=(OLD,KEEP,KEEP),
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(CYL,(75,25),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
|
||||
//*
|
||||
//GOVT DD DSN=DOESTAX.&LVLNODE..UI.OTR.DCG,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(CYL,(75,15),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
|
||||
//*
|
||||
//***DEFAULT IS LAST COMPLETED QUARTER DECLARED DELINQUENT
|
||||
//***
|
||||
//SYSIN DD *
|
||||
**DTSBX465 20250601 20250831 DCG FED BUS
|
||||
/*
|
||||
//STEP0400 EXEC PGM=SFTP
|
||||
//*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
|
||||
//SYSIN DD *
|
||||
FWFRIENDLY TRUE
|
||||
//SYSPRINT DD SYSOUT=*,HOLD=YES
|
||||
//OUTPUT DD SYSOUT=*
|
||||
//INPUT DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSFX465),DISP=SHR
|
||||
/*
|
||||
//
|
||||
//EMAIL EXEC PGM=IEBGENER,
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
// USERDATA=('TO:TARA.WRIGHT@ACF.HHS.GOV',
|
||||
// 'TO:HAROLD.JOHNSON@DC.GOV',
|
||||
// 'TO:CAROLYN.TAYLORSON@SSA.GOV',
|
||||
// 'TO:SEAN.JOSIAH@DC.GOV',
|
||||
// 'TO:JOY.DIGGS@DC.GOV',
|
||||
// 'TO:ALEXIS.WASHINGTON@ACF.HHS.GOV',
|
||||
// 'TO:PRUDVI.PALLA@DC.GOV',
|
||||
// 'TO:LYNNETTA.THOMPSON@ACF.HHS.GOV',
|
||||
// 'SUBJECT:DC QUARTERLY WAGE NAME SUBMISSION',
|
||||
// 'FILEDESC: DOES WAGES WITH NAMES ',
|
||||
// 'FILENAME:DOESWAGE.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.OAG.WAGES.TXT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//*
|
||||
//**
|
||||
@ -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'
|
||||
@ -30,6 +31,28 @@
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//DTSFX601 DD DSN=ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT,DISP=SHR
|
||||
//*
|
||||
//DTSFX601 DD DSN=ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//* SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=LSEQ,LRECL=80)
|
||||
//*********************************************************************
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT' +
|
||||
ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT (REPLACE
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
@ -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
|
||||
@ -109,6 +109,7 @@
|
||||
//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 CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=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
|
||||
@ -40,7 +40,7 @@
|
||||
//*TEP0100.TPSCHRG DD DISP=SHR 00511130
|
||||
//**** 00520000
|
||||
//* UPDATE FQTR RECORD IF JOB RAN SUCCESSFULLY 00579236
|
||||
//**** 00579336
|
||||
//* 00579336
|
||||
//STEP0200 EXEC DTSUXCGU 00579436
|
||||
//* 00579536
|
||||
//**** 00580025
|
||||
|
||||
@ -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
|
||||
@ -35,13 +35,16 @@
|
||||
//*********************************************************************
|
||||
//* STEP TO COPY CONVERT FILE TO DASD-PART1 *
|
||||
//*********************************************************************
|
||||
//*
|
||||
//
|
||||
//STEP0200 EXEC PGM=SORT
|
||||
//*
|
||||
//SORTIN DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,
|
||||
// DISP=SHR
|
||||
//*
|
||||
//SORTOUT DD DSN=DOESTAX.CONV.SI.CHARGE.SORTED,DISP=SHR
|
||||
//* 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
|
||||
@ -84,12 +84,15 @@ QTR, , ,YYYYYY,000000 00200099
|
||||
//* DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01420099
|
||||
//** 01430000
|
||||
//** SM - TOTAL CHARGES (RATED) 01440000
|
||||
//RPC100R1 DD SYSOUT=E, 01451099
|
||||
//RPC100R1 DD SYSOUT=E,
|
||||
//* CODEPAGE=1252,AUTOENCODE=YES, 01451099
|
||||
// DEST=&LDEST., 01460000
|
||||
// HOLD=&LHOLD. 01470000
|
||||
//** CHRG SUMMARY-RATED 01480000
|
||||
//RPC100R3 DD SYSOUT=0 01491099
|
||||
//** 01520099
|
||||
//RPC100R3 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=I
|
||||
//* 01491099
|
||||
//**
|
||||
//RPC100R4 DD DUMMY 01520099
|
||||
//**** SORT REPORT RECORDS (901/907) 01800000
|
||||
//STEP0150 EXEC PGM=SORT, 01810000
|
||||
// COND=(0,LT), 01820000
|
||||
|
||||
@ -16,10 +16,34 @@
|
||||
//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 *
|
||||
SORT FIELDS=(1,11,CH,A)
|
||||
END
|
||||
//********************************************************************
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.CONV.ESSPX145' +
|
||||
ECNTSUP.DOESTAX.CONV.ESSPX145
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
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
|
||||
//********************************************************************
|
||||
@ -27,3 +27,22 @@
|
||||
//*TEP0100.DTSFVRO1 DD DUMMY 00270006
|
||||
//STEP0100.DTS003F1 DD DSN=ECNTSUP.DOESTAX.DEVL.FTP.HOLIDAYS,DISP=SHR 00270109
|
||||
//**** 00284000
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd /Dutasrc/essp/outbound_essp
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.CONV.DOES.DAILY.CREDITS' +
|
||||
ECNTSUP.DOESTAX.CONV.DOES.DAILY.CREDITS
|
||||
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
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
@ -17,22 +17,23 @@
|
||||
//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),
|
||||
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//****
|
||||
//DTSFP140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
|
||||
//DTSFP140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR,
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
//* SPACE=(8192,(100,200),RLSE),
|
||||
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// 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,18 +42,19 @@
|
||||
//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),
|
||||
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//****
|
||||
//DTSFP144 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR
|
||||
//DTSFP144 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR,
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
//* SPACE=(8192,(100,200),RLSE),
|
||||
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//*
|
||||
//*********************************
|
||||
//STEP0300 EXEC PGM=DESBD475, SELECT FRAUD WAGES FROM X147
|
||||
@ -64,17 +66,41 @@
|
||||
//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),
|
||||
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//****
|
||||
//DTSFP147 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X147,DISP=SHR
|
||||
//DTSFP147 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X147,DISP=SHR,
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
//* SPACE=(8192,(100,200),RLSE),
|
||||
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//****
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'DOESTAX.CONV.FROMESSP.PASSED.X147' +
|
||||
DOESTAX.CONV.FROMESSP.PASSED.X147
|
||||
put 'DOESTAX.CONV.FROMESSP.PASSED.X144' +
|
||||
DOESTAX.CONV.FROMESSP.PASSED.X144
|
||||
put 'DOESTAX.CONV.FROMESSP.PASSED.X140' +
|
||||
DOESTAX.CONV.FROMESSP.PASSED.X140
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
//***********************************
|
||||
//EMAIL EXEC PGM=IEBGENER,
|
||||
// COND=(0,LT),
|
||||
@ -94,7 +120,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
|
||||
//*
|
||||
@ -18,12 +18,32 @@
|
||||
//** TO TURN OFF LINE NUMBER TYPE "NONUM"
|
||||
//** FTP COMMANDS MUST be in lower case
|
||||
//***************************************************************
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120'
|
||||
//*STEP0200 EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120'
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*OUTOUT DD SYSOUT=*
|
||||
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//*SYSGET DD *,DCB=BLKSIZE=80
|
||||
//**PUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDR202),DISP=SHR
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSFT202),DISP=SHR
|
||||
/*
|
||||
//* TDEC BBACKUP TEST SERVER
|
||||
//********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
|
||||
//**
|
||||
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
50.76.21.195
|
||||
tdec_dcw_5
|
||||
14cw0d8Y
|
||||
ascii
|
||||
PUT 'DOESTAX.CONV.TDEC.VERIF' verification_file.txt
|
||||
PUT 'DOESTAX.CONV.TDEC.EMPNAME' employer_no_file.txt
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//**PUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDR202),DISP=SHR
|
||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSFT202),DISP=SHR
|
||||
/*
|
||||
//*
|
||||
|
||||
//****
|
||||
|
||||
52
JCL/DTSFT469.jcl
Normal file
52
JCL/DTSFT469.jcl
Normal file
@ -0,0 +1,52 @@
|
||||
//DTSFT469 JOB (HS,0000,0000,P),NDNH-WAGE-EXACT2,CLASS=S,MSGCLASS=X,
|
||||
//*** TYPRUN=SCAN,
|
||||
//* USER=#DOADTS,
|
||||
// NOTIFY=ECNTZL1,
|
||||
// REGION=4M
|
||||
//****
|
||||
// SET UINODE='PROD'
|
||||
// SET MSTNODE='PROD'
|
||||
// SET PRGNODE='PROD'
|
||||
// SET LVLNODE='CONV'
|
||||
//****
|
||||
//* PRODUCE THE QUARTERLY WAGE EXTRACT FOR OFFICE OF TAX AND REVENUE (OTR)AND OAG
|
||||
//*
|
||||
//* EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (QTR DECLARED DELQ)
|
||||
//* RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
|
||||
//****
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//****
|
||||
//** BE SURE TO CHNG THE PARM IN DOESTAX.CONV.USER.PARMLIB(DTSBX465)
|
||||
//** (OR, FOR NOW, THE ONE BELOW AT THE END OF THIS JOB)
|
||||
//STEP0400 EXEC PGM=FTP
|
||||
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
|
||||
//SYSIN DD *
|
||||
FWFRIENDLY TRUE
|
||||
//SYSPRINT DD SYSOUT=*,HOLD=YES
|
||||
//OUTPUT DD SYSOUT=*
|
||||
//INPUT DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSFX465),DISP=SHR
|
||||
/*
|
||||
//
|
||||
//EMAIL EXEC PGM=IEBGENER,
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
// USERDATA=('TO:TARA.WRIGHT@ACF.HHS.GOV',
|
||||
// 'TO:HAROLD.JOHNSON@DC.GOV',
|
||||
// 'TO:CAROLYN.TAYLORSON@SSA.GOV',
|
||||
// 'TO:SEAN.JOSIAH@DC.GOV',
|
||||
// 'TO:JOY.DIGGS@DC.GOV',
|
||||
// 'TO:ALEXIS.WASHINGTON@ACF.HHS.GOV',
|
||||
// 'TO:PRUDVI.PALLA@DC.GOV',
|
||||
// 'TO:LYNNETTA.THOMPSON@ACF.HHS.GOV',
|
||||
// 'SUBJECT:DC QUARTERLY WAGE NAME SUBMISSION',
|
||||
// 'FILEDESC: DOES WAGES WITH NAMES ',
|
||||
// 'FILENAME:DOESWAGE.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.OAG.WAGES.TXT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//*
|
||||
//**
|
||||
63
JCL/DTSFTESD.jcl
Normal file
63
JCL/DTSFTESD.jcl
Normal file
@ -0,0 +1,63 @@
|
||||
//DTSFTESD JOB (HS,0000,0000,P),NDNH-WAGE-EXACT2,CLASS=S,MSGCLASS=X,
|
||||
//*** TYPRUN=SCAN,
|
||||
//* USER=#DOADTS,
|
||||
// NOTIFY=ECNTZL1,
|
||||
// REGION=4M
|
||||
//****
|
||||
// SET UINODE='PROD'
|
||||
// SET MSTNODE='PROD'
|
||||
// SET PRGNODE='PROD'
|
||||
// SET LVLNODE='CONV'
|
||||
//****
|
||||
//* PRODUCE THE QUARTERLY WAGE EXTRACT FOR OFFICE OF TAX AND REVENUE (OTR)AND OAG
|
||||
//*
|
||||
//* EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (QTR DECLARED DELQ)
|
||||
//* RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
|
||||
//****
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//****
|
||||
//** BE SURE TO CHNG THE PARM IN DOESTAX.CONV.USER.PARMLIB(DTSBX465)
|
||||
//** (OR, FOR NOW, THE ONE BELOW AT THE END OF THIS JOB)
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd /Dutasrc/essp/outbound_essp
|
||||
ascii
|
||||
put 'DOESTAX.CONV.ESSP.MSCL' DOESTAX.CONV.ESSP.MSCL
|
||||
put 'DOESTAX.CONV.ESSP.C102' DOESTAX.CONV.ESSP.C102
|
||||
put 'DOESTAX.CONV.ESSP.C104' DOESTAX.CONV.ESSP.C104
|
||||
put 'DOESTAX.CONV.ESSP.C106' DOESTAX.CONV.ESSP.C106
|
||||
put 'DOESTAX.CONV.ESSP.C108' DOESTAX.CONV.ESSP.C108
|
||||
put 'DOESTAX.CONV.ESSP.C110' DOESTAX.CONV.ESSP.C110
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//
|
||||
//EMAIL EXEC PGM=IEBGENER,
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
// USERDATA=('TO:TARA.WRIGHT@ACF.HHS.GOV',
|
||||
// 'TO:HAROLD.JOHNSON@DC.GOV',
|
||||
// 'TO:CAROLYN.TAYLORSON@SSA.GOV',
|
||||
// 'TO:SEAN.JOSIAH@DC.GOV',
|
||||
// 'TO:JOY.DIGGS@DC.GOV',
|
||||
// 'TO:ALEXIS.WASHINGTON@ACF.HHS.GOV',
|
||||
// 'TO:PRUDVI.PALLA@DC.GOV',
|
||||
// 'TO:LYNNETTA.THOMPSON@ACF.HHS.GOV',
|
||||
// 'SUBJECT:DC QUARTERLY WAGE NAME SUBMISSION',
|
||||
// 'FILEDESC: DOES WAGES WITH NAMES ',
|
||||
// 'FILENAME:DOESWAGE.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.OAG.WAGES.TXT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//*
|
||||
//**
|
||||
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,25 +28,20 @@
|
||||
//*-----------------------------------------------------
|
||||
//* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS
|
||||
//*-----------------------------------------------------
|
||||
//STEPWF EXEC PGM=FTP,
|
||||
//* PARM='-r TLS safetrans.wellsfargo.com'
|
||||
// PARM='-Sftp=TRUE 10.57.110.160'
|
||||
//ENVVAR DD *
|
||||
CLIENT=sftp
|
||||
SFTP_AUTH=3
|
||||
/*
|
||||
//*-----------------------------------------------------
|
||||
//*STEPWF EXEC PGM=SFTP,
|
||||
//* PARM='-sftp=TRUE safetransvalidate.wellsfargo.com'
|
||||
//*ENVVAR DD *
|
||||
//* CLIENT=sftp
|
||||
//* SFTP_STRICTHOSTKEY=accept-new
|
||||
//* SFTP_AUTH=5
|
||||
//*
|
||||
//*SFTPAUTH DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
|
||||
//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)
|
||||
//*SFTPPPK DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(RCWFKEY)
|
||||
//*SYSPRINT DD SYSOUT=*,HOLD=YES
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWFAD),DISP=SHR
|
||||
//*
|
||||
//********************************************************************
|
||||
//*** COPY essp ach RETURNS to backup ach file.
|
||||
//**
|
||||
@ -68,7 +63,7 @@ FWFRIENDLY TRUE
|
||||
//*** send email ach returns received from wells fargo.
|
||||
//*
|
||||
//********************************************************************
|
||||
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),
|
||||
//ESSPMAIL EXEC PGM=IEBGENER,COND=(4,LT),
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
@ -85,8 +80,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=133,BLKSIZE=1330)
|
||||
//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)
|
||||
//
|
||||
|
||||
@ -9,12 +9,12 @@
|
||||
//*** REMOVED PAYMENT CHECK FILE FROM THIS JOB 040119 ZL1
|
||||
//*** PAYMENTS ARE NOW MADE IN JOB BX530................ZL1
|
||||
//****
|
||||
//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY.
|
||||
//*** FILES GOING TO TDEC SHOULD USE TDEC ZTESTING CHKPAY.
|
||||
//****
|
||||
//*** 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'
|
||||
@ -24,10 +24,10 @@
|
||||
// SET EXTNODE='CONV'
|
||||
// SET RPTNODE='ESSP.BX420.RPT'
|
||||
//*
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCS.BATCH.LIB
|
||||
//PROCLIB JCLLIB ORDER=DDOESTAX.PROD.PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIELIB
|
||||
//**
|
||||
//* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)
|
||||
//* ZPROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)
|
||||
//*
|
||||
//********************************************************************
|
||||
//**** GET TDEC ENCRYPTED DOES DAILY PROCESSED CHECKS(NON REPORTS)
|
||||
@ -37,9 +37,10 @@
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DUMMY
|
||||
//OUTDD01 DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//* CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||
//*********************************************************************
|
||||
//********************************************************************
|
||||
@ -63,8 +64,9 @@
|
||||
//COPYDELQ 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),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
||||
//* CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=FB,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,16 +131,57 @@
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR
|
||||
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDCHK),DISP=SHR
|
||||
//*
|
||||
//STEP0200 EXEC DTSZXCHK
|
||||
//STEP0999 EXEC PGM=SORT, SORT TRANSACTIONS
|
||||
// COND=(0,LT)
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//*
|
||||
//STEP0300 EXEC DTSRSESP
|
||||
//SORTIN DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS,DISP=SHR
|
||||
// DD DSN=DOESTAX.CONV.TDEC.PENDING.X429.CHKS(+0),DISP=SHR
|
||||
//*
|
||||
//*SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
||||
//*SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
||||
//*SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
||||
//*SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
||||
//SORTOUT DD DSN=DOESTAX.&IMPNODE..TDECDOES.CHKPAY(+1),
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
// DISP=SHR
|
||||
//* UNIT=SYSDA,
|
||||
//* SPACE=(30720,(1000,1000),RLSE),
|
||||
//* CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//* DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120) 00009000
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR
|
||||
//*
|
||||
//*
|
||||
//STEP0200 EXEC DTSBXCHK
|
||||
//*
|
||||
//*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
|
||||
//STEP0100.RPT907R2 DD HOLD=YES
|
||||
//STEP0100.RPT980R1 DD HOLD=YES
|
||||
//**
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
ASCII
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
PUT 'DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS' +
|
||||
DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//*********************************************************
|
||||
**************************** BOTTOM OF DATA ****************************
|
||||
|
||||
@ -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,47 @@
|
||||
//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
|
||||
//*
|
||||
//**
|
||||
//SORTPAYT EXEC PGM=SORT,COND=(0,LT)
|
||||
//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
|
||||
//**
|
||||
//SORTOUT DD DSN=&&SORTPAY,
|
||||
// DISP=(NEW,PASS,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSOUT DD SYSOUT=(*)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSPAY01),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),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//DECRYPT EXEC PGM=IDCAMS,COND=(0,LT)
|
||||
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
|
||||
//*IFILE DD DSN=&&SORTPAY,
|
||||
//* DISP=(OLD,PASS,DELETE),
|
||||
//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),
|
||||
// DISP=(NEW,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,33 +136,52 @@
|
||||
//* 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
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC DTSBXPAY
|
||||
//*
|
||||
//STEP0200 EXEC DTSRSESP
|
||||
//*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
|
||||
//STEP0100.RPT907R2 DD HOLD=YES
|
||||
//STEP0100.RPT980R1 DD HOLD=YES
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
ASCII
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
PUT 'DOESTAX.CONV.TDEC.ESSP.DAILY.FTPWEB.PAYMT' +
|
||||
DOESTAX.CONV.TDEC.ESSP.DAILY.FTPWEB.PAYMT
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//**
|
||||
|
||||
@ -46,55 +46,48 @@
|
||||
//**********************************************************************
|
||||
//*
|
||||
//******************************************************************
|
||||
//STEP0010 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//STEP0010 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
|
||||
//XGSICHRG DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*-----------------------------------------------------
|
||||
//STEP0020 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//STEP0020 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
|
||||
//XGSICHRG DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(10,15),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=200,BLKSIZE=20000)
|
||||
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=20000)
|
||||
//*-----------------------------------------------------
|
||||
//STEP0100 EXEC PGM=FTP,
|
||||
// COND=(0,LT)
|
||||
//SYSPRINT DD DSN=DOESTAX.CONV.UIBCLOG.TXT,DISP=SHR
|
||||
//STEP0100 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/Inbound_uibs
|
||||
BINary
|
||||
GET DOES_Bencharges.txt +
|
||||
DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD (REPLACE
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(UIBGTCHG),DISP=SHR
|
||||
//*NPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGUCHG),DISP=SHR
|
||||
//*******************************************************************
|
||||
//*
|
||||
//**********************************************************************
|
||||
//* COPY DAILY UIBS CHARGE FILES INTO GDG FOR PROCESSING
|
||||
//**********************************************************************
|
||||
//*
|
||||
//STEP0101 EXEC PGM=IDCAMS
|
||||
//STEP0101 EXEC PGM=IDCAMS,COND=(0,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,DISP=SHR
|
||||
//*
|
||||
//OUTDD01 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY(+1),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(50,15),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=200,BLKSIZE=20000)
|
||||
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=20000)
|
||||
//SYSIN DD *
|
||||
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
|
||||
/*
|
||||
//
|
||||
//*** send email daily charges transmitted to dutas
|
||||
//**
|
||||
//********************************************************************
|
||||
//STEP0200 EXEC PGM=DTSBX706, READ ACH FTP LOG FILE FOR ERROR
|
||||
// COND=(0,LT),
|
||||
// REGION=0M
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SYSABOUT DD SYSOUT=*
|
||||
//SYSABEND DD SYSOUT=*
|
||||
//*
|
||||
//DTSPACHF DD DSN=DOESTAX.CONV.UIBCLOG.TXT,DISP=SHR
|
||||
//*
|
||||
//**
|
||||
//FAIL01 IF STEP0100.ABEND THEN
|
||||
//X706FAIL EXEC PGM=IEBGENER,COND=(0,EQ,STEP0100),
|
||||
// REGION=4M
|
||||
|
||||
@ -23,24 +23,24 @@
|
||||
//**** 00003325
|
||||
//STEP0100 EXEC DTSUXGSI /*EXTRACT AND UPDATE CHARGE FILE 00003963
|
||||
//**** 00005461
|
||||
//STEP0300 EXEC DTSCGRD1, /* PRINT REPORTS 00005560
|
||||
// LDEST=U@PRT65, 00005660
|
||||
// LHOLD='YES' 00005760
|
||||
//*STEP0300 EXEC DTSCGRD1, /* PRINT REPORTS 00005560
|
||||
//* LDEST=U@PRT65, 00005660
|
||||
//* LHOLD='YES' 00005760
|
||||
//** 00005860
|
||||
//*STEP0200.RPT907R1 DD HOLD=NO /* UNUS.COND. RPT 00006049
|
||||
//STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. RPT 00006149
|
||||
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00007049
|
||||
//*STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. RPT 00006149
|
||||
//*DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00007049
|
||||
//* 00001749
|
||||
//* DAILY BENEFIT CHARGE BACKUP 00002003
|
||||
//*********************************************************************
|
||||
//* REGULAR PROD VSAM CHARGE FILES DAITY BACKUP
|
||||
//********************************************************************
|
||||
//*
|
||||
//STEP0100 EXEC DTSUTCHG,
|
||||
// BKUPGEN='(+1)' 00002425
|
||||
//*STEP0100 EXEC DTSUTCHG,
|
||||
//* BKUPGEN='(+1)',freq='DAILY'
|
||||
//*
|
||||
// IF (STEP0100.STEP0100.RC NE 0) THEN
|
||||
//EMAIL EXEC PGM=IEBGENER,
|
||||
//EMAIL001 EXEC PGM=IEBGENER,
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
@ -55,7 +55,7 @@
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
// ELSE
|
||||
//EMAIL EXEC PGM=IEBGENER,
|
||||
//EMAIL002 EXEC PGM=IEBGENER,
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
@ -71,3 +71,22 @@
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
// ENDIF
|
||||
//*
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.CHARGE' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.CHARGE
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
@ -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,33 +91,34 @@
|
||||
//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
|
||||
//********************************************************************
|
||||
//TDECDEL EXEC PGM=FTP,COND=(0,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*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(DTSDRWAG),DISP=SHR
|
||||
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDEWAG),DISP=SHR
|
||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDWAGE),DISP=SHR
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDWAGE),DISP=SHR
|
||||
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDWAG),DISP=SHR
|
||||
//*
|
||||
//ESSPMAIL EXEC PGM=IEBGENER,COND=(8,NE,TDECDEL),
|
||||
//EMAILWGE1 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,17 +128,17 @@
|
||||
// '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)
|
||||
//*
|
||||
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),
|
||||
//EMAILWGE2 EXEC PGM=IEBGENER,COND=(0,LT),
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//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,
|
||||
@ -170,10 +178,29 @@
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||
//*
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd /Dutasrc/essp/outbound_essp
|
||||
ascii
|
||||
put 'DOESTAX.CONV.ESSP.MSCL' DOESTAX.CONV.ESSP.MSCL
|
||||
put 'DOESTAX.CONV.ESSP.C102' DOESTAX.CONV.ESSP.C102
|
||||
put 'DOESTAX.CONV.ESSP.C104' DOESTAX.CONV.ESSP.C104
|
||||
put 'DOESTAX.CONV.ESSP.C106' DOESTAX.CONV.ESSP.C106
|
||||
put 'DOESTAX.CONV.ESSP.C108' DOESTAX.CONV.ESSP.C108
|
||||
put 'DOESTAX.CONV.ESSP.C110' DOESTAX.CONV.ESSP.C110
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
//*****************************************************************
|
||||
//* 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 +216,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 +237,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 +259,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)
|
||||
//*
|
||||
|
||||
@ -58,28 +58,49 @@
|
||||
//*-----------------------------------------------------
|
||||
//* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS
|
||||
//*-----------------------------------------------------
|
||||
//STEPWF EXEC PGM=FTP,
|
||||
// PARM='-r TLS safetrans.wellsfargo.com'
|
||||
//*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN)
|
||||
//*-----------------------------------------------------
|
||||
//STEPWF EXEC PGM=SFTP,
|
||||
// PARM='-sftp=TRUE safetransvalidate.wellsfargo.com'
|
||||
//ENVVAR DD *
|
||||
CLIENT=sftp
|
||||
* SFTP_STRICTHOSTKEY=accept-new
|
||||
SFTP_AUTH=5
|
||||
/*
|
||||
//*SFTPAUTH DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
|
||||
//NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
|
||||
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT)
|
||||
// DD *
|
||||
FWFRIENDLY TRUE
|
||||
//SYSPRINT DD DSN=DOESTAX.CONV.PACHLOG.TXT,DISP=SHR
|
||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSPWFAD),DISP=SHR
|
||||
//SFTPPPK DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(RCWFKEY)
|
||||
//SYSPRINT DD SYSOUT=*,HOLD=YES
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSPWFAD),DISP=SHR
|
||||
//SYSIN DD *
|
||||
ascii
|
||||
cd /inbound/GOVTO945_ACH_70/
|
||||
PUT E:\DUTASJOBS\DefaultVolume\ECNTSUP\DOESTAX\CONV\FROMESSP\ACHDPAYT.seq +
|
||||
ESSP_DOESTAX_ACHDEBIT_DEPOSITS.TXT
|
||||
quit
|
||||
//*
|
||||
//*
|
||||
//*STEPWF EXEC PGM=FTP,
|
||||
//* PARM='-r TLS safetrans.wellsfargo.com'
|
||||
//*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=*
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSZWFAD),DISP=SHR
|
||||
//*
|
||||
//********************************************************************
|
||||
//*** send email ach transimmited to wells fargo.
|
||||
//**
|
||||
//********************************************************************
|
||||
//STEP0100 EXEC PGM=DTSBX706, READ ACH FTP LOG FILE FOR ERROR
|
||||
// COND=(0,LT),
|
||||
// REGION=0M
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SYSABOUT DD SYSOUT=*
|
||||
//SYSABEND DD SYSOUT=*
|
||||
//*STEP0100 EXEC PGM=DTSBX706, READ ACH FTP LOG FILE FOR ERROR
|
||||
//* COND=(0,LT),
|
||||
//* REGION=0M
|
||||
//*SYSOUT DD SYSOUT=*
|
||||
//*SYSABOUT DD SYSOUT=*
|
||||
//*SYSABEND DD SYSOUT=*
|
||||
//*
|
||||
//DTSPACHF DD DSN=DOESTAX.CONV.PACHLOG.TXT,DISP=SHR
|
||||
//*DTSPACHF DD DSN=DOESTAX.CONV.PACHLOG.TXT,DISP=SHR
|
||||
//*
|
||||
//COPYPACH EXEC PGM=IDCAMS,COND=(0,LT)
|
||||
//IFILE DD DSN=DOESTAX.CONV.PACHLOG.TXT,DISP=SHR
|
||||
|
||||
@ -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,30 @@
|
||||
//**
|
||||
//STEP0300 EXEC DTSACHD1 /* ARECHIVE DAILY REPORTS
|
||||
//*
|
||||
//STEP0400 EXEC DTSUTVSM,
|
||||
// BKUPGEN='(+2)'
|
||||
//*STEP0400 EXEC DTSUTVSM,
|
||||
//* BKUPGEN='(+2)'
|
||||
//*STEP0100 EXEC DTSUTVSM, 00002102
|
||||
//* BKUPGEN='(+2)',freq='DAILY'
|
||||
//**
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP1000 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'DOESTAX.PROD.DEPOSIT.X202EXP' DOESTAX.PROD.DEPOSIT.X202EXP
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.BX217' ECNTSUP.DOESTAX.PROD.FTP.BX217
|
||||
PUT 'ECNTSUP.DOESTAX.PROD.FTP.X148' ECNTSUP.DOESTAX.PROD.FTP.X148
|
||||
PUT 'ECNTSUP.DOESTAX.PROD.FTP.X153' ECNTSUP.DOESTAX.PROD.FTP.X153
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//*
|
||||
|
||||
@ -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
|
||||
//**
|
||||
//********************************************************************
|
||||
@ -37,13 +37,13 @@
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||
//**
|
||||
//STEP0100 EXEC DTSBX425
|
||||
//
|
||||
//*
|
||||
//********************************************************************
|
||||
//*** send email ach transimmited to wells fargo.
|
||||
//**
|
||||
//********************************************************************
|
||||
//**
|
||||
//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,12 +47,12 @@
|
||||
// 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
|
||||
//******************************************************************** 00001700
|
||||
//* 00001700
|
||||
//STEP0050 EXEC DTSUTVSM,
|
||||
// BKUPGEN='(+1)'
|
||||
//*
|
||||
//* REGULAR PROD VSAM FILES BACKUP BEFORE ANY UPDATES RAINCODE VERSION 00001700
|
||||
//********************************************************************
|
||||
//*********************************************************************
|
||||
//STEP0400 EXEC DTSUTVSM, 00002102
|
||||
// BKUPGEN='(+1)',freq='DAILY'
|
||||
//*****
|
||||
//********************************************************************
|
||||
//* 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
|
||||
@ -111,7 +123,56 @@
|
||||
//* 00843099
|
||||
//* 00844099
|
||||
//************************************************************** 00845099
|
||||
// 00850099
|
||||
//*
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHTRN' ECNTSUP.DOESTAX.PROD.FTP.ATHTRN
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHHDR' ECNTSUP.DOESTAX.PROD.FTP.ATHHDR
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHRPT' ECNTSUP.DOESTAX.PROD.FTP.ATHRPT
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHATX' ECNTSUP.DOESTAX.PROD.FTP.ATHATX
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHPAY' ECNTSUP.DOESTAX.PROD.FTP.ATHPAY
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHADJ' ECNTSUP.DOESTAX.PROD.FTP.ATHADJ
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.HEADER' ECNTSUP.DOESTAX.PROD.FTP.HEADER
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ACCT.INCR' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.ACCT.INCR
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.TRAN.INCR' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.TRAN.INCR
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.LIEN' ECNTSUP.DOESTAX.PROD.FTP.LIEN
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.LIEN.QTR' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.LIEN.QTR
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.DPC' ECNTSUP.DOESTAX.PROD.FTP.DPC
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.DPC.QTR' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.DPC.QTR
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.PAYDIST' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.PAYDIST
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.QTR' ECNTSUP.DOESTAX.PROD.FTP.QTR
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.RATE' ECNTSUP.DOESTAX.PROD.FTP.RATE
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.QCOLL' ECNTSUP.DOESTAX.PROD.FTP.QCOLL
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.PRF' ECNTSUP.DOESTAX.PROD.FTP.PRF
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.DET' ECNTSUP.DOESTAX.PROD.FTP.DET
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.FSC' ECNTSUP.DOESTAX.PROD.FTP.FSC
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ADR' ECNTSUP.DOESTAX.PROD.FTP.ADR
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ERR' ECNTSUP.DOESTAX.PROD.FTP.ERR
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ERRTRN' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.ERRTRN
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.AUDIT' ECNTSUP.DOESTAX.PROD.FTP.AUDIT
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.REL' ECNTSUP.DOESTAX.PROD.FTP.REL
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.EMP.NAME' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.EMP.NAME
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.OPO' ECNTSUP.DOESTAX.PROD.FTP.OPO
|
||||
PUT 'ECNTSUP.DOESTAX.PROD.FTP.BX206' ECNTSUP.DOESTAX.PROD.FTP.BX206
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//**********************************************************
|
||||
//COPY1 EXEC PGM=IDCAMS 00851099
|
||||
//SYSPRINT DD SYSOUT=* 00860099
|
||||
//INDD01 DD DSN=DOESTAX.PROD.ESSP.X420.BTC,DISP=SHR 00870099
|
||||
|
||||
@ -53,7 +53,7 @@
|
||||
//* STD BACKUP *AFTER* DATA FILE UPDATE
|
||||
//* (NOT NEEDED IF RUN IMMEDIATELY *BEFORE*
|
||||
//* A REGULAR DAILY RUN - SEE STEP0100 ABOVE)
|
||||
//STEP0500 EXEC DTSUTVSM,
|
||||
//*STEP0500 EXEC DTSUTVSM,
|
||||
//** BKUPGEN='(+2)' /* USE ONLY IF BKP DONE IN STEP0100
|
||||
// BKUPGEN='(+1)'
|
||||
//* BKUPGEN='(+1)'
|
||||
//*
|
||||
|
||||
@ -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),
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user