From UAT Z's file modified
This commit is contained in:
@ -212,7 +212,7 @@
|
|||||||
00211 ++INCLUDE DTSIL981 DESBD471
|
00211 ++INCLUDE DTSIL981 DESBD471
|
||||||
00212 DESBD471
|
00212 DESBD471
|
||||||
00213 01 WWGH-REC. DESBD471
|
00213 01 WWGH-REC. DESBD471
|
||||||
00214 ++INCLUDE DTSIWWGZ DESBD471
|
00214 ++INCLUDE DTSIWWGH DESBD471
|
||||||
00215 DESBD471
|
00215 DESBD471
|
||||||
00216 01 L983-LINK-AREA. DESBD471
|
00216 01 L983-LINK-AREA. DESBD471
|
||||||
00217 ++INCLUDE DTSIL983 DESBD471
|
00217 ++INCLUDE DTSIL983 DESBD471
|
||||||
|
|||||||
@ -209,7 +209,7 @@
|
|||||||
00208 ++INCLUDE DTSIL981 CL*69
|
00208 ++INCLUDE DTSIL981 CL*69
|
||||||
00209 CL*69
|
00209 CL*69
|
||||||
00210 01 WWGH-REC. CL*69
|
00210 01 WWGH-REC. CL*69
|
||||||
00211 ++INCLUDE DTSIWWGZ CL*69
|
00211 ++INCLUDE DTSIWWGH CL*69
|
||||||
00212 CL*69
|
00212 CL*69
|
||||||
00213 01 L983-LINK-AREA. DESBD481
|
00213 01 L983-LINK-AREA. DESBD481
|
||||||
00214 ++INCLUDE DTSIL983 DESBD481
|
00214 ++INCLUDE DTSIL983 DESBD481
|
||||||
|
|||||||
@ -87,7 +87,7 @@
|
|||||||
00087 FD WGH-FILE. DTSBU981
|
00087 FD WGH-FILE. DTSBU981
|
||||||
00088 DTSBU981
|
00088 DTSBU981
|
||||||
00089 01 FILE-REC. DTSBU981
|
00089 01 FILE-REC. DTSBU981
|
||||||
00090 ++INCLUDE DTSIWWGZ DTSBU981
|
00090 ++INCLUDE DTSIWWGH DTSBU981
|
||||||
00091 EJECT DTSBU981
|
00091 EJECT DTSBU981
|
||||||
00092 WORKING-STORAGE SECTION. DTSBU981
|
00092 WORKING-STORAGE SECTION. DTSBU981
|
||||||
000925 77 PAN-VALET PICTURE X(24) VALUE '011DTSBU981 04/05/04'. DTSBU981
|
000925 77 PAN-VALET PICTURE X(24) VALUE '011DTSBU981 04/05/04'. DTSBU981
|
||||||
@ -131,7 +131,7 @@
|
|||||||
00130 EJECT DTSBU981
|
00130 EJECT DTSBU981
|
||||||
00131 01 LINK-REC. DTSBU981
|
00131 01 LINK-REC. DTSBU981
|
||||||
00132 05 WWGH-REC. DTSBU981
|
00132 05 WWGH-REC. DTSBU981
|
||||||
00133 ++INCLUDE DTSIWWGZ DTSBU981
|
00133 ++INCLUDE DTSIWWGH DTSBU981
|
||||||
00134 EJECT DTSBU981
|
00134 EJECT DTSBU981
|
||||||
00135 PROCEDURE DIVISION USING L981-LINK-AREA DTSBU981
|
00135 PROCEDURE DIVISION USING L981-LINK-AREA DTSBU981
|
||||||
00136 LINK-REC. DTSBU981
|
00136 LINK-REC. DTSBU981
|
||||||
|
|||||||
3072
Batch/DTSBX426.cob
3072
Batch/DTSBX426.cob
File diff suppressed because it is too large
Load Diff
@ -1,6 +1,6 @@
|
|||||||
00001 IDENTIFICATION DIVISION. 09/06/25
|
00001 IDENTIFICATION DIVISION. 03/10/25
|
||||||
00002 PROGRAM-ID. DTSBX430. DTSBX430
|
00002 PROGRAM-ID. DTSBX430. DTSBX430
|
||||||
00003 AUTHOR. NGC. LV254
|
00003 AUTHOR. NGC. LV253
|
||||||
00004 DATE-WRITTEN. APRIL 2005. DTSBX430
|
00004 DATE-WRITTEN. APRIL 2005. DTSBX430
|
||||||
00005 DATE-COMPILED. DTSBX430
|
00005 DATE-COMPILED. DTSBX430
|
||||||
00006 SKIP3 DTSBX430
|
00006 SKIP3 DTSBX430
|
||||||
@ -161,7 +161,7 @@
|
|||||||
00161 CL119
|
00161 CL119
|
||||||
00162 CL*59
|
00162 CL*59
|
||||||
00163 WORKING-STORAGE SECTION. DTSBX430
|
00163 WORKING-STORAGE SECTION. DTSBX430
|
||||||
001635 77 PAN-VALET PICTURE X(24) VALUE '254DTSBX430 09/06/25'. DTSBX430
|
001635 77 PAN-VALET PICTURE X(24) VALUE '253DTSBX430 03/10/25'. DTSBX430
|
||||||
00164 77 PAN-VALET PICTURE X(24) VALUE '015DTSBX422 10/07/14'. DTSBX430
|
00164 77 PAN-VALET PICTURE X(24) VALUE '015DTSBX422 10/07/14'. DTSBX430
|
||||||
00165 77 PAN-VALET PICTURE X(24) VALUE '047DTSBX422 09/27/14'. DTSBX430
|
00165 77 PAN-VALET PICTURE X(24) VALUE '047DTSBX422 09/27/14'. DTSBX430
|
||||||
00166 SKIP3 DTSBX430
|
00166 SKIP3 DTSBX430
|
||||||
@ -764,7 +764,7 @@
|
|||||||
00763 01 LX42-LINK-AREA. DTSBX430
|
00763 01 LX42-LINK-AREA. DTSBX430
|
||||||
00764 ++INCLUDE DTSILX42 CL112
|
00764 ++INCLUDE DTSILX42 CL112
|
||||||
00765 DTSBX430
|
00765 DTSBX430
|
||||||
00766 PROCEDURE DIVISION USING LX42-LINK-AREA. CL254
|
00766 PROCEDURE DIVISION USING LX42-LINK-AREA. CL253
|
||||||
00767 DTSBX430
|
00767 DTSBX430
|
||||||
00768 DTSBX430-MAIN. CL*47
|
00768 DTSBX430-MAIN. CL*47
|
||||||
00769 * DISPLAY 'LX42-LINK-AREA' LX42-LINK-AREA CL*80
|
00769 * DISPLAY 'LX42-LINK-AREA' LX42-LINK-AREA CL*80
|
||||||
|
|||||||
@ -1,13 +1,13 @@
|
|||||||
00001 IDENTIFICATION DIVISION. 09/07/25
|
00001 IDENTIFICATION DIVISION. 09/20/22
|
||||||
00002 PROGRAM-ID. DTSBX626. DTSBX626
|
00002 PROGRAM-ID. DTSBX626. DTSBX626
|
||||||
00003 AUTHOR. NGC. LV227
|
00003 AUTHOR. NGC. LV224
|
||||||
00004 DATE-WRITTEN. SEPT 2013. CL**2
|
00004 DATE-WRITTEN. SEPT 2013. CL**2
|
||||||
00005 DATE-COMPILED. DTSBX626
|
00005 DATE-COMPILED. DTSBX626
|
||||||
00006 SKIP3 DTSBX626
|
00006 SKIP3 DTSBX626
|
||||||
00007 *** CL160
|
00007 *** CL160
|
||||||
00008 * FUNCTION: READ A DAILY BANK PAYMENT FILE AND THE DUTAS CL205
|
00008 * FUNCTION: READ A DAILY BANK PAYMENT FILE AND THE DUTAS CL205
|
||||||
00009 * PAYMENT FILE RECEIVED FROM ESSP. IF THE TOTAL CL205
|
00009 * PAYMENT FILE RECEIVED FROM ESSP. IF THE TOTAL CL205
|
||||||
00010 *RCTEST AMOUNTS DONT MATCH ABEND JOB AND DO NOT SEND CL226
|
00010 * AMOUNTS DONT MATCH ABEND JOB AND DO NOT SEND CL205
|
||||||
00011 * PAYMENT FILE TO WELLS FARGO. CL205
|
00011 * PAYMENT FILE TO WELLS FARGO. CL205
|
||||||
00012 * 06/01/18 ZL1 CL205
|
00012 * 06/01/18 ZL1 CL205
|
||||||
00013 *** CL205
|
00013 *** CL205
|
||||||
@ -83,7 +83,7 @@
|
|||||||
00083 01 ESSP-ACH-TOT-REC PIC X(80). CL193
|
00083 01 ESSP-ACH-TOT-REC PIC X(80). CL193
|
||||||
00084 DTSBX626
|
00084 DTSBX626
|
||||||
00085 WORKING-STORAGE SECTION. DTSBX626
|
00085 WORKING-STORAGE SECTION. DTSBX626
|
||||||
000855 77 PAN-VALET PICTURE X(24) VALUE '227DTSBX626 09/07/25'. DTSBX626
|
000855 77 PAN-VALET PICTURE X(24) VALUE '224DTSBX626 09/20/22'. DTSBX626
|
||||||
00086 77 PAN-VALET PICTURE X(24) VALUE '216DTSBX425 01/22/04'. CL**2
|
00086 77 PAN-VALET PICTURE X(24) VALUE '216DTSBX425 01/22/04'. CL**2
|
||||||
00087 DTSBX626
|
00087 DTSBX626
|
||||||
00088 01 WRK-AREA. CL216
|
00088 01 WRK-AREA. CL216
|
||||||
@ -198,9 +198,9 @@
|
|||||||
00197 88 TRACE-NO-END-NO-88 VALUE 'N'. CL107
|
00197 88 TRACE-NO-END-NO-88 VALUE 'N'. CL107
|
||||||
00198 CL106
|
00198 CL106
|
||||||
00199 DTSBX626
|
00199 DTSBX626
|
||||||
00200 * 05 WRK-MPRF-IND PIC X(01). CL225
|
00200 05 WRK-MPRF-IND PIC X(01). DTSBX626
|
||||||
00201 * 88 WRK-MPRF-OK VALUE 'Y'. CL225
|
00201 88 WRK-MPRF-OK VALUE 'Y'. DTSBX626
|
||||||
00202 * 88 WRK-MPRF-NO-REC VALUE 'N'. CL225
|
00202 88 WRK-MPRF-NO-REC VALUE 'N'. DTSBX626
|
||||||
00203 DTSBX626
|
00203 DTSBX626
|
||||||
00204 05 WRK-MPAY-IND PIC X(01). DTSBX626
|
00204 05 WRK-MPAY-IND PIC X(01). DTSBX626
|
||||||
00205 88 MPAY-FOUND-YES-88 VALUE 'Y'. DTSBX626
|
00205 88 MPAY-FOUND-YES-88 VALUE 'Y'. DTSBX626
|
||||||
@ -1524,211 +1524,210 @@
|
|||||||
01523 MOVE ' TOTAL WELLS ACH-TPA CNT: ' TO X626-TXT CL208
|
01523 MOVE ' TOTAL WELLS ACH-TPA CNT: ' TO X626-TXT CL208
|
||||||
01524 MOVE WRK-X145-XYZ-CNT TO X626-CNT CL205
|
01524 MOVE WRK-X145-XYZ-CNT TO X626-CNT CL205
|
||||||
01525 WRITE X626-REC. CL205
|
01525 WRITE X626-REC. CL205
|
||||||
01526 CL227
|
01526 DISPLAY ' ' CL199
|
||||||
01527 DISPLAY ' ' CL199
|
01527 DISPLAY 'DUTAS ACH DEPOSITS RECD = ' WS-TOTAL-X145-AMT CL219
|
||||||
01528 DISPLAY 'DUTAS ACH DEPOSITS RECD = ' WS-TOTAL-X145-AMT CL219
|
01528 DISPLAY 'WELLS ACH DEPOSITS RECD = ' X145-ACH-REC-DEPOSIT CL219
|
||||||
01529 DISPLAY 'WELLS ACH DEPOSITS RECD = ' X145-ACH-REC-DEPOSIT CL219
|
01529 IF WS-TOTAL-X145-AMT NOT = X145-ACH-REC-DEPOSIT CL199
|
||||||
01530 IF WS-TOTAL-X145-AMT NOT = X145-ACH-REC-DEPOSIT CL199
|
01530 * X145-ACH-REC-CNT NOT = WRK-X145-X626-CNT CL205
|
||||||
01531 * X145-ACH-REC-CNT NOT = WRK-X145-X626-CNT CL205
|
01531 DISPLAY '++++++++++++++++++++++++++++++++++++++++++++++++' CL218
|
||||||
01532 DISPLAY '++++++++++++++++++++++++++++++++++++++++++++++++' CL218
|
01532 DISPLAY '+' CL218
|
||||||
01533 DISPLAY '+' CL218
|
01533 DISPLAY 'DUTAS ACH DEPOSITS RECD = ' WS-TOTAL-X145-AMT CL218
|
||||||
01534 DISPLAY 'DUTAS ACH DEPOSITS RECD = ' WS-TOTAL-X145-AMT CL218
|
01534 DISPLAY 'WELLS ACH DEPOSITS RECD = ' X145-ACH-REC-DEPOSIT CL218
|
||||||
01535 DISPLAY 'WELLS ACH DEPOSITS RECD = ' X145-ACH-REC-DEPOSIT CL218
|
01535 DISPLAY '+' CL218
|
||||||
01536 DISPLAY '+' CL218
|
01536 DISPLAY '!!! ERROR RECEVIED DEPOSITS NOT MATCHING***' CL218
|
||||||
01537 DISPLAY '!!! ERROR RECEVIED DEPOSITS NOT MATCHING***' CL218
|
01537 DISPLAY '+' CL218
|
||||||
01538 DISPLAY '+' CL218
|
01538 DISPLAY '++++++++++++++++++++++++++++++++++++++++++++++++' CL218
|
||||||
01539 DISPLAY '++++++++++++++++++++++++++++++++++++++++++++++++' CL218
|
01539 * PERFORM S999-ABEND THRU S999-EXIT CL214
|
||||||
01540 * PERFORM S999-ABEND THRU S999-EXIT CL214
|
01540 MOVE +05 TO RETURN-CODE CL222
|
||||||
01541 MOVE +05 TO RETURN-CODE CL222
|
01541 DISPLAY 'RET CODE VALUE ' RETURN-CODE CL223
|
||||||
01542 DISPLAY 'RET CODE VALUE ' RETURN-CODE CL223
|
01542 END-IF. CL193
|
||||||
01543 END-IF. CL193
|
01543 CL193
|
||||||
01544 CL193
|
01544 DTSBX626
|
||||||
01545 DTSBX626
|
01545 T0000-CONTINUE. CL209
|
||||||
01546 T0000-CONTINUE. CL209
|
01546 CL*29
|
||||||
01547 CL*29
|
01547 CLOSE ESSP-EMAIL-RPT. CL205
|
||||||
01548 CLOSE ESSP-EMAIL-RPT. CL205
|
01548 CLOSE ESSP-IN-X145 ESSP-OUT-X145 ESSP-ACH-TOTALS. CL193
|
||||||
01549 CLOSE ESSP-IN-X145 ESSP-OUT-X145 ESSP-ACH-TOTALS. CL193
|
01549 PERFORM S910-CLOSE THRU S910-EXIT. CL*29
|
||||||
01550 PERFORM S910-CLOSE THRU S910-EXIT. CL*29
|
01550 PERFORM S927-CLOSE THRU S927-EXIT. CL*29
|
||||||
01551 PERFORM S927-CLOSE THRU S927-EXIT. CL*29
|
01551 CL*29
|
||||||
01552 CL*29
|
01552 CL*29
|
||||||
01553 CL*29
|
01553 DTSBX626
|
||||||
01554 DTSBX626
|
01554 T0000-EXIT. DTSBX626
|
||||||
01555 T0000-EXIT. DTSBX626
|
01555 EXIT. DTSBX626
|
||||||
01556 EXIT. DTSBX626
|
01556 DTSBX626
|
||||||
01557 DTSBX626
|
01557 P1070-READ-MPRF. DTSBX626
|
||||||
01558 P1070-READ-MPRF. DTSBX626
|
01558 DTSBX626
|
||||||
01559 DTSBX626
|
01559 DTSBX626
|
||||||
01560 DTSBX626
|
01560 MOVE LOW-VALUE TO MPRF-KEY-AREA. DTSBX626
|
||||||
01561 MOVE LOW-VALUE TO MPRF-KEY-AREA. DTSBX626
|
01561 SET MPRF-PRF-88 TO TRUE. DTSBX626
|
||||||
01562 SET MPRF-PRF-88 TO TRUE. DTSBX626
|
01562 DISPLAY ' FAC6EMP ' FAC6-DUTAS-EMP-NO. CL130
|
||||||
01563 DISPLAY ' FAC6EMP ' FAC6-DUTAS-EMP-NO. CL130
|
01563 DISPLAY ' MPAYEMP ' MPAY-EMP-NO. CL131
|
||||||
01564 DISPLAY ' MPAYEMP ' MPAY-EMP-NO. CL131
|
01564 MOVE MPAY-EMP-NO TO MPRF-EMP-NO. CL131
|
||||||
01565 MOVE MPAY-EMP-NO TO MPRF-EMP-NO. CL131
|
01565 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. DTSBX626
|
||||||
01566 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. DTSBX626
|
01566 DTSBX626
|
||||||
01567 DTSBX626
|
01567 PERFORM S910-READ THRU S910-EXIT. DTSBX626
|
||||||
01568 PERFORM S910-READ THRU S910-EXIT. DTSBX626
|
01568 DTSBX626
|
||||||
01569 DTSBX626
|
01569 IF L910-OK-88 DTSBX626
|
||||||
01570 IF L910-OK-88 DTSBX626
|
01570 SET L910-OK-88 TO TRUE DTSBX626
|
||||||
01571 SET L910-OK-88 TO TRUE DTSBX626
|
01571 MOVE MSKL-REC TO MPRF-REC DTSBX626
|
||||||
01572 MOVE MSKL-REC TO MPRF-REC DTSBX626
|
01572 ELSE DTSBX626
|
||||||
01573 ELSE DTSBX626
|
01573 DISPLAY '********NO MPRF-REC FOUND ' L910-RESULT-IND CL131
|
||||||
01574 DISPLAY '********NO MPRF-REC FOUND ' L910-RESULT-IND CL131
|
01574 SET L910-NO-REC-88 TO TRUE DTSBX626
|
||||||
01575 SET L910-NO-REC-88 TO TRUE DTSBX626
|
01575 DISPLAY '6090 L910 NO RECORD FOUND ' DTSBX626
|
||||||
01576 DISPLAY '6090 L910 NO RECORD FOUND ' DTSBX626
|
01576 PERFORM P1055-WRITE-F907 THRU P1055-EXIT DTSBX626
|
||||||
01577 PERFORM P1055-WRITE-F907 THRU P1055-EXIT DTSBX626
|
01577 GO TO P1070-EXIT. DTSBX626
|
||||||
01578 GO TO P1070-EXIT. DTSBX626
|
01578 DTSBX626
|
||||||
01579 DTSBX626
|
01579 MOVE MPRF-PRIMARY-NAME TO T025-NAME-CHECK CL127
|
||||||
01580 MOVE MPRF-PRIMARY-NAME TO T025-NAME-CHECK CL127
|
01580 WS-FAC6-DUTAS-EMP-NAME. CL129
|
||||||
01581 WS-FAC6-DUTAS-EMP-NAME. CL129
|
01581 DISPLAY ' EMP ' MPRF-PRIMARY-NAME ' ' MPRF-EMP-NO CL129
|
||||||
01582 DISPLAY ' EMP ' MPRF-PRIMARY-NAME ' ' MPRF-EMP-NO CL129
|
01582 DISPLAY ' T25 ' T025-NAME-CHECK ' ' MPRF-EMP-NO CL129
|
||||||
01583 DISPLAY ' T25 ' T025-NAME-CHECK ' ' MPRF-EMP-NO CL129
|
01583 MOVE WS-FAC6-DUTAS-EMP-NAMEA TO FAC6-DUTAS-EMP-NAME. CL129
|
||||||
01584 MOVE WS-FAC6-DUTAS-EMP-NAMEA TO FAC6-DUTAS-EMP-NAME. CL129
|
01584 P1070-EXIT. DTSBX626
|
||||||
01585 P1070-EXIT. DTSBX626
|
01585 EXIT. DTSBX626
|
||||||
01586 EXIT. DTSBX626
|
01586 DTSBX626
|
||||||
01587 DTSBX626
|
01587 S3000-INIT-T003. CL*70
|
||||||
01588 S3000-INIT-T003. CL*70
|
01588 MOVE LOW-VALUES TO MNTE-KEY-AREA. CL*70
|
||||||
01589 MOVE LOW-VALUES TO MNTE-KEY-AREA. CL*70
|
01589 MOVE MPAY-EMP-NO TO MNTE-EMP-NO. CL*70
|
||||||
01590 MOVE MPAY-EMP-NO TO MNTE-EMP-NO. CL*70
|
01590 SET MNTE-NTE-88 TO TRUE. CL*70
|
||||||
01591 SET MNTE-NTE-88 TO TRUE. CL*70
|
01591 MOVE +0 TO MNTE-PURGE-DATE. CL*70
|
||||||
01592 MOVE +0 TO MNTE-PURGE-DATE. CL*70
|
01592 SET MNTE-NOT-CONVERTED-88 TO TRUE. CL*70
|
||||||
01593 SET MNTE-NOT-CONVERTED-88 TO TRUE. CL*70
|
01593 CL*70
|
||||||
01594 CL*70
|
01594 MOVE L005-DATE TO MNTE-ESTB-DATE CL*72
|
||||||
01595 MOVE L005-DATE TO MNTE-ESTB-DATE CL*72
|
01595 MNTE-CHNG-DATE. CL*70
|
||||||
01596 MNTE-CHNG-DATE. CL*70
|
01596 MOVE ZERO TO MNTE-KEY-ESTB-ABSTIME CL*70
|
||||||
01597 MOVE ZERO TO MNTE-KEY-ESTB-ABSTIME CL*70
|
01597 MNTE-DATA-ESTB-ABSTIME CL*70
|
||||||
01598 MNTE-DATA-ESTB-ABSTIME CL*70
|
01598 MNTE-CHNG-ABSTIME. CL*70
|
||||||
01599 MNTE-CHNG-ABSTIME. CL*70
|
01599 MOVE 'WEBESSP ' TO MNTE-ESTB-OP-ID CL*70
|
||||||
01600 MOVE 'WEBESSP ' TO MNTE-ESTB-OP-ID CL*70
|
01600 MNTE-CHNG-OP-ID. CL*70
|
||||||
01601 MNTE-CHNG-OP-ID. CL*70
|
01601 MOVE +0 TO MNTE-TEXT-CNT. CL*70
|
||||||
01602 MOVE +0 TO MNTE-TEXT-CNT. CL*70
|
01602 MOVE SPACES TO MNTE-TEXT-AREA. CL*70
|
||||||
01603 MOVE SPACES TO MNTE-TEXT-AREA. CL*70
|
01603 CL*70
|
||||||
01604 CL*70
|
01604 MOVE LENGTH OF T003-REC TO T003-LENGTH CL*70
|
||||||
01605 MOVE LENGTH OF T003-REC TO T003-LENGTH CL*70
|
01605 MOVE '003' TO T003-REC-TYPE. CL*70
|
||||||
01606 MOVE '003' TO T003-REC-TYPE. CL*70
|
01606 MOVE LENGTH OF T003-REC TO T003-LENGTH CL*70
|
||||||
01607 MOVE LENGTH OF T003-REC TO T003-LENGTH CL*70
|
01607 MOVE '003' TO T003-REC-TYPE. CL*70
|
||||||
01608 MOVE '003' TO T003-REC-TYPE. CL*70
|
01608 MOVE MPAY-EMP-NO TO T003-EMP-NO. CL*70
|
||||||
01609 MOVE MPAY-EMP-NO TO T003-EMP-NO. CL*70
|
01609 MOVE 'WEB PAY ' TO T003-ORIGIN. CL*70
|
||||||
01610 MOVE 'WEB PAY ' TO T003-ORIGIN. CL*70
|
01610 MOVE L005-DATE TO T003-SYS-DATE. CL*72
|
||||||
01611 MOVE L005-DATE TO T003-SYS-DATE. CL*72
|
01611 MOVE L005-TIME TO T003-SYS-TIME. CL*72
|
||||||
01612 MOVE L005-TIME TO T003-SYS-TIME. CL*72
|
01612 SET T003-ADD-MNTE-88 TO TRUE. CL*70
|
||||||
01613 SET T003-ADD-MNTE-88 TO TRUE. CL*70
|
01613 CL*70
|
||||||
01614 CL*70
|
01614 S3000-EXIT. CL*70
|
||||||
01615 S3000-EXIT. CL*70
|
01615 EXIT. CL*70
|
||||||
01616 EXIT. CL*70
|
01616 CL*70
|
||||||
01617 CL*70
|
01617 DTSBX626
|
||||||
01618 DTSBX626
|
01618 S001-FROM-FED-8. CL*71
|
||||||
01619 S001-FROM-FED-8. CL*71
|
01619 SET L001-FROM-FED-8 TO TRUE. CL*71
|
||||||
01620 SET L001-FROM-FED-8 TO TRUE. CL*71
|
01620 GO TO S001-DATE. CL*71
|
||||||
01621 GO TO S001-DATE. CL*71
|
01621 CL*71
|
||||||
01622 CL*71
|
01622 S001-DATE. CL*71
|
||||||
01623 S001-DATE. CL*71
|
01623 SKIP1 CL*71
|
||||||
01624 SKIP1 CL*71
|
01624 CALL 'DTSBU001' USING L001-LINK-AREA. CL*71
|
||||||
01625 CALL 'DTSBU001' USING L001-LINK-AREA. CL*71
|
01625 S001-EXIT. CL*71
|
||||||
01626 S001-EXIT. CL*71
|
01626 EXIT. CL*71
|
||||||
01627 EXIT. CL*71
|
01627 S005-FROM-SYS. CL*71
|
||||||
01628 S005-FROM-SYS. CL*71
|
01628 DTSBX626
|
||||||
01629 DTSBX626
|
01629 SET L005-FROM-SYS TO TRUE. DTSBX626
|
||||||
01630 SET L005-FROM-SYS TO TRUE. DTSBX626
|
01630 GO TO S005-ABSTIME. DTSBX626
|
||||||
01631 GO TO S005-ABSTIME. DTSBX626
|
01631 DTSBX626
|
||||||
01632 DTSBX626
|
01632 S005-ABSTIME. DTSBX626
|
||||||
01633 S005-ABSTIME. DTSBX626
|
01633 DTSBX626
|
||||||
01634 DTSBX626
|
01634 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX626
|
||||||
01635 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX626
|
01635 DTSBX626
|
||||||
01636 DTSBX626
|
01636 S005-EXIT. DTSBX626
|
||||||
01637 S005-EXIT. DTSBX626
|
01637 EXIT. DTSBX626
|
||||||
01638 EXIT. DTSBX626
|
01638 DTSBX626
|
||||||
01639 DTSBX626
|
01639 DTSBX626
|
||||||
01640 DTSBX626
|
01640 S910-OPEN-UPDATE-NO-AIX. DTSBX626
|
||||||
01641 S910-OPEN-UPDATE-NO-AIX. DTSBX626
|
01641 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBX626
|
||||||
01642 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBX626
|
01642 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01643 GO TO S910-MSTR-IO. DTSBX626
|
01643 DTSBX626
|
||||||
01644 DTSBX626
|
01644 EJECT DTSBX626
|
||||||
01645 EJECT DTSBX626
|
01645 S910-OPEN-READ. DTSBX626
|
||||||
01646 S910-OPEN-READ. DTSBX626
|
01646 SET L910-OPEN-READ-88 TO TRUE. DTSBX626
|
||||||
01647 SET L910-OPEN-READ-88 TO TRUE. DTSBX626
|
01647 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01648 GO TO S910-MSTR-IO. DTSBX626
|
01648 DTSBX626
|
||||||
01649 DTSBX626
|
01649 S910-READ. DTSBX626
|
||||||
01650 S910-READ. DTSBX626
|
01650 SET L910-READ-88 TO TRUE. DTSBX626
|
||||||
01651 SET L910-READ-88 TO TRUE. DTSBX626
|
01651 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01652 GO TO S910-MSTR-IO. DTSBX626
|
01652 DTSBX626
|
||||||
01653 DTSBX626
|
01653 S910-DELETE. DTSBX626
|
||||||
01654 S910-DELETE. DTSBX626
|
01654 SET L910-DELETE-88 TO TRUE. DTSBX626
|
||||||
01655 SET L910-DELETE-88 TO TRUE. DTSBX626
|
01655 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01656 GO TO S910-MSTR-IO. DTSBX626
|
01656 DTSBX626
|
||||||
01657 DTSBX626
|
01657 S910-WRITE. DTSBX626
|
||||||
01658 S910-WRITE. DTSBX626
|
01658 SET L910-WRITE-88 TO TRUE. DTSBX626
|
||||||
01659 SET L910-WRITE-88 TO TRUE. DTSBX626
|
01659 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01660 GO TO S910-MSTR-IO. DTSBX626
|
01660 DTSBX626
|
||||||
01661 DTSBX626
|
01661 S910-START-BROWSE. DTSBX626
|
||||||
01662 S910-START-BROWSE. DTSBX626
|
01662 SET L910-START-BROWSE-88 TO TRUE. DTSBX626
|
||||||
01663 SET L910-START-BROWSE-88 TO TRUE. DTSBX626
|
01663 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01664 GO TO S910-MSTR-IO. DTSBX626
|
01664 DTSBX626
|
||||||
01665 DTSBX626
|
01665 S910-READ-NEXT. DTSBX626
|
||||||
01666 S910-READ-NEXT. DTSBX626
|
01666 SET L910-READ-NEXT-88 TO TRUE. DTSBX626
|
||||||
01667 SET L910-READ-NEXT-88 TO TRUE. DTSBX626
|
01667 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01668 GO TO S910-MSTR-IO. DTSBX626
|
01668 DTSBX626
|
||||||
01669 DTSBX626
|
01669 S910-REWRITE. DTSBX626
|
||||||
01670 S910-REWRITE. DTSBX626
|
01670 SET L910-REWRITE-88 TO TRUE. DTSBX626
|
||||||
01671 SET L910-REWRITE-88 TO TRUE. DTSBX626
|
01671 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01672 GO TO S910-MSTR-IO. DTSBX626
|
01672 DTSBX626
|
||||||
01673 DTSBX626
|
01673 S910-CLOSE. DTSBX626
|
||||||
01674 S910-CLOSE. DTSBX626
|
01674 SET L910-CLOSE-88 TO TRUE. DTSBX626
|
||||||
01675 SET L910-CLOSE-88 TO TRUE. DTSBX626
|
01675 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01676 GO TO S910-MSTR-IO. DTSBX626
|
01676 DTSBX626
|
||||||
01677 DTSBX626
|
01677 S910-MSTR-IO. DTSBX626
|
||||||
01678 S910-MSTR-IO. DTSBX626
|
01678 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX626
|
||||||
01679 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX626
|
01679 MSKL-REC. DTSBX626
|
||||||
01680 MSKL-REC. DTSBX626
|
01680 S910-EXIT. DTSBX626
|
||||||
01681 S910-EXIT. DTSBX626
|
01681 EXIT. DTSBX626
|
||||||
01682 EXIT. DTSBX626
|
01682 DTSBX626
|
||||||
01683 DTSBX626
|
01683 SKIP3 DTSBX626
|
||||||
01684 SKIP3 DTSBX626
|
01684 S921-OPEN-READ. DTSBX626
|
||||||
01685 S921-OPEN-READ. DTSBX626
|
01685 SET L921-OPEN-READ-88 TO TRUE. DTSBX626
|
||||||
01686 SET L921-OPEN-READ-88 TO TRUE. DTSBX626
|
01686 GO TO S921-AIX-IO. DTSBX626
|
||||||
01687 GO TO S921-AIX-IO. DTSBX626
|
01687 DTSBX626
|
||||||
01688 DTSBX626
|
01688 S921-READ. DTSBX626
|
||||||
01689 S921-READ. DTSBX626
|
01689 SET L921-READ-88 TO TRUE. DTSBX626
|
||||||
01690 SET L921-READ-88 TO TRUE. DTSBX626
|
01690 GO TO S921-AIX-IO. DTSBX626
|
||||||
01691 GO TO S921-AIX-IO. DTSBX626
|
01691 DTSBX626
|
||||||
01692 DTSBX626
|
01692 S921-START-BROWSE. DTSBX626
|
||||||
01693 S921-START-BROWSE. DTSBX626
|
01693 SET L921-START-BROWSE-88 TO TRUE. DTSBX626
|
||||||
01694 SET L921-START-BROWSE-88 TO TRUE. DTSBX626
|
01694 GO TO S921-AIX-IO. DTSBX626
|
||||||
01695 GO TO S921-AIX-IO. DTSBX626
|
01695 DTSBX626
|
||||||
01696 DTSBX626
|
01696 S921-READ-NEXT. DTSBX626
|
||||||
01697 S921-READ-NEXT. DTSBX626
|
01697 SET L921-READ-NEXT-88 TO TRUE. DTSBX626
|
||||||
01698 SET L921-READ-NEXT-88 TO TRUE. DTSBX626
|
01698 GO TO S921-AIX-IO. DTSBX626
|
||||||
01699 GO TO S921-AIX-IO. DTSBX626
|
01699 DTSBX626
|
||||||
01700 DTSBX626
|
01700 S921-CLOSE. DTSBX626
|
||||||
01701 S921-CLOSE. DTSBX626
|
01701 SET L921-CLOSE-88 TO TRUE. DTSBX626
|
||||||
01702 SET L921-CLOSE-88 TO TRUE. DTSBX626
|
01702 GO TO S921-AIX-IO. DTSBX626
|
||||||
01703 GO TO S921-AIX-IO. DTSBX626
|
01703 DTSBX626
|
||||||
01704 DTSBX626
|
01704 S921-AIX-IO. DTSBX626
|
||||||
01705 S921-AIX-IO. DTSBX626
|
01705 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX626
|
||||||
01706 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX626
|
01706 ISKL-REC. DTSBX626
|
||||||
01707 ISKL-REC. DTSBX626
|
01707 S921-EXIT. DTSBX626
|
||||||
01708 S921-EXIT. DTSBX626
|
01708 EXIT. DTSBX626
|
||||||
01709 EXIT. DTSBX626
|
01709 DTSBX626
|
||||||
01710 DTSBX626
|
01710 S927-OPEN-UPDATE. DTSBX626
|
||||||
01711 S927-OPEN-UPDATE. DTSBX626
|
01711 SET L927-OPEN-UPDATE-88 TO TRUE. DTSBX626
|
||||||
01712 SET L927-OPEN-UPDATE-88 TO TRUE. DTSBX626
|
01712 GO TO S927-BTC-O. DTSBX626
|
||||||
01713 GO TO S927-BTC-O. DTSBX626
|
01713 DTSBX626
|
||||||
01714 DTSBX626
|
01714 S927-WRITE. DTSBX626
|
||||||
01715 S927-WRITE. DTSBX626
|
01715 SET L927-WRITE-88 TO TRUE. DTSBX626
|
||||||
01716 SET L927-WRITE-88 TO TRUE. DTSBX626
|
01716 GO TO S927-BTC-O. DTSBX626
|
||||||
01717 GO TO S927-BTC-O. DTSBX626
|
01717 DTSBX626
|
||||||
01718 DTSBX626
|
01718 S927-CLOSE. DTSBX626
|
||||||
01719 S927-CLOSE. DTSBX626
|
01719 SET L927-CLOSE-88 TO TRUE. DTSBX626
|
||||||
01720 SET L927-CLOSE-88 TO TRUE. DTSBX626
|
01720 GO TO S927-BTC-O. DTSBX626
|
||||||
01721 GO TO S927-BTC-O. DTSBX626
|
01721 DTSBX626
|
||||||
01722 DTSBX626
|
01722 S927-BTC-O. DTSBX626
|
||||||
01723 S927-BTC-O. DTSBX626
|
01723 CALL 'DTSBU927' USING L927-LINK-AREA DTSBX626
|
||||||
01724 CALL 'DTSBU927' USING L927-LINK-AREA DTSBX626
|
01724 TSKL-REC. DTSBX626
|
||||||
01725 TSKL-REC. DTSBX626
|
01725 S927-EXIT. DTSBX626
|
||||||
01726 S927-EXIT. DTSBX626
|
01726 EXIT. DTSBX626
|
||||||
01727 EXIT. DTSBX626
|
01727 DTSBX626
|
||||||
01728 DTSBX626
|
01728 EJECT DTSBX626
|
||||||
01729 EJECT DTSBX626
|
01729 S999-ABEND. DTSBX626
|
||||||
01730 S999-ABEND. DTSBX626
|
01730 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX626
|
||||||
01731 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX626
|
01731 S999-EXIT. DTSBX626
|
||||||
01732 S999-EXIT. DTSBX626
|
01732 EXIT. DTSBX626
|
||||||
01733 EXIT. DTSBX626
|
|
||||||
|
|||||||
2146
Batch/DTSZX417.cob
Normal file
2146
Batch/DTSZX417.cob
Normal file
File diff suppressed because it is too large
Load Diff
@ -21,4 +21,3 @@
|
|||||||
WRITE OUT-REC.
|
WRITE OUT-REC.
|
||||||
CLOSE LBL1OUT.
|
CLOSE LBL1OUT.
|
||||||
STOP RUN.
|
STOP RUN.
|
||||||
|
|
||||||
41
Copybook/DTSHX145.TXT
Normal file
41
Copybook/DTSHX145.TXT
Normal file
@ -0,0 +1,41 @@
|
|||||||
|
00001 ***** 04/04/18
|
||||||
|
00002 * DTSHX145
|
||||||
|
00003 * DTSIX145 EMPLOYER PAYMENT EXTRACT RECORD LV008
|
||||||
|
00004 * DTSHX145
|
||||||
|
00005 * EXCHANGES EMPLOYER PAYMENT DATA BETWEEN MAINFRAME AND DTSHX145
|
||||||
|
00006 * SQL SERVER DATABASE. DTSHX145
|
||||||
|
00007 * DTSHX145
|
||||||
|
00008 * 05/04/2010 ADDED CHECK SCAN DATE, CHECK SEQUENCE NBR, DTSHX145
|
||||||
|
00009 * LEVEL-88 FOR PAYMENTS FROM IN-HOUSE CASHIERING, DTSHX145
|
||||||
|
00010 * INTEREST AND PENALTY WAIVER INDICATORS, DTSHX145
|
||||||
|
00011 * RESPONSIBLE OPID AND ACTIVITY. GD DTSHX145
|
||||||
|
00012 * DTSHX145
|
||||||
|
00013 * 11/17/2010 CHANGED LENGTH OF SOURCE TO ONE BYTE. ADDED DTSHX145
|
||||||
|
00014 * X145-TO-WEB-88 FOR DATA SENT TO THE WEB DTSHX145
|
||||||
|
00015 * DATABASE FROM THE MAINFRAME. GD DTSHX145
|
||||||
|
00016 ***** DTSHX145
|
||||||
|
00017 DTSHX145
|
||||||
|
00018 15 H145-REC-TYPE PIC X(03) VALUE '145'. CL**7
|
||||||
|
00019 15 FILLER PIC X(01) VALUE ','. DTSHX145
|
||||||
|
00020 15 H145-EMP-NO PIC 9(06). CL**7
|
||||||
|
00021 15 FILLER PIC X(01) VALUE ','. DTSHX145
|
||||||
|
00022 15 H145-QTR PIC X(06). CL**7
|
||||||
|
00023 15 FILLER PIC X(01) VALUE ','. DTSHX145
|
||||||
|
00024 15 FILLER PIC X(06). CL**3
|
||||||
|
00025 15 FILLER PIC X(01) VALUE ','. CL**3
|
||||||
|
00026 15 FILLER PIC X(03). CL**5
|
||||||
|
00027 15 FILLER PIC X(01) VALUE ','. CL**3
|
||||||
|
00028 15 FILLER PIC X(02). CL**3
|
||||||
|
00029 15 FILLER PIC X(01) VALUE ','. CL**3
|
||||||
|
00030 15 FILLER PIC X(02). CL**3
|
||||||
|
00031 15 FILLER PIC X(01) VALUE ','. CL**3
|
||||||
|
00032 15 FILLER PIC X(02). CL**3
|
||||||
|
00033 15 FILLER PIC X(01) VALUE ','. CL**3
|
||||||
|
00034 15 H145-REMITTANCE PIC 9(11).99. CL**8
|
||||||
|
00035 15 FILLER PIC X(01) VALUE ','. DTSHX145
|
||||||
|
00036 15 H145-RECV-DATE PIC X(10). CL**7
|
||||||
|
00037 15 FILLER PIC X(01) VALUE ','. CL**3
|
||||||
|
00038 15 FILLER PIC X(10). CL**3
|
||||||
|
00039 15 FILLER PIC X(01) VALUE ','. CL**3
|
||||||
|
00040 15 H145-TRACE-NO PIC X(08). CL**7
|
||||||
|
00041 15 FILLER PIC X(429). CL**5
|
||||||
@ -1,6 +1,6 @@
|
|||||||
00001 ***** 04/09/13
|
00001 ***** 07/17/03
|
||||||
00002 * DTSIL415
|
00002 * DTSIL415
|
||||||
00003 * DTSIL415 KEY DATES FOR ANNUAL FILING LV002
|
00003 * DTSIL415 KEY DATES FOR ANNUAL FILING LV005
|
||||||
00004 * MODULE LINKAGE. DTSIL415
|
00004 * MODULE LINKAGE. DTSIL415
|
||||||
00005 * DTSIL415
|
00005 * DTSIL415
|
||||||
00006 * THE SETTING OF L415-MODE DETERMINES WHETHER THE PROGRAM WILL DTSIL415
|
00006 * THE SETTING OF L415-MODE DETERMINES WHETHER THE PROGRAM WILL DTSIL415
|
||||||
@ -48,7 +48,7 @@
|
|||||||
00048 PIC S9(05) COMP-3. DTSIL415
|
00048 PIC S9(05) COMP-3. DTSIL415
|
||||||
00049 15 L415-UC30H-FIRST-DEL-END-YRQ DTSIL415
|
00049 15 L415-UC30H-FIRST-DEL-END-YRQ DTSIL415
|
||||||
00050 PIC S9(05) COMP-3. DTSIL415
|
00050 PIC S9(05) COMP-3. DTSIL415
|
||||||
00051 15 L415-UC30H-ESTIMATED-DATE CL**2
|
00051 15 L415-UC30H-FINAL-DEL-DATE DTSIL415
|
||||||
00052 PIC S9(09) COMP-3. DTSIL415
|
00052 PIC S9(09) COMP-3. DTSIL415
|
||||||
00053 15 L415-UC30H-FINAL-DEL-STRT-YRQ DTSIL415
|
00053 15 L415-UC30H-FINAL-DEL-STRT-YRQ DTSIL415
|
||||||
00054 PIC S9(05) COMP-3. DTSIL415
|
00054 PIC S9(05) COMP-3. DTSIL415
|
||||||
|
|||||||
@ -1,6 +1,6 @@
|
|||||||
00001 ***** 12/09/04
|
00001 ***** 11/08/12
|
||||||
00002 * DTSIMQTR
|
00002 * DTSIMQTR
|
||||||
00003 * DTSIMQTR MASTER FILE 'QUARTER FINANCIAL SUMMARY' LV018
|
00003 * DTSIMQTR MASTER FILE 'QUARTER FINANCIAL SUMMARY' LV006
|
||||||
00004 * RECORD DEFINITION. DTSIMQTR
|
00004 * RECORD DEFINITION. DTSIMQTR
|
||||||
00005 * DTSIMQTR
|
00005 * DTSIMQTR
|
||||||
00006 * DTSIMQTR
|
00006 * DTSIMQTR
|
||||||
@ -16,205 +16,218 @@
|
|||||||
00016 * SET TO NULL IF THERE IS NO REPORT ON FIDTSIMQTR
|
00016 * SET TO NULL IF THERE IS NO REPORT ON FIDTSIMQTR
|
||||||
00017 * REFERENCE: HOUSEHOLD PROGRAMMER: GD DTSIMQTR
|
00017 * REFERENCE: HOUSEHOLD PROGRAMMER: GD DTSIMQTR
|
||||||
00018 * DTSIMQTR
|
00018 * DTSIMQTR
|
||||||
00019 * 04/44/2004 ADDED MQTR-CMP-ESTB-ABSTIME WHICH DTSIMQTR
|
00019 * 04/04/2004 ADDED MQTR-CMP-ESTB-ABSTIME WHICH CL**6
|
||||||
00020 * ACTS AS A FOREIGN KEY LINKING THE DTSIMQTR
|
00020 * ACTS AS A FOREIGN KEY LINKING THE DTSIMQTR
|
||||||
00021 * QUARTER TO A COMPROMISE SETTLEMENT (MCMDTSIMQTR
|
00021 * QUARTER TO A COMPROMISE SETTLEMENT (MCMDTSIMQTR
|
||||||
00022 * IN WHICH THE QUARTER IS INCLUDED. DTSIMQTR
|
00022 * IN WHICH THE QUARTER IS INCLUDED. DTSIMQTR
|
||||||
00023 * REFERENCE: COMPROMISE PROGRAMMER: GD DTSIMQTR
|
00023 * REFERENCE: COMPROMISE PROGRAMMER: GD DTSIMQTR
|
||||||
00024 * DTSIMQTR
|
00024 * DTSIMQTR
|
||||||
00025 * DTSIMQTR
|
00025 * 11/08/2012 ADDED THE VALUE MQTR-CURR-CLMT-WAGE-88 CL**6
|
||||||
00026 ***** DTSIMQTR
|
00026 * TO THE MQTR-CURR-RPT-TYPE FIELD. THIS CL**6
|
||||||
00027 DTSIMQTR
|
00027 * VALUE IS SET ONLY WHEN A CLAIMANT WAGE CL**6
|
||||||
00028 10 MQTR-KEY-AREA. DTSIMQTR
|
00028 * REPORT IS THE FIRST REPORT FILED FOR CL**6
|
||||||
00029 15 MQTR-EMP-NO PIC S9(07) COMP-3. DTSIMQTR
|
00029 * THE QUARTER. THE CURRENT REPORT TYPE CL**6
|
||||||
00030 15 MQTR-REC-TYPE PIC S9(04) COMP. DTSIMQTR
|
00030 * DOES NOT CHANGE WHEN CLAIMANT WAGE CL**6
|
||||||
00031 88 MQTR-QTR-88 VALUE +41. DTSIMQTR
|
00031 * REPORTS ARE POSTED AFTER ONE OR MORE CL**6
|
||||||
00032 15 MQTR-YRQ PIC S9(05) COMP-3. DTSIMQTR
|
00032 * EMPLOYER REPORTS ARE ON FILE. CL**6
|
||||||
00033 88 MQTR-PICKUP-YRQ-88 VALUE +19924. DTSIMQTR
|
00033 * THE REPORT IS NOT CONSIDERED 'RECEIVED' CL**6
|
||||||
00034 15 MQTR-KEY-FILLER PIC X(07). DTSIMQTR
|
00034 * IF A ONLY CLAIMANT WAGE REPORT IS ON FI CL**6
|
||||||
00035 DTSIMQTR
|
00035 * REFERENCE: PROGRAMMER: GD CL**6
|
||||||
00036 DTSIMQTR
|
00036 * CL**6
|
||||||
00037 10 MQTR-PURGE-DATE PIC S9(09) COMP-3. DTSIMQTR
|
00037 * DTSIMQTR
|
||||||
00038 DTSIMQTR
|
00038 ***** DTSIMQTR
|
||||||
00039 DTSIMQTR
|
00039 DTSIMQTR
|
||||||
00040 10 MQTR-DATA-AREA. DTSIMQTR
|
00040 10 MQTR-KEY-AREA. DTSIMQTR
|
||||||
00041 15 MQTR-CURR-RPT-TYPE PIC X(01). DTSIMQTR
|
00041 15 MQTR-EMP-NO PIC S9(07) COMP-3. DTSIMQTR
|
||||||
00042 88 MQTR-CURR-NOT-LIABLE-88 VALUE 'N'. DTSIMQTR
|
00042 15 MQTR-REC-TYPE PIC S9(04) COMP. DTSIMQTR
|
||||||
00043 88 MQTR-CURR-NOT-DUE-88 VALUE 'L'. DTSIMQTR
|
00043 88 MQTR-QTR-88 VALUE +41. DTSIMQTR
|
||||||
00044 88 MQTR-CURR-DELINQ-88 VALUE 'D'. DTSIMQTR
|
00044 15 MQTR-YRQ PIC S9(05) COMP-3. DTSIMQTR
|
||||||
00045 88 MQTR-CURR-PICKUP-88 VALUE 'P'. DTSIMQTR
|
00045 88 MQTR-PICKUP-YRQ-88 VALUE +19924. DTSIMQTR
|
||||||
00046 88 MQTR-CURR-ESTIM-88 VALUE 'E'. DTSIMQTR
|
00046 15 MQTR-KEY-FILLER PIC X(07). DTSIMQTR
|
||||||
00047 88 MQTR-CURR-ORIG-88 VALUE 'O'. DTSIMQTR
|
00047 DTSIMQTR
|
||||||
00048 88 MQTR-CURR-ORIG-ANN-NL-88 VALUE 'H'. DTSIMQTR
|
00048 DTSIMQTR
|
||||||
00049 88 MQTR-CURR-AMEND-88 VALUE 'M'. DTSIMQTR
|
00049 10 MQTR-PURGE-DATE PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00050 88 MQTR-CURR-AUDIT-88 VALUE 'A'. DTSIMQTR
|
00050 DTSIMQTR
|
||||||
00051 88 MQTR-CURR-ADMIN-88 VALUE 'C'. DTSIMQTR
|
00051 DTSIMQTR
|
||||||
00052 88 MQTR-CURR-FIELD-88 VALUE 'F'. DTSIMQTR
|
00052 10 MQTR-DATA-AREA. DTSIMQTR
|
||||||
00053 88 MQTR-CURR-RCVD-88 VALUE 'O' 'M' 'A' DTSIMQTR
|
00053 15 MQTR-CURR-RPT-TYPE PIC X(01). DTSIMQTR
|
||||||
00054 'C' 'F' 'H'. DTSIMQTR
|
00054 88 MQTR-CURR-NOT-LIABLE-88 VALUE 'N'. DTSIMQTR
|
||||||
00055 88 MQTR-CURR-MISSING-88 VALUE 'D' 'E'. DTSIMQTR
|
00055 88 MQTR-CURR-NOT-DUE-88 VALUE 'L'. DTSIMQTR
|
||||||
00056 DTSIMQTR
|
00056 88 MQTR-CURR-DELINQ-88 VALUE 'D'. DTSIMQTR
|
||||||
00057 15 MQTR-PURSUED-RPT-IND PIC X(01). DTSIMQTR
|
00057 88 MQTR-CURR-PICKUP-88 VALUE 'P'. DTSIMQTR
|
||||||
00058 88 MQTR-RPT-IS-PURSUED-88 VALUE 'Y'. DTSIMQTR
|
00058 88 MQTR-CURR-ESTIM-88 VALUE 'E'. DTSIMQTR
|
||||||
00059 88 MQTR-RPT-NOT-PURSUED-88 VALUE 'N'. DTSIMQTR
|
00059 88 MQTR-CURR-ORIG-88 VALUE 'O'. DTSIMQTR
|
||||||
00060 DTSIMQTR
|
00060 88 MQTR-CURR-ORIG-ANN-NL-88 VALUE 'H'. DTSIMQTR
|
||||||
00061 15 MQTR-MISS-RPT-CUTOFF-CD PIC X(01). DTSIMQTR
|
00061 88 MQTR-CURR-AMEND-88 VALUE 'M'. DTSIMQTR
|
||||||
00062 88 MQTR-MISS-NOT-LIABLE-88 VALUE '0'. DTSIMQTR
|
00062 88 MQTR-CURR-AUDIT-88 VALUE 'A'. DTSIMQTR
|
||||||
00063 88 MQTR-MISS-TIMELY-88 VALUE '1'. DTSIMQTR
|
00063 88 MQTR-CURR-ADMIN-88 VALUE 'C'. DTSIMQTR
|
||||||
00064 88 MQTR-MISS-UNTIMELY-88 VALUE '2'. DTSIMQTR
|
00064 88 MQTR-CURR-FIELD-88 VALUE 'F'. DTSIMQTR
|
||||||
00065 88 MQTR-MISS-NO-LTR-EXT-88 VALUE '3'. DTSIMQTR
|
00065 88 MQTR-CURR-CLMT-WAGE-88 VALUE 'B'. CL**6
|
||||||
00066 88 MQTR-MISS-NO-LTR-ADDR-88 VALUE '4'. DTSIMQTR
|
00066 88 MQTR-CURR-RCVD-88 VALUE 'O' 'M' 'A' DTSIMQTR
|
||||||
00067 88 MQTR-MISS-NO-LTR-OTHER-88 VALUE '8'. DTSIMQTR
|
00067 'C' 'F' 'H'. CL**5
|
||||||
00068 88 MQTR-MISS-LETTER-SENT-88 VALUE '9'. DTSIMQTR
|
00068 88 MQTR-CURR-MISSING-88 VALUE 'D' 'E'. CL**3
|
||||||
00069 88 MQTR-MISS-NO-LTR-88 VALUE '3' '4' '8'. DTSIMQTR
|
00069 DTSIMQTR
|
||||||
00070 88 MQTR-MISS-CONVERSION-88 VALUE 'C'. DTSIMQTR
|
00070 15 MQTR-PURSUED-RPT-IND PIC X(01). DTSIMQTR
|
||||||
00071 88 MQTR-MISS-NOT-YET-RUN-88 VALUE 'Z'. DTSIMQTR
|
00071 88 MQTR-RPT-IS-PURSUED-88 VALUE 'Y'. DTSIMQTR
|
||||||
00072 DTSIMQTR
|
00072 88 MQTR-RPT-NOT-PURSUED-88 VALUE 'N'. DTSIMQTR
|
||||||
00073 DTSIMQTR
|
00073 DTSIMQTR
|
||||||
00074 15 MQTR-UI-RATE PIC S9(01)V9(04) COMP-3. DTSIMQTR
|
00074 15 MQTR-MISS-RPT-CUTOFF-CD PIC X(01). DTSIMQTR
|
||||||
00075 88 MQTR-NO-UI-RATE-88 VALUE -9.9999. DTSIMQTR
|
00075 88 MQTR-MISS-NOT-LIABLE-88 VALUE '0'. DTSIMQTR
|
||||||
00076 DTSIMQTR
|
00076 88 MQTR-MISS-TIMELY-88 VALUE '1'. DTSIMQTR
|
||||||
00077 DTSIMQTR
|
00077 88 MQTR-MISS-UNTIMELY-88 VALUE '2'. DTSIMQTR
|
||||||
00078 15 MQTR-TAX-DUE-DATE PIC S9(09) COMP-3. DTSIMQTR
|
00078 88 MQTR-MISS-NO-LTR-EXT-88 VALUE '3'. DTSIMQTR
|
||||||
00079 DTSIMQTR
|
00079 88 MQTR-MISS-NO-LTR-ADDR-88 VALUE '4'. DTSIMQTR
|
||||||
00080 15 MQTR-TAX-DUE-DATE-IND PIC X(01). DTSIMQTR
|
00080 88 MQTR-MISS-NO-LTR-OTHER-88 VALUE '8'. DTSIMQTR
|
||||||
00081 88 MQTR-TAX-DUE-DATE-MANUAL-88 VALUE 'M'. DTSIMQTR
|
00081 88 MQTR-MISS-LETTER-SENT-88 VALUE '9'. DTSIMQTR
|
||||||
00082 88 MQTR-TAX-DUE-DATE-AUTO-88 VALUE 'A'. DTSIMQTR
|
00082 88 MQTR-MISS-NO-LTR-88 VALUE '3' '4' '8'. DTSIMQTR
|
||||||
00083 DTSIMQTR
|
00083 88 MQTR-MISS-CONVERSION-88 VALUE 'C'. DTSIMQTR
|
||||||
00084 DTSIMQTR
|
00084 88 MQTR-MISS-NOT-YET-RUN-88 VALUE 'Z'. DTSIMQTR
|
||||||
00085 15 MQTR-RPT-DUE-DATE PIC S9(09) COMP-3. DTSIMQTR
|
00085 DTSIMQTR
|
||||||
00086 DTSIMQTR
|
00086 DTSIMQTR
|
||||||
00087 15 MQTR-RPT-DUE-DATE-IND PIC X(01). DTSIMQTR
|
00087 15 MQTR-UI-RATE PIC S9(01)V9(04) COMP-3. DTSIMQTR
|
||||||
00088 88 MQTR-RPT-DUE-DATE-MANUAL-88 VALUE 'M'. DTSIMQTR
|
00088 88 MQTR-NO-UI-RATE-88 VALUE -9.9999. DTSIMQTR
|
||||||
00089 88 MQTR-RPT-DUE-DATE-AUTO-88 VALUE 'A'. DTSIMQTR
|
00089 DTSIMQTR
|
||||||
00090 DTSIMQTR
|
00090 DTSIMQTR
|
||||||
00091 DTSIMQTR
|
00091 15 MQTR-TAX-DUE-DATE PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00092 15 MQTR-WAGE-DATA. DTSIMQTR
|
00092 DTSIMQTR
|
||||||
00093 20 MQTR-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR
|
00093 15 MQTR-TAX-DUE-DATE-IND PIC X(01). DTSIMQTR
|
||||||
00094 20 MQTR-EXCESS-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR
|
00094 88 MQTR-TAX-DUE-DATE-MANUAL-88 VALUE 'M'. DTSIMQTR
|
||||||
00095 20 MQTR-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR
|
00095 88 MQTR-TAX-DUE-DATE-AUTO-88 VALUE 'A'. DTSIMQTR
|
||||||
00096 20 MQTR-WAGE-CHNG-DATE PIC S9(09) COMP-3. DTSIMQTR
|
00096 DTSIMQTR
|
||||||
00097 DTSIMQTR
|
00097 DTSIMQTR
|
||||||
00098 DTSIMQTR
|
00098 15 MQTR-RPT-DUE-DATE PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00099 15 MQTR-INT-AREA. DTSIMQTR
|
00099 DTSIMQTR
|
||||||
00100 20 MQTR-INT-CHARGE-IND PIC X(01). DTSIMQTR
|
00100 15 MQTR-RPT-DUE-DATE-IND PIC X(01). DTSIMQTR
|
||||||
00101 88 MQTR-INT-CHARGE-MANUAL-88 VALUE 'M'. DTSIMQTR
|
00101 88 MQTR-RPT-DUE-DATE-MANUAL-88 VALUE 'M'. DTSIMQTR
|
||||||
00102 88 MQTR-INT-CHARGE-AUTO-88 VALUE 'A'. DTSIMQTR
|
00102 88 MQTR-RPT-DUE-DATE-AUTO-88 VALUE 'A'. DTSIMQTR
|
||||||
00103 DTSIMQTR
|
00103 DTSIMQTR
|
||||||
00104 20 MQTR-INT-SPAN-AREA. DTSIMQTR
|
00104 DTSIMQTR
|
||||||
00105 25 MQTR-INT-CNT PIC S9(04) COMP. DTSIMQTR
|
00105 15 MQTR-WAGE-DATA. DTSIMQTR
|
||||||
00106 25 MQTR-INT-SPAN OCCURS 2 TIMES DTSIMQTR
|
00106 20 MQTR-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR
|
||||||
00107 INDEXED BY MQTR-INT-IDX. DTSIMQTR
|
00107 20 MQTR-EXCESS-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR
|
||||||
00108 30 MQTR-INT-START-DATE DTSIMQTR
|
00108 20 MQTR-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR
|
||||||
00109 PIC S9(09) COMP-3. DTSIMQTR
|
00109 20 MQTR-WAGE-CHNG-DATE PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00110 30 MQTR-INT-END-DATE DTSIMQTR
|
00110 DTSIMQTR
|
||||||
00111 PIC S9(09) COMP-3. DTSIMQTR
|
00111 DTSIMQTR
|
||||||
00112 30 MQTR-INT-RATE PIC S9(01)V9(04) COMP-3. DTSIMQTR
|
00112 15 MQTR-INT-AREA. DTSIMQTR
|
||||||
00113 DTSIMQTR
|
00113 20 MQTR-INT-CHARGE-IND PIC X(01). DTSIMQTR
|
||||||
00114 20 MQTR-WAIVE-INT-SPAN. DTSIMQTR
|
00114 88 MQTR-INT-CHARGE-MANUAL-88 VALUE 'M'. DTSIMQTR
|
||||||
00115 25 MQTR-WAIVE-INT-START-DATE DTSIMQTR
|
00115 88 MQTR-INT-CHARGE-AUTO-88 VALUE 'A'. DTSIMQTR
|
||||||
00116 PIC S9(09) COMP-3. DTSIMQTR
|
00116 DTSIMQTR
|
||||||
00117 25 MQTR-WAIVE-INT-END-DATE DTSIMQTR
|
00117 20 MQTR-INT-SPAN-AREA. DTSIMQTR
|
||||||
00118 PIC S9(09) COMP-3. DTSIMQTR
|
00118 25 MQTR-INT-CNT PIC S9(04) COMP. DTSIMQTR
|
||||||
00119 DTSIMQTR
|
00119 25 MQTR-INT-SPAN OCCURS 2 TIMES DTSIMQTR
|
||||||
00120 DTSIMQTR
|
00120 INDEXED BY MQTR-INT-IDX. DTSIMQTR
|
||||||
00121 15 MQTR-PEN-AREA. DTSIMQTR
|
00121 30 MQTR-INT-START-DATE DTSIMQTR
|
||||||
00122 20 MQTR-PEN-CHARGE-IND PIC X(01). DTSIMQTR
|
00122 PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00123 88 MQTR-PEN-CHARGE-MANUAL-88 VALUE 'M'. DTSIMQTR
|
00123 30 MQTR-INT-END-DATE DTSIMQTR
|
||||||
00124 88 MQTR-PEN-CHARGE-AUTO-88 VALUE 'A'. DTSIMQTR
|
00124 PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00125 DTSIMQTR
|
00125 30 MQTR-INT-RATE PIC S9(01)V9(04) COMP-3. DTSIMQTR
|
||||||
00126 20 MQTR-WAIVE-PEN-SPAN. DTSIMQTR
|
00126 DTSIMQTR
|
||||||
00127 25 MQTR-WAIVE-PEN-START-DATE DTSIMQTR
|
00127 20 MQTR-WAIVE-INT-SPAN. DTSIMQTR
|
||||||
00128 PIC S9(09) COMP-3. DTSIMQTR
|
00128 25 MQTR-WAIVE-INT-START-DATE DTSIMQTR
|
||||||
00129 25 MQTR-WAIVE-PEN-END-DATE DTSIMQTR
|
00129 PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00130 PIC S9(09) COMP-3. DTSIMQTR
|
00130 25 MQTR-WAIVE-INT-END-DATE DTSIMQTR
|
||||||
00131 DTSIMQTR
|
00131 PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00132 DTSIMQTR
|
00132 DTSIMQTR
|
||||||
00133 15 MQTR-WAGE-RPT-IND PIC X(01). DTSIMQTR
|
00133 DTSIMQTR
|
||||||
00134 88 MQTR-WAGE-RPT-NO-88 VALUE 'N'. DTSIMQTR
|
00134 15 MQTR-PEN-AREA. DTSIMQTR
|
||||||
00135 88 MQTR-WAGE-RPT-YES-88 VALUE 'Y'. DTSIMQTR
|
00135 20 MQTR-PEN-CHARGE-IND PIC X(01). DTSIMQTR
|
||||||
00136 DTSIMQTR
|
00136 88 MQTR-PEN-CHARGE-MANUAL-88 VALUE 'M'. DTSIMQTR
|
||||||
00137 DTSIMQTR
|
00137 88 MQTR-PEN-CHARGE-AUTO-88 VALUE 'A'. DTSIMQTR
|
||||||
00138 15 MQTR-EMPL-DATA. DTSIMQTR
|
00138 DTSIMQTR
|
||||||
00139 20 MQTR-1ST-MTH-EMPL-CNT DTSIMQTR
|
00139 20 MQTR-WAIVE-PEN-SPAN. DTSIMQTR
|
||||||
00140 PIC S9(07) COMP-3. DTSIMQTR
|
00140 25 MQTR-WAIVE-PEN-START-DATE DTSIMQTR
|
||||||
00141 88 MQTR-1ST-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR
|
00141 PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00142 20 MQTR-2ND-MTH-EMPL-CNT DTSIMQTR
|
00142 25 MQTR-WAIVE-PEN-END-DATE DTSIMQTR
|
||||||
00143 PIC S9(07) COMP-3. DTSIMQTR
|
00143 PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00144 88 MQTR-2ND-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR
|
00144 DTSIMQTR
|
||||||
00145 20 MQTR-3RD-MTH-EMPL-CNT DTSIMQTR
|
00145 DTSIMQTR
|
||||||
00146 PIC S9(07) COMP-3. DTSIMQTR
|
00146 15 MQTR-WAGE-RPT-IND PIC X(01). DTSIMQTR
|
||||||
00147 88 MQTR-3RD-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR
|
00147 88 MQTR-WAGE-RPT-NO-88 VALUE 'N'. DTSIMQTR
|
||||||
00148 20 MQTR-EMPL-CNT-CHNG-DATE DTSIMQTR
|
00148 88 MQTR-WAGE-RPT-YES-88 VALUE 'Y'. DTSIMQTR
|
||||||
00149 PIC S9(09) COMP-3. DTSIMQTR
|
00149 DTSIMQTR
|
||||||
00150 DTSIMQTR
|
00150 DTSIMQTR
|
||||||
00151 DTSIMQTR
|
00151 15 MQTR-EMPL-DATA. DTSIMQTR
|
||||||
00152 15 MQTR-COLL-PROMPT-DUE-AMT DTSIMQTR
|
00152 20 MQTR-1ST-MTH-EMPL-CNT DTSIMQTR
|
||||||
00153 PIC S9(09)V9(02) COMP-3. DTSIMQTR
|
00153 PIC S9(07) COMP-3. DTSIMQTR
|
||||||
00154 DTSIMQTR
|
00154 88 MQTR-1ST-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR
|
||||||
00155 DTSIMQTR
|
00155 20 MQTR-2ND-MTH-EMPL-CNT DTSIMQTR
|
||||||
00156 15 MQTR-ETA581-DATA. DTSIMQTR
|
00156 PIC S9(07) COMP-3. DTSIMQTR
|
||||||
00157 20 MQTR-ETA581-OVR15MNTH-RPT-CNT DTSIMQTR
|
00157 88 MQTR-2ND-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR
|
||||||
00158 PIC S9(04) COMP. DTSIMQTR
|
00158 20 MQTR-3RD-MTH-EMPL-CNT DTSIMQTR
|
||||||
00159 DTSIMQTR
|
00159 PIC S9(07) COMP-3. DTSIMQTR
|
||||||
00160 20 MQTR-ETA581-OVR15MNTH-RPT-YRQ DTSIMQTR
|
00160 88 MQTR-3RD-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR
|
||||||
00161 OCCURS 2 TIMES DTSIMQTR
|
00161 20 MQTR-EMPL-CNT-CHNG-DATE DTSIMQTR
|
||||||
00162 INDEXED BY MQTR-ETA581-IDX DTSIMQTR
|
00162 PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00163 PIC S9(05) COMP-3. DTSIMQTR
|
00163 DTSIMQTR
|
||||||
00164 DTSIMQTR
|
00164 DTSIMQTR
|
||||||
00165 20 MQTR-ETA581-REMOVED-IND DTSIMQTR
|
00165 15 MQTR-COLL-PROMPT-DUE-AMT DTSIMQTR
|
||||||
00166 PIC X(01). DTSIMQTR
|
00166 PIC S9(09)V9(02) COMP-3. DTSIMQTR
|
||||||
00167 88 MQTR-ETA581-REMOVED-NO-88 VALUE 'N'. DTSIMQTR
|
00167 DTSIMQTR
|
||||||
00168 88 MQTR-ETA581-REMOVED-YES-88 VALUE 'Y'. DTSIMQTR
|
00168 DTSIMQTR
|
||||||
00169 DTSIMQTR
|
00169 15 MQTR-ETA581-DATA. DTSIMQTR
|
||||||
00170 20 MQTR-ETA581-UNCOLLECT-IND DTSIMQTR
|
00170 20 MQTR-ETA581-OVR15MNTH-RPT-CNT DTSIMQTR
|
||||||
00171 PIC X(01). DTSIMQTR
|
00171 PIC S9(04) COMP. DTSIMQTR
|
||||||
00172 88 MQTR-ETA581-UNCOLLECT-NO-88 VALUE 'N'. DTSIMQTR
|
00172 DTSIMQTR
|
||||||
00173 88 MQTR-ETA581-UNCOLLECT-YES-88 VALUE 'Y'. DTSIMQTR
|
00173 20 MQTR-ETA581-OVR15MNTH-RPT-YRQ DTSIMQTR
|
||||||
00174 DTSIMQTR
|
00174 OCCURS 2 TIMES DTSIMQTR
|
||||||
00175 15 MQTR-ANNUAL-IND PIC X(01). DTSIMQTR
|
00175 INDEXED BY MQTR-ETA581-IDX DTSIMQTR
|
||||||
00176 88 MQTR-ANNUAL-YES-88 VALUE 'Y'. DTSIMQTR
|
00176 PIC S9(05) COMP-3. DTSIMQTR
|
||||||
00177 88 MQTR-ANNUAL-NO-88 VALUE 'N'. DTSIMQTR
|
00177 DTSIMQTR
|
||||||
00178 88 MQTR-ANNUAL-NULL-88 VALUE ' '. DTSIMQTR
|
00178 20 MQTR-ETA581-REMOVED-IND DTSIMQTR
|
||||||
00179 DTSIMQTR
|
00179 PIC X(01). DTSIMQTR
|
||||||
00180 15 MQTR-R317-SENT-IND PIC X(01). DTSIMQTR
|
00180 88 MQTR-ETA581-REMOVED-NO-88 VALUE 'N'. DTSIMQTR
|
||||||
00181 88 MQTR-R317-SENT-YES-88 VALUE 'Y'. DTSIMQTR
|
00181 88 MQTR-ETA581-REMOVED-YES-88 VALUE 'Y'. DTSIMQTR
|
||||||
00182 88 MQTR-R317-SENT-NO-88 VALUE 'N'. DTSIMQTR
|
00182 DTSIMQTR
|
||||||
00183 DTSIMQTR
|
00183 20 MQTR-ETA581-UNCOLLECT-IND DTSIMQTR
|
||||||
00184 15 MQTR-CMP-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIMQTR
|
00184 PIC X(01). DTSIMQTR
|
||||||
00185 DTSIMQTR
|
00185 88 MQTR-ETA581-UNCOLLECT-NO-88 VALUE 'N'. DTSIMQTR
|
||||||
00186 15 FILLER PIC X(38). DTSIMQTR
|
00186 88 MQTR-ETA581-UNCOLLECT-YES-88 VALUE 'Y'. DTSIMQTR
|
||||||
00187 DTSIMQTR
|
00187 DTSIMQTR
|
||||||
00188 DTSIMQTR
|
00188 15 MQTR-ANNUAL-IND PIC X(01). DTSIMQTR
|
||||||
00189 15 MQTR-CONVERTED-IND PIC X(01). DTSIMQTR
|
00189 88 MQTR-ANNUAL-YES-88 VALUE 'Y'. DTSIMQTR
|
||||||
00190 88 MQTR-CONVERTED-88 VALUE 'Y'. DTSIMQTR
|
00190 88 MQTR-ANNUAL-NO-88 VALUE 'N'. DTSIMQTR
|
||||||
00191 88 MQTR-NOT-CONVERTED-88 VALUE 'N'. DTSIMQTR
|
00191 88 MQTR-ANNUAL-NULL-88 VALUE ' '. DTSIMQTR
|
||||||
00192 DTSIMQTR
|
00192 DTSIMQTR
|
||||||
00193 DTSIMQTR
|
00193 15 MQTR-R317-SENT-IND PIC X(01). DTSIMQTR
|
||||||
00194 15 MQTR-ESTB-DATE PIC S9(09) COMP-3. DTSIMQTR
|
00194 88 MQTR-R317-SENT-YES-88 VALUE 'Y'. DTSIMQTR
|
||||||
00195 DTSIMQTR
|
00195 88 MQTR-R317-SENT-NO-88 VALUE 'N'. DTSIMQTR
|
||||||
00196 15 MQTR-CHNG-DATE PIC S9(09) COMP-3. DTSIMQTR
|
00196 DTSIMQTR
|
||||||
00197 DTSIMQTR
|
00197 15 MQTR-CMP-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIMQTR
|
||||||
00198 DTSIMQTR
|
00198 DTSIMQTR
|
||||||
00199 15 MQTR-ACCT-CNT PIC S9(04) COMP. DTSIMQTR
|
00199 15 FILLER PIC X(38). DTSIMQTR
|
||||||
00200 DTSIMQTR
|
00200 DTSIMQTR
|
||||||
00201 15 MQTR-ACCT-AREA. DTSIMQTR
|
00201 DTSIMQTR
|
||||||
00202 20 MQTR-ACCT-GROUP OCCURS 10 TIMES DTSIMQTR
|
00202 15 MQTR-CONVERTED-IND PIC X(01). DTSIMQTR
|
||||||
00203 INDEXED BY MQTR-ACCT-IDX. DTSIMQTR
|
00203 88 MQTR-CONVERTED-88 VALUE 'Y'. DTSIMQTR
|
||||||
00204 25 MQTR-ACCT-IND PIC X(02). DTSIMQTR
|
00204 88 MQTR-NOT-CONVERTED-88 VALUE 'N'. DTSIMQTR
|
||||||
00205 88 MQTR-ACCT-UI-88 VALUE 'UI'. DTSIMQTR
|
00205 DTSIMQTR
|
||||||
00206 88 MQTR-ACCT-SUR-88 VALUE 'SU'. DTSIMQTR
|
00206 DTSIMQTR
|
||||||
00207 88 MQTR-ACCT-INT-88 VALUE 'I '. DTSIMQTR
|
00207 15 MQTR-ESTB-DATE PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00208 88 MQTR-ACCT-LATE-PEN-88 VALUE 'LP'. DTSIMQTR
|
00208 DTSIMQTR
|
||||||
00209 88 MQTR-ACCT-NSF-PEN-88 VALUE 'NP'. DTSIMQTR
|
00209 15 MQTR-CHNG-DATE PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00210 88 MQTR-ACCT-MISC-PEN-88 VALUE 'MP'. DTSIMQTR
|
00210 DTSIMQTR
|
||||||
00211 88 MQTR-ACCT-TAX-88 VALUE DTSIMQTR
|
00211 DTSIMQTR
|
||||||
00212 'UI' 'SU'. DTSIMQTR
|
00212 15 MQTR-ACCT-CNT PIC S9(04) COMP. DTSIMQTR
|
||||||
00213 DTSIMQTR
|
00213 DTSIMQTR
|
||||||
00214 25 MQTR-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
00214 15 MQTR-ACCT-AREA. DTSIMQTR
|
||||||
00215 25 MQTR-PAID-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
00215 20 MQTR-ACCT-GROUP OCCURS 10 TIMES DTSIMQTR
|
||||||
00216 25 MQTR-WAIVED-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
00216 INDEXED BY MQTR-ACCT-IDX. DTSIMQTR
|
||||||
00217 25 MQTR-WRITTEN-OFF-AMT DTSIMQTR
|
00217 25 MQTR-ACCT-IND PIC X(02). DTSIMQTR
|
||||||
00218 PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
00218 88 MQTR-ACCT-UI-88 VALUE 'UI'. DTSIMQTR
|
||||||
00219 25 MQTR-TOLER-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
00219 88 MQTR-ACCT-SUR-88 VALUE 'SU'. DTSIMQTR
|
||||||
00220 25 MQTR-BALANCE-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
00220 88 MQTR-ACCT-INT-88 VALUE 'I '. DTSIMQTR
|
||||||
|
00221 88 MQTR-ACCT-LATE-PEN-88 VALUE 'LP'. DTSIMQTR
|
||||||
|
00222 88 MQTR-ACCT-NSF-PEN-88 VALUE 'NP'. DTSIMQTR
|
||||||
|
00223 88 MQTR-ACCT-MISC-PEN-88 VALUE 'MP'. DTSIMQTR
|
||||||
|
00224 88 MQTR-ACCT-TAX-88 VALUE DTSIMQTR
|
||||||
|
00225 'UI' 'SU'. DTSIMQTR
|
||||||
|
00226 DTSIMQTR
|
||||||
|
00227 25 MQTR-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
||||||
|
00228 25 MQTR-PAID-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
||||||
|
00229 25 MQTR-WAIVED-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
||||||
|
00230 25 MQTR-WRITTEN-OFF-AMT DTSIMQTR
|
||||||
|
00231 PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
||||||
|
00232 25 MQTR-TOLER-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
||||||
|
00233 25 MQTR-BALANCE-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
||||||
|
|||||||
@ -10,8 +10,8 @@
|
|||||||
00010 * CL**2
|
00010 * CL**2
|
||||||
00011 ***** DTSIP007
|
00011 ***** DTSIP007
|
||||||
00012 CL**2
|
00012 CL**2
|
||||||
00013 S7000-IO-DATA-TO-WRK-DATA. DTSIP007
|
00013 S7000-IO-DATA-TO-WRK-DATA.
|
||||||
DISPLAY 'MIO-COMPRESSION-IND:' MIO-COMPRESSION-IND. DTSIP007
|
*** SET MIO-COMPRESS-NO-88 TO TRUE. DTSIP007
|
||||||
00014 IF MIO-COMPRESS-NO-88 DTSIP007
|
00014 IF MIO-COMPRESS-NO-88 DTSIP007
|
||||||
00015 PERFORM S7100-EXPAND-NO THRU S7100-EXIT DTSIP007
|
00015 PERFORM S7100-EXPAND-NO THRU S7100-EXIT DTSIP007
|
||||||
00016 ELSE DTSIP007
|
00016 ELSE DTSIP007
|
||||||
|
|||||||
@ -1,34 +1,34 @@
|
|||||||
00001 ***** 03/20/99
|
00001 ***** 05/03/13
|
||||||
00002 * DTSIR316
|
00002 * DTSIR316
|
||||||
00003 * DTSIR316 ESTIMATED REPORT PROCESSED LETTER TO EMPLOYER LV008
|
00003 * DTSIR316 ESTIMATED REPORT PROCESSED LETTER TO EMPLOYER LV002
|
||||||
00004 * REPORT RECORDS. CL**6
|
00004 * REPORT RECORDS. DTSIR316
|
||||||
00005 * CL**6
|
00005 * DTSIR316
|
||||||
00006 * CL**2
|
00006 * DTSIR316
|
||||||
00007 * 12/18/1998 CREATED FOR DC. EHH. CL**5
|
00007 * 12/18/1998 CREATED FOR DC. EHH. DTSIR316
|
||||||
00008 * CL**2
|
00008 * DTSIR316
|
||||||
00009 ***** DTSIR316
|
00009 ***** DTSIR316
|
||||||
00010 CL**2
|
00010 DTSIR316
|
||||||
00011 10 R316-LENGTH PIC S9(04) COMP. CL**5
|
00011 10 R316-LENGTH PIC S9(04) COMP. DTSIR316
|
||||||
00012 CL**2
|
00012 DTSIR316
|
||||||
00013 10 R316-SORT-AREA. CL**5
|
00013 10 R316-SORT-AREA. DTSIR316
|
||||||
00014 15 R316-REC-TYPE PIC X(03). CL**7
|
00014 15 R316-REC-TYPE PIC X(03). DTSIR316
|
||||||
00015 15 R316-EMP-NO PIC S9(07) COMP-3. CL**5
|
00015 15 R316-EMP-NO PIC S9(07) COMP-3. DTSIR316
|
||||||
00016 15 R316-YRQ PIC S9(05) COMP-3. CL**5
|
00016 15 R316-YRQ PIC S9(05) COMP-3. DTSIR316
|
||||||
00017 CL**2
|
00017 DTSIR316
|
||||||
00018 10 R316-DATA-AREA. CL**5
|
00018 10 R316-DATA-AREA. DTSIR316
|
||||||
00019 15 R316-EMP-CLASS PIC X(01). CL**8
|
00019 15 R316-EMP-FILING PIC X(01). CL**2
|
||||||
00020 88 R316-CLASS-RATED-88 VALUE 'R'. CL**8
|
00020 88 R316-QTR-FILING-88 VALUE 'Q'. CL**2
|
||||||
00021 88 R316-CLASS-SELF-INS-88 VALUE 'S'. CL**8
|
00021 88 R316-ANN-FILING-88 VALUE 'A'. CL**2
|
||||||
00022 15 R316-MAIL-DATE PIC S9(09) COMP-3. CL**5
|
00022 15 R316-MAIL-DATE PIC S9(09) COMP-3. DTSIR316
|
||||||
00023 15 R316-UI-TAX-CHARGED-AMT PIC S9(09)V9(02) COMP-3. CL**8
|
00023 15 R316-UI-TAX-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIR316
|
||||||
00024 15 R316-SUR-TAX-CHARGED-AMT CL**8
|
00024 15 R316-SUR-TAX-CHARGED-AMT DTSIR316
|
||||||
00025 PIC S9(09)V9(02) COMP-3. CL**8
|
00025 PIC S9(09)V9(02) COMP-3.DTSIR316
|
||||||
00026 15 R316-PEN-CHARGED-AMT PIC S9(09)V9(02) COMP-3. CL**8
|
00026 15 R316-PEN-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIR316
|
||||||
00027 15 R316-INT-CHARGED-AMT PIC S9(09)V9(02) COMP-3. CL**8
|
00027 15 R316-INT-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIR316
|
||||||
00028 15 R316-INT-COMP-DATE PIC S9(09) COMP-3. CL**8
|
00028 15 R316-INT-COMP-DATE PIC S9(09) COMP-3.DTSIR316
|
||||||
00029 15 R316-FMT-ADDR. CL**5
|
00029 15 R316-FMT-ADDR. DTSIR316
|
||||||
00030 20 R316-FMT-LINE OCCURS 5 TIMES CL**5
|
00030 20 R316-FMT-LINE OCCURS 5 TIMES DTSIR316
|
||||||
00031 INDEXED BY R316-FMT-IDX CL**5
|
00031 INDEXED BY R316-FMT-IDX DTSIR316
|
||||||
00032 PIC X(40). DTSIR316
|
00032 PIC X(40). DTSIR316
|
||||||
00033 15 R316-ZIP PIC X(10). CL**5
|
00033 15 R316-ZIP PIC X(10). DTSIR316
|
||||||
00034 15 R316-ADVANCED-BARCODE PIC X(14). CL**5
|
00034 15 R316-ADVANCED-BARCODE PIC X(14). DTSIR316
|
||||||
|
|||||||
@ -1,6 +1,6 @@
|
|||||||
00001 ***** 08/14/25
|
00001 ***** 04/13/17
|
||||||
00002 * DTSIS82
|
00002 * DTSIS82
|
||||||
00003 * DTSIS82 QUARTER INQUIRY/UPDATE SEND/RECEIVE AREA. LV005
|
00003 * DTSIS82 QUARTER INQUIRY/UPDATE SEND/RECEIVE AREA. LV004
|
||||||
00004 * DTSIS82
|
00004 * DTSIS82
|
||||||
00005 * 02-13-2013 REMOVED INTENT TO ESTIMATE DATE. ADDED DTSIS82
|
00005 * 02-13-2013 REMOVED INTENT TO ESTIMATE DATE. ADDED DTSIS82
|
||||||
00006 * REIMBURSABLE LATE PENALTY ASSESSMENT DT DTSIS82
|
00006 * REIMBURSABLE LATE PENALTY ASSESSMENT DT DTSIS82
|
||||||
@ -139,19 +139,19 @@
|
|||||||
00139 20 MAP-UC30-FINAL-DEL-YY-A PIC X(01). DTSIS82
|
00139 20 MAP-UC30-FINAL-DEL-YY-A PIC X(01). DTSIS82
|
||||||
00140 20 MAP-UC30-FINAL-DEL-YY PIC X(02). DTSIS82
|
00140 20 MAP-UC30-FINAL-DEL-YY PIC X(02). DTSIS82
|
||||||
00141 SKIP1 DTSIS82
|
00141 SKIP1 DTSIS82
|
||||||
00142 * 10 MAP-DELQ-LTR-SENT-DATE-AREA. CL**5
|
00142 10 MAP-DELQ-LTR-SENT-DATE-AREA. CL**3
|
||||||
00143 * 15 MAP-DELQ-LTR-SENT-MM-AREA. CL**5
|
00143 15 MAP-DELQ-LTR-SENT-MM-AREA. CL**2
|
||||||
00144 * 20 MAP-DELQ-LTR-SENT-MM-L PIC S9(04) COMP. CL**5
|
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**5
|
00145 20 MAP-DELQ-LTR-SENT-MM-A PIC X(01). CL**2
|
||||||
00146 * 20 MAP-DELQ-LTR-SENT-MM PIC X(02). CL**5
|
00146 20 MAP-DELQ-LTR-SENT-MM PIC X(02). CL**2
|
||||||
00147 * 15 MAP-DELQ-LTR-SENT-DD-AREA. CL**5
|
00147 15 MAP-DELQ-LTR-SENT-DD-AREA. CL**2
|
||||||
00148 * 20 MAP-DELQ-LTR-SENT-DD-L PIC S9(04) COMP. CL**5
|
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**5
|
00149 20 MAP-DELQ-LTR-SENT-DD-A PIC X(01). CL**2
|
||||||
00150 * 20 MAP-DELQ-LTR-SENT-DD PIC X(02). CL**5
|
00150 20 MAP-DELQ-LTR-SENT-DD PIC X(02). CL**2
|
||||||
00151 * 15 MAP-DELQ-LTR-SENT-YY-AREA. CL**5
|
00151 15 MAP-DELQ-LTR-SENT-YY-AREA. CL**2
|
||||||
00152 * 20 MAP-DELQ-LTR-SENT-YY-L PIC S9(04) COMP. CL**5
|
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**5
|
00153 20 MAP-DELQ-LTR-SENT-YY-A PIC X(01). CL**2
|
||||||
00154 * 20 MAP-DELQ-LTR-SENT-YY PIC X(02). CL**5
|
00154 20 MAP-DELQ-LTR-SENT-YY PIC X(02). CL**2
|
||||||
00155 SKIP1 DTSIS82
|
00155 SKIP1 DTSIS82
|
||||||
00156 10 MAP-UC30-FINAL-ACT-DATE-AREA. DTSIS82
|
00156 10 MAP-UC30-FINAL-ACT-DATE-AREA. DTSIS82
|
||||||
00157 15 MAP-UC30-FINAL-ACTION-MM-AREA. DTSIS82
|
00157 15 MAP-UC30-FINAL-ACTION-MM-AREA. DTSIS82
|
||||||
|
|||||||
@ -1,6 +1,6 @@
|
|||||||
00001 ***** 04/09/13
|
00001 ***** 11/11/02
|
||||||
00002 * DTSIS89
|
00002 * DTSIS89
|
||||||
00003 * DTSIS89 ANNUAL FILING INQUIRY/UPDATE LV003
|
00003 * DTSIS89 ANNUAL FILING INQUIRY/UPDATE LV001
|
||||||
00004 * DTSIS89
|
00004 * DTSIS89
|
||||||
00005 ***** DTSIS89
|
00005 ***** DTSIS89
|
||||||
00006 SKIP1 DTSIS89
|
00006 SKIP1 DTSIS89
|
||||||
@ -88,33 +88,33 @@
|
|||||||
00088 20 MAP-UC30H-FIRST-DEL-YY-A PIC X(01). DTSIS89
|
00088 20 MAP-UC30H-FIRST-DEL-YY-A PIC X(01). DTSIS89
|
||||||
00089 20 MAP-UC30H-FIRST-DEL-YY PIC X(02). DTSIS89
|
00089 20 MAP-UC30H-FIRST-DEL-YY PIC X(02). DTSIS89
|
||||||
00090 SKIP1 DTSIS89
|
00090 SKIP1 DTSIS89
|
||||||
00091 10 MAP-UC30H-FINAL-ACT-DATE-AREA. DTSIS89
|
00091 10 MAP-UC30H-FINAL-DEL-DATE-AREA. DTSIS89
|
||||||
00092 15 MAP-UC30H-FINAL-ACTION-MM-AREA. DTSIS89
|
00092 15 MAP-UC30H-FINAL-DEL-MM-AREA. DTSIS89
|
||||||
00093 20 MAP-UC30H-FINAL-ACTION-MM-L PIC S9(04) COMP. DTSIS89
|
00093 20 MAP-UC30H-FINAL-DEL-MM-L PIC S9(04) COMP. DTSIS89
|
||||||
00094 20 MAP-UC30H-FINAL-ACTION-MM-A PIC X(01). DTSIS89
|
00094 20 MAP-UC30H-FINAL-DEL-MM-A PIC X(01). DTSIS89
|
||||||
00095 20 MAP-UC30H-FINAL-ACTION-MM PIC X(02). DTSIS89
|
00095 20 MAP-UC30H-FINAL-DEL-MM PIC X(02). DTSIS89
|
||||||
00096 15 MAP-UC30H-FINAL-ACTION-DD-AREA. DTSIS89
|
00096 15 MAP-UC30H-FINAL-DEL-DD-AREA. DTSIS89
|
||||||
00097 20 MAP-UC30H-FINAL-ACTION-DD-L PIC S9(04) COMP. DTSIS89
|
00097 20 MAP-UC30H-FINAL-DEL-DD-L PIC S9(04) COMP. DTSIS89
|
||||||
00098 20 MAP-UC30H-FINAL-ACTION-DD-A PIC X(01). DTSIS89
|
00098 20 MAP-UC30H-FINAL-DEL-DD-A PIC X(01). DTSIS89
|
||||||
00099 20 MAP-UC30H-FINAL-ACTION-DD PIC X(02). DTSIS89
|
00099 20 MAP-UC30H-FINAL-DEL-DD PIC X(02). DTSIS89
|
||||||
00100 15 MAP-UC30H-FINAL-ACTION-YY-AREA. DTSIS89
|
00100 15 MAP-UC30H-FINAL-DEL-YY-AREA. DTSIS89
|
||||||
00101 20 MAP-UC30H-FINAL-ACTION-YY-L PIC S9(04) COMP. DTSIS89
|
00101 20 MAP-UC30H-FINAL-DEL-YY-L PIC S9(04) COMP. DTSIS89
|
||||||
00102 20 MAP-UC30H-FINAL-ACTION-YY-A PIC X(01). DTSIS89
|
00102 20 MAP-UC30H-FINAL-DEL-YY-A PIC X(01). DTSIS89
|
||||||
00103 20 MAP-UC30H-FINAL-ACTION-YY PIC X(02). DTSIS89
|
00103 20 MAP-UC30H-FINAL-DEL-YY PIC X(02). DTSIS89
|
||||||
00104 SKIP1 CL**2
|
00104 SKIP1 DTSIS89
|
||||||
00105 10 MAP-UC30H-ESTIMATED-DATE-AREA. CL**3
|
00105 10 MAP-UC30H-FINAL-ACT-DATE-AREA. DTSIS89
|
||||||
00106 15 MAP-UC30H-ESTIMATED-MM-AREA. CL**3
|
00106 15 MAP-UC30H-FINAL-ACTION-MM-AREA. DTSIS89
|
||||||
00107 20 MAP-UC30H-ESTIMATED-MM-L PIC S9(04) COMP. CL**3
|
00107 20 MAP-UC30H-FINAL-ACTION-MM-L PIC S9(04) COMP. DTSIS89
|
||||||
00108 20 MAP-UC30H-ESTIMATED-MM-A PIC X(01). CL**3
|
00108 20 MAP-UC30H-FINAL-ACTION-MM-A PIC X(01). DTSIS89
|
||||||
00109 20 MAP-UC30H-ESTIMATED-MM PIC X(02). CL**3
|
00109 20 MAP-UC30H-FINAL-ACTION-MM PIC X(02). DTSIS89
|
||||||
00110 15 MAP-UC30H-ESTIMATED-DD-AREA. CL**3
|
00110 15 MAP-UC30H-FINAL-ACTION-DD-AREA. DTSIS89
|
||||||
00111 20 MAP-UC30H-ESTIMATED-DD-L PIC S9(04) COMP. CL**3
|
00111 20 MAP-UC30H-FINAL-ACTION-DD-L PIC S9(04) COMP. DTSIS89
|
||||||
00112 20 MAP-UC30H-ESTIMATED-DD-A PIC X(01). CL**3
|
00112 20 MAP-UC30H-FINAL-ACTION-DD-A PIC X(01). DTSIS89
|
||||||
00113 20 MAP-UC30H-ESTIMATED-DD PIC X(02). CL**3
|
00113 20 MAP-UC30H-FINAL-ACTION-DD PIC X(02). DTSIS89
|
||||||
00114 15 MAP-UC30H-ESTIMATED-YY-AREA. CL**3
|
00114 15 MAP-UC30H-FINAL-ACTION-YY-AREA. DTSIS89
|
||||||
00115 20 MAP-UC30H-ESTIMATED-YY-L PIC S9(04) COMP. CL**3
|
00115 20 MAP-UC30H-FINAL-ACTION-YY-L PIC S9(04) COMP. DTSIS89
|
||||||
00116 20 MAP-UC30H-ESTIMATED-YY-A PIC X(01). CL**3
|
00116 20 MAP-UC30H-FINAL-ACTION-YY-A PIC X(01). DTSIS89
|
||||||
00117 20 MAP-UC30H-ESTIMATED-YY PIC X(02). CL**3
|
00117 20 MAP-UC30H-FINAL-ACTION-YY PIC X(02). DTSIS89
|
||||||
00118 SKIP1 DTSIS89
|
00118 SKIP1 DTSIS89
|
||||||
00119 10 MAP-ESTB-DATE-AREA. DTSIS89
|
00119 10 MAP-ESTB-DATE-AREA. DTSIS89
|
||||||
00120 15 MAP-ESTB-DATE-L PIC S9(04) COMP. DTSIS89
|
00120 15 MAP-ESTB-DATE-L PIC S9(04) COMP. DTSIS89
|
||||||
|
|||||||
@ -21,4 +21,4 @@
|
|||||||
00021 DTSIWWGH
|
00021 DTSIWWGH
|
||||||
00022 10 WWGH-DATA-AREA. DTSIWWGH
|
00022 10 WWGH-DATA-AREA. DTSIWWGH
|
||||||
00023 15 WWGH-EARNINGS PIC S9(09)V9(02) COMP-3. DTSIWWGH
|
00023 15 WWGH-EARNINGS PIC S9(09)V9(02) COMP-3. DTSIWWGH
|
||||||
00024 * 15 WWGH-CHNG-DATE PIC S9(09) COMP-3. CL**2
|
00024 15 WWGH-CHNG-DATE PIC S9(09) COMP-3. CL**2
|
||||||
|
|||||||
@ -24,7 +24,8 @@
|
|||||||
// DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
|
// DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
|
||||||
//*
|
//*
|
||||||
//******************************************************************
|
//******************************************************************
|
||||||
//* |
|
//* RAINCODE TESTED 08/20/25 ZL1 r
|
||||||
|
//******************************************************************
|
||||||
//* JOB : PUT REFUND TRANS FROM DUTAS INTO SOAR (ODC2)
|
//* JOB : PUT REFUND TRANS FROM DUTAS INTO SOAR (ODC2)
|
||||||
//**** NOTE: DO NOT SEND DATA TO SOAR ON 9/29 - 9/30 |
|
//**** NOTE: DO NOT SEND DATA TO SOAR ON 9/29 - 9/30 |
|
||||||
//******************************************************************
|
//******************************************************************
|
||||||
|
|||||||
@ -9,7 +9,7 @@
|
|||||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||||
//* 00001700
|
//* 00001700
|
||||||
//STEP0100 EXEC PGM=DESBD473, // VERIFY EMP REGISTRTION DATE
|
//STEP0100 EXEC PGM=DESBD473, VERIFY EMP REGISTRTION DATE
|
||||||
// COND=(0,LT),
|
// COND=(0,LT),
|
||||||
// REGION=0M
|
// REGION=0M
|
||||||
//SYSOUT DD SYSOUT=*
|
//SYSOUT DD SYSOUT=*
|
||||||
@ -21,29 +21,41 @@
|
|||||||
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),
|
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),
|
||||||
// DISP=(,CATLG,DELETE),
|
// DISP=(,CATLG,DELETE),
|
||||||
// SPACE=(8192,(100,200),RLSE),
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
// 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)
|
||||||
|
//****
|
||||||
//DTSFR140 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR
|
//DTSFR140 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR
|
||||||
//*********************************************************************
|
//* DISP=(,CATLG,DELETE),
|
||||||
//STEP0200 EXEC PGM=DESBD474, // SELECT FRAUD WAGES FROM X144
|
//* SPACE=(8192,(100,200),RLSE),
|
||||||
|
//* CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
//* DCB=(RECFM=LSEQ,LRECL=161,BLKSIZE=1610)
|
||||||
|
//*
|
||||||
|
//STEP0200 EXEC PGM=DESBD474,
|
||||||
// COND=(0,LT),
|
// COND=(0,LT),
|
||||||
// REGION=0M
|
// REGION=0M
|
||||||
//SYSOUT DD SYSOUT=*
|
//SYSOUT DD SYSOUT=*
|
||||||
//SYSABOUT DD SYSOUT=*
|
//SYSABOUT DD SYSOUT=*
|
||||||
//SYSABEND DD SYSOUT=*
|
//SYSABEND DD SYSOUT=*
|
||||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||||
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),DISP=SHR
|
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
|
||||||
//DTSFX144 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR
|
//DTSFX144 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR
|
||||||
// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD144.RELEASE,DISP=SHR
|
// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD144.RELEASE,DISP=SHR
|
||||||
//DTSFF144 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X144(+1),
|
//DTSFF144 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X144(+1),
|
||||||
// DISP=(,CATLG,DELETE),
|
// DISP=(,CATLG,DELETE),
|
||||||
// SPACE=(CYL,(100,50),RLSE),
|
// SPACE=(CYL,(100,50),RLSE),
|
||||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
// 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),
|
||||||
//STEP0300 EXEC PGM=DESBD475, // SELECT FRAUD WAGES FROM X147
|
//* SPACE=(8192,(100,200),RLSE),
|
||||||
|
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//*
|
||||||
|
//*********************************
|
||||||
|
//STEP0300 EXEC PGM=DESBD475, SELECT FRAUD WAGES FROM X147
|
||||||
// COND=(0,LT),
|
// COND=(0,LT),
|
||||||
// REGION=0M
|
// REGION=0M
|
||||||
//SYSOUT DD SYSOUT=*
|
//SYSOUT DD SYSOUT=*
|
||||||
@ -56,10 +68,14 @@
|
|||||||
//DTSFF147 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X147(+1),
|
//DTSFF147 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X147(+1),
|
||||||
// DISP=(,CATLG,DELETE),
|
// DISP=(,CATLG,DELETE),
|
||||||
// SPACE=(8192,(100,200),RLSE),
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
// 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)
|
||||||
|
//****
|
||||||
|
//***********************************
|
||||||
//EMAIL EXEC PGM=IEBGENER,
|
//EMAIL EXEC PGM=IEBGENER,
|
||||||
// COND=(0,LT),
|
// COND=(0,LT),
|
||||||
// REGION=4M
|
// REGION=4M
|
||||||
@ -149,3 +165,4 @@
|
|||||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
|
||||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR
|
||||||
//*
|
//*
|
||||||
|
//
|
||||||
|
|||||||
@ -14,7 +14,7 @@
|
|||||||
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
|
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
|
||||||
//********************************************************************
|
//********************************************************************
|
||||||
//**`**** CHANGE PARM QTR TO CURRENT QUARTER ********
|
//**`**** CHANGE PARM QTR TO CURRENT QUARTER ********
|
||||||
// SET CURRQTR='Q2018Q3'
|
// SET CURRQTR='Q2018Q4'
|
||||||
// SET LVLNODE='CONV'
|
// SET LVLNODE='CONV'
|
||||||
// SET MSTNODE='PROD'
|
// SET MSTNODE='PROD'
|
||||||
// SET PRGNODE='CONV'
|
// SET PRGNODE='CONV'
|
||||||
@ -44,27 +44,31 @@
|
|||||||
//*********************************************************************
|
//*********************************************************************
|
||||||
//********************************************************************
|
//********************************************************************
|
||||||
//*
|
//*
|
||||||
//TDECFTP EXEC PGM=FTP,COND=(0,LT)
|
//*TDECFTP EXEC PGM=FTP,COND=(0,LT)
|
||||||
//SYSPRINT DD SYSOUT=*
|
//*SYSPRINT DD SYSOUT=*
|
||||||
//OUTOUT DD SYSOUT=*
|
//*OUTOUT DD SYSOUT=*
|
||||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||||
//SYSGET DD *,DCB=BLKSIZE=80
|
//*SYSGET DD *,DCB=BLKSIZE=80
|
||||||
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRECK),DISP=SHR
|
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRECK),DISP=SHR
|
||||||
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTECK),DISP=SHR
|
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTECK),DISP=SHR
|
||||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGCHKS),DISP=SHR
|
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGCHKS),DISP=SHR
|
||||||
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDCK),DISP=SHR
|
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDCK),DISP=SHR
|
||||||
//*
|
//*
|
||||||
//********************************************************************
|
//********************************************************************
|
||||||
//**** DECRYPT TDEC CHECKS FILE INTO TEXTOUT
|
//**** DECRYPT TDEC CHECKS FILE INTO TEXTOUT
|
||||||
//********************************************************************
|
//********************************************************************
|
||||||
//*
|
//*
|
||||||
//DECRYPT EXEC SECPDEC,COND=(0,LT)
|
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
|
||||||
//*ECRYPT EXEC SECODEC,COND=(0,LT)
|
//*ECRYPT EXEC SECODEC,COND=(0,LT)
|
||||||
//DATAIN DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR
|
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
|
||||||
//DATAOUT DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),
|
//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=(,CATLG,DELETE),
|
||||||
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
||||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//SYSPRINT DD SYSOUT=(*)
|
||||||
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||||
|
//**
|
||||||
//*
|
//*
|
||||||
//********************************************************************
|
//********************************************************************
|
||||||
//*** COPY TDEC DAILY CHECKS FILE TO BBACKUP FILE.
|
//*** COPY TDEC DAILY CHECKS FILE TO BBACKUP FILE.
|
||||||
@ -77,7 +81,7 @@
|
|||||||
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.SDAILY.CHKS(+1),
|
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.SDAILY.CHKS(+1),
|
||||||
// DISP=(NEW,CATLG,DELETE),
|
// DISP=(NEW,CATLG,DELETE),
|
||||||
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
//SYSPRINT DD SYSOUT=(*)
|
//SYSPRINT DD SYSOUT=(*)
|
||||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||||
//**
|
//**
|
||||||
@ -92,7 +96,7 @@
|
|||||||
//* DISP=(NEW,CATLG,DELETE),
|
//* DISP=(NEW,CATLG,DELETE),
|
||||||
// DISP=MOD,
|
// DISP=MOD,
|
||||||
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
//SYSPRINT DD SYSOUT=(*)
|
//SYSPRINT DD SYSOUT=(*)
|
||||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||||
//**
|
//**
|
||||||
@ -105,29 +109,29 @@
|
|||||||
//* DISP=MOD,
|
//* DISP=MOD,
|
||||||
// DISP=SHR,
|
// DISP=SHR,
|
||||||
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
//SYSPRINT DD SYSOUT=(*)
|
//SYSPRINT DD SYSOUT=(*)
|
||||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||||
//**
|
//**
|
||||||
//********************************************************************
|
//********************************************************************
|
||||||
//**** DELETE TDEC ENCRYPTED CHECK FILE
|
//**** DELETE TDEC ENCRYPTED CHECK FILE
|
||||||
//********************************************************************
|
//********************************************************************
|
||||||
//TDECDEL EXEC PGM=FTP,COND=(0,LT)
|
//*TDECDEL EXEC PGM=FTP,COND=(0,LT)
|
||||||
//SYSPRINT DD SYSOUT=*
|
//*SYSPRINT DD SYSOUT=*
|
||||||
//OUTOUT DD SYSOUT=*
|
//*OUTOUT DD SYSOUT=*
|
||||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||||
//SYSGET DD *,DCB=BLKSIZE=80
|
//*SYSGET DD *,DCB=BLKSIZE=80
|
||||||
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRCHK),DISP=SHR
|
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRCHK),DISP=SHR
|
||||||
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDECHK),DISP=SHR
|
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDECHK),DISP=SHR
|
||||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR
|
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR
|
||||||
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDCHK),DISP=SHR
|
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDCHK),DISP=SHR
|
||||||
//*
|
//*
|
||||||
//STEP0200 EXEC DTSBXCHK
|
//STEP0200 EXEC DTSZXCHK
|
||||||
//*
|
//*
|
||||||
//STEP0300 EXEC DTSRSESP
|
//STEP0300 EXEC DTSRSESP
|
||||||
//***
|
//***
|
||||||
//* REPORT GENERATION
|
//* REPORT GENERATION
|
||||||
//STEP0400 EXEC DTSRERPT
|
//STEP0400 EXEC DTSRERPZ
|
||||||
//STEP0100.RPT140R1 DD HOLD=YES
|
//STEP0100.RPT140R1 DD HOLD=YES
|
||||||
//STEP0100.RPT140R2 DD HOLD=YES
|
//STEP0100.RPT140R2 DD HOLD=YES
|
||||||
//STEP0100.RPT907R1 DD HOLD=YES
|
//STEP0100.RPT907R1 DD HOLD=YES
|
||||||
|
|||||||
93
JCL/DTSGZCHD.jcl
Normal file
93
JCL/DTSGZCHD.jcl
Normal file
@ -0,0 +1,93 @@
|
|||||||
|
//DTSGACHD JOB (UI,4300,03410,P),'recv-ACH-DEBIT-WF',REGION=4000K,
|
||||||
|
// USER=#DOADTS,
|
||||||
|
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
|
||||||
|
/*ROUTE PRINT U@PRT65
|
||||||
|
//*
|
||||||
|
// SET LVLNODE='CONV'
|
||||||
|
// SET MSTNODE='PROD'
|
||||||
|
// SET IMPNODE='CONV'
|
||||||
|
// SET PRGNODE='CONV'
|
||||||
|
// SET LVDHOLD='YES'
|
||||||
|
//*
|
||||||
|
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB
|
||||||
|
//LOADLIBS INCLUDE MEMBER=DTSIELIB
|
||||||
|
//**
|
||||||
|
//**** GET ESSP ACH PAYMENTS FROM WELLS FARGO USING FTPS ON THE
|
||||||
|
//**** MAINFRAME. THIS JOB WILL RUN DAILY AT 9:00 AM
|
||||||
|
//**** 1/30/15 ZL1
|
||||||
|
//*******************************************************************
|
||||||
|
//****************** production files only ************
|
||||||
|
//*******************************************************************
|
||||||
|
//****
|
||||||
|
//*** FILES COMING FROM ESSP WILL UPLOAD (FTP) TO MAINFRAME DAILY.
|
||||||
|
//****
|
||||||
|
//*** THIS JOB WILL USE FTPS (FTP WITH SSL CERT) TO TRANSMIT FILE.
|
||||||
|
//****
|
||||||
|
//*** ALL WELLS FARGO CERT ARE INSTALLED ON DOES LPARS 0S19 & OS16
|
||||||
|
//********************************************************************
|
||||||
|
//*-----------------------------------------------------
|
||||||
|
//* 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
|
||||||
|
/*
|
||||||
|
//*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
|
||||||
|
//*
|
||||||
|
//********************************************************************
|
||||||
|
//*** COPY essp ach RETURNS to backup ach file.
|
||||||
|
//**
|
||||||
|
//********************************************************************
|
||||||
|
//**
|
||||||
|
//*COPYACHP EXEC PGM=IDCAMS,COND=(0,LT)
|
||||||
|
//*IFILE DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,DISP=SHR
|
||||||
|
//**
|
||||||
|
//*OFILE DD DSN=DOESTAX.CONV.ESSP.ACHDR.ARCHIVE(+1),
|
||||||
|
//* DISP=(NEW,CATLG,DELETE),
|
||||||
|
//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||||
|
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//*SYSPRINT DD SYSOUT=(*)
|
||||||
|
//*SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||||
|
//**
|
||||||
|
//STEP0100 EXEC DTSZX426
|
||||||
|
//**
|
||||||
|
//********************************************************************
|
||||||
|
//*** send email ach returns received from wells fargo.
|
||||||
|
//
|
||||||
|
//********************************************************************
|
||||||
|
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),
|
||||||
|
// REGION=4M
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//OUT1 OUTPUT DEST=U1003,
|
||||||
|
// USERDATA=('TO:rosalind.holbrook@dc.gov',
|
||||||
|
// 'TO:aravind.vitta@sagitec.com',
|
||||||
|
// 'TO:rajini.jujjavarapu@dc.gov',
|
||||||
|
// 'TO:ZARATH.LALPUTAN@DC.GOV',
|
||||||
|
// 'TO:margaret.hernandez@dc.gov',
|
||||||
|
// 'TO:yinka.olarewaju-alo@dc.gov',
|
||||||
|
// 'TO:joy.diggs@dc.gov',
|
||||||
|
//* 'TO:macarena.cantelas@dc.gov',
|
||||||
|
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
|
||||||
|
// 'SUBJECT:ESSP DAILY ACH RETURNS RECEIVED FROM WELLS FARGO',
|
||||||
|
// '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
|
||||||
|
//SYSIN DD DUMMY
|
||||||
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||||
|
//****
|
||||||
|
//********************************************************************
|
||||||
@ -20,7 +20,7 @@
|
|||||||
// SET BYPASS2='000000' /* BYPASS EMPLOYER 2
|
// SET BYPASS2='000000' /* BYPASS EMPLOYER 2
|
||||||
// SET BYPASS3='000000' /* BYPASS EMPLOYER 3
|
// SET BYPASS3='000000' /* BYPASS EMPLOYER 3
|
||||||
//*
|
//*
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||||
//****
|
//****
|
||||||
//* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP
|
//* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP
|
||||||
@ -74,7 +74,7 @@
|
|||||||
//****
|
//****
|
||||||
//****
|
//****
|
||||||
//STEP0075 EXEC DTSBX415
|
//STEP0075 EXEC DTSBX415
|
||||||
//* /* GET EMLOYER DATA FRROM WEB
|
// /* GET EMLOYER DATA FRROM WEB
|
||||||
//****0100 EXEC DTSBX420 (JOB RUNS AFTER RQ325 AND PASSES BTC FILES)
|
//****0100 EXEC DTSBX420 (JOB RUNS AFTER RQ325 AND PASSES BTC FILES)
|
||||||
//****
|
//****
|
||||||
//* /* MERGE WAGE.BTC TO BTC
|
//* /* MERGE WAGE.BTC TO BTC
|
||||||
@ -84,8 +84,8 @@
|
|||||||
//******** EXEC DESOLABK
|
//******** EXEC DESOLABK
|
||||||
//* /* STD DAILY PROC
|
//* /* STD DAILY PROC
|
||||||
//* /* STD DAILY BEFORE DAILY BATCH
|
//* /* STD DAILY BEFORE DAILY BATCH
|
||||||
//STEP0175 EXEC DTSUTVSM,
|
//*STEP0175 EXEC DTSUTVSM,
|
||||||
// BKUPGEN='(+1)'
|
//* BKUPGEN='(+1)'
|
||||||
//* /* GET CREDITS/DEBITS/REFUNDS FROM WEB
|
//* /* GET CREDITS/DEBITS/REFUNDS FROM WEB
|
||||||
//STEP0200 EXEC DTSDUPDT,
|
//STEP0200 EXEC DTSDUPDT,
|
||||||
//* LHOLD='NO',
|
//* LHOLD='NO',
|
||||||
|
|||||||
@ -9,7 +9,7 @@
|
|||||||
// SET LVLNODE='PROD'
|
// SET LVLNODE='PROD'
|
||||||
// SET LVDHOLD='YES'
|
// SET LVDHOLD='YES'
|
||||||
//*
|
//*
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||||
//****
|
//****
|
||||||
//* 09/30/99 - JHP
|
//* 09/30/99 - JHP
|
||||||
@ -23,11 +23,11 @@
|
|||||||
//****
|
//****
|
||||||
//* WEEKLY BACKUP IS TAKEN HERE BEFORE WEEKLY UPDATE JOB
|
//* WEEKLY BACKUP IS TAKEN HERE BEFORE WEEKLY UPDATE JOB
|
||||||
//*
|
//*
|
||||||
//****
|
//**** testing rc zl1
|
||||||
//* 11/9/12 CHANGED PROC FROM DTSRWVD TO DTSRWTR FOR TRMS RPTS ZL1
|
//* 11/9/12 CHANGED PROC FROM DTSRWVD TO DTSRWTR FOR TRMS RPTS ZL1
|
||||||
//*
|
//*
|
||||||
//STEP0050 EXEC DTSUWVSM,
|
//*STEP0050 EXEC DTSUWVSM,
|
||||||
// BKUPGEN='(+1)'
|
//* BKUPGEN='(+1)'
|
||||||
//* THIS RESTORE IS DONE AT WEEK-END TO
|
//* THIS RESTORE IS DONE AT WEEK-END TO
|
||||||
//* REORG THE MAIN VSAM FILES (MSTA/B/C/D/E/F/G & AIX & WGH)
|
//* REORG THE MAIN VSAM FILES (MSTA/B/C/D/E/F/G & AIX & WGH)
|
||||||
//* (OLA IS ALREADY RESET BY THE DAILY)
|
//* (OLA IS ALREADY RESET BY THE DAILY)
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
//DTSPODC4 JOB (0),'CA7 DUMMY JOB',CLASS=P,MSGCLASS=X,USER=#DOADTS,
|
//DTSPODC4 JOB (0),'CA7 DUMMY JOB',CLASS=P,MSGCLASS=X,USER=#DOADTS,
|
||||||
// NOTIFY=ECNTZL1
|
// NOTIFY=ECNTZL1
|
||||||
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
||||||
//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB BY Z/OS
|
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
|
||||||
//**********************************************************************
|
//**********************************************************************
|
||||||
//* THIS JOB IS DEMANDED IN AFTER SUCCESSFULL TRANSMISSION *
|
//* THIS JOB IS DEMANDED IN AFTER SUCCESSFULL TRANSMISSION *
|
||||||
//* RUNS ON DOES CA/7 *
|
//* RUNS ON DOES CA/7 *
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
//DTSPODC6 JOB (0),'CA7 DUMMY JOB',CLASS=P,MSGCLASS=X,USER=#DOADTS,
|
//DTSPODC6 JOB (0),'CA7 DUMMY JOB',CLASS=P,MSGCLASS=X,USER=#DOADTS,
|
||||||
// NOTIFY=ECNTZL1
|
// NOTIFY=ECNTZL1
|
||||||
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
||||||
//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB BY Z/OS
|
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
|
||||||
//**********************************************************************
|
//**********************************************************************
|
||||||
//* THIS JOB IS DEMANDED IN AFTER SUCCESSFULL TRANSMISSION *
|
//* THIS JOB IS DEMANDED IN AFTER SUCCESSFULL TRANSMISSION *
|
||||||
//* RUNS ON DOES CA/7 *
|
//* RUNS ON DOES CA/7 *
|
||||||
|
|||||||
@ -6,7 +6,7 @@
|
|||||||
// SET LVLNODE='PROD'
|
// SET LVLNODE='PROD'
|
||||||
// SET LVDHOLD='YES'
|
// SET LVDHOLD='YES'
|
||||||
//*
|
//*
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||||
//****
|
//****
|
||||||
//INFOPACK EXEC PGM=INFOPACR,
|
//INFOPACK EXEC PGM=INFOPACR,
|
||||||
|
|||||||
@ -21,7 +21,7 @@
|
|||||||
// SET S0910='+0'
|
// SET S0910='+0'
|
||||||
//* 00001700
|
//* 00001700
|
||||||
//* 00001700
|
//* 00001700
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001600
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||||
//*****************************************************************
|
//*****************************************************************
|
||||||
//***
|
//***
|
||||||
|
|||||||
@ -7,10 +7,10 @@
|
|||||||
// SET MSTNODE='PROD'
|
// SET MSTNODE='PROD'
|
||||||
// SET IMPNODE='CONV'
|
// SET IMPNODE='CONV'
|
||||||
// SET BTCNODE='DEVL'
|
// SET BTCNODE='DEVL'
|
||||||
// SET PRGNODE='CONV'
|
// SET PRGNODE='PROD'
|
||||||
// SET LVDHOLD='YES'
|
// SET LVDHOLD='YES'
|
||||||
//*
|
//*
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||||
//**
|
//**
|
||||||
//********************************************************************
|
//********************************************************************
|
||||||
@ -22,7 +22,7 @@
|
|||||||
//*** FILES COMING FROM ESSP WILL UPLOAD (FTP) TO MAINFRAME DAILY.
|
//*** FILES COMING FROM ESSP WILL UPLOAD (FTP) TO MAINFRAME DAILY.
|
||||||
//****
|
//****
|
||||||
//********************************************************************
|
//********************************************************************
|
||||||
//*** COPY essp ach payments to backup ach file.
|
//*** COPY essp ach payments to backup ach file. raincode testing zl1
|
||||||
//**
|
//**
|
||||||
//********************************************************************
|
//********************************************************************
|
||||||
//**
|
//**
|
||||||
@ -32,7 +32,7 @@
|
|||||||
//OFILE DD DSN=DOESTAX.CONV.ESSP.ACHDD.ARCHIVE(+1),
|
//OFILE DD DSN=DOESTAX.CONV.ESSP.ACHDD.ARCHIVE(+1),
|
||||||
// DISP=(NEW,CATLG,DELETE),
|
// DISP=(NEW,CATLG,DELETE),
|
||||||
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
//SYSPRINT DD SYSOUT=(*)
|
//SYSPRINT DD SYSOUT=(*)
|
||||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||||
//**
|
//**
|
||||||
|
|||||||
@ -5,9 +5,9 @@
|
|||||||
//**** TYPRUN=SCAN,
|
//**** TYPRUN=SCAN,
|
||||||
// REGION=0M
|
// REGION=0M
|
||||||
//**********************************************************************
|
//**********************************************************************
|
||||||
//*** COPY PROD BTC FILES TO HDVL FOR NEW BATCH NO TESTING ZL1
|
//*** COPY PROD BTC FILES TO HDVL FOR NEW BATCH raincode tESTING ZL1
|
||||||
//**********************************************************************
|
//**********************************************************************
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCS.BATCH.LIB
|
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||||
//*
|
//*
|
||||||
//COPY1Z EXEC PGM=IDCAMS
|
//COPY1Z EXEC PGM=IDCAMS
|
||||||
|
|||||||
@ -13,7 +13,7 @@
|
|||||||
// SET LDEST=U@PRT65
|
// SET LDEST=U@PRT65
|
||||||
// SET PRTHOLD='YES'
|
// SET PRTHOLD='YES'
|
||||||
//*
|
//*
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||||
//****
|
//****
|
||||||
//* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP
|
//* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP
|
||||||
|
|||||||
@ -23,14 +23,14 @@
|
|||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||||
//*
|
//*
|
||||||
//* STD BACKUP BEFORE DATA FILE UPDATE
|
//* STD BACKUP BEFORE DATA FILE UPDATE
|
||||||
//*STEP0100 EXEC DTSUTVSM,
|
//STEP0100 EXEC DTSUTVSM,
|
||||||
//* BKUPGEN='(+1)'
|
// BKUPGEN='(+1)'
|
||||||
//*
|
//*
|
||||||
//STEP0200 EXEC DTSUEXT3, BD400 PERIODIC EXTRACT
|
//STEP0200 EXEC DTSUEXT3, BD400 PERIODIC EXTRACT
|
||||||
// RUNTYPE='QP',
|
// RUNTYPE='QP',
|
||||||
// PREBACK='Y'
|
// PREBACK='Y'
|
||||||
//STEP0100.EXTPARM DD *
|
//STEP0100.EXTPARM DD *
|
||||||
320
|
320,244,
|
||||||
//* STD BACKUP AFTER DATA FILE UPDATE
|
//* STD BACKUP AFTER DATA FILE UPDATE
|
||||||
//** (NOT NEEDED IF RUN IMMEDIATELY BEFORE
|
//** (NOT NEEDED IF RUN IMMEDIATELY BEFORE
|
||||||
//STEP0200 EXEC DTSRS320
|
//STEP0200 EXEC DTSRS320
|
||||||
|
|||||||
@ -29,12 +29,15 @@
|
|||||||
//*
|
//*
|
||||||
//**
|
//**
|
||||||
//DTSF513 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX513,
|
//DTSF513 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX513,
|
||||||
//** DISP=(NEW,CATLG,CATLG),
|
// DISP=(NEW,CATLG,CATLG),
|
||||||
// DISP=(OLD,KEEP,KEEP),
|
//* DISP=(OLD,KEEP,KEEP),
|
||||||
// UNIT=SYSDA,
|
// UNIT=SYSDA,
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
// SPACE=(800,(1000,1000),RLSE),
|
// SPACE=(800,(1000,1000),RLSE),
|
||||||
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
|
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=80)
|
||||||
//*
|
//*
|
||||||
|
//
|
||||||
|
//
|
||||||
//*** SEND DATA TO SERVER FOR UPLOAD
|
//*** SEND DATA TO SERVER FOR UPLOAD
|
||||||
//STEP0300 EXEC PGM=FTP TO DATA VALIDATION DATABASE
|
//STEP0300 EXEC PGM=FTP TO DATA VALIDATION DATABASE
|
||||||
//SYSPRINT DD SYSOUT=*
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
|||||||
151
JCL/DTSZPAYT.jcl
Normal file
151
JCL/DTSZPAYT.jcl
Normal file
@ -0,0 +1,151 @@
|
|||||||
|
//DTSGPAYT JOB (UI,4300,03410,P),'DECRYPT/PAYMTS-TDEC',REGION=4000K,
|
||||||
|
// USER=#DOADTS,
|
||||||
|
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
|
||||||
|
/*ROUTE PRINT U@PRT65
|
||||||
|
//********************************************************************
|
||||||
|
//**** TDEC PAYMENT FILES ARE ENCRYPTED USING PKZIP
|
||||||
|
//**** WITH OCTO DATA CENTER PUBLIC KEY.
|
||||||
|
//****
|
||||||
|
//*** ANY QUESTIONS WITH PGP SHOULD BE DIRECTED TO SEAN DUNN
|
||||||
|
//****
|
||||||
|
//*** FILES COMING FROM TDEC SHOULD USE OUR (OCTO) PUBLIC KEY.
|
||||||
|
//****
|
||||||
|
//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY.
|
||||||
|
//****
|
||||||
|
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
|
||||||
|
//********************************************************************
|
||||||
|
//******** CHANGE QTR PARM TO CURRENT QTR **********
|
||||||
|
// SET CURRQTR='Q2017Q4'
|
||||||
|
//*
|
||||||
|
// SET LVLNODE='CONV'
|
||||||
|
// SET MSTNODE='PROD'
|
||||||
|
// SET PRGNODE='CONV'
|
||||||
|
// SET IMPNODE='CONV'
|
||||||
|
// SET LVDHOLD='YES'
|
||||||
|
// SET EXTNODE='CONV'
|
||||||
|
// SET RPTNODE='ESSP.BX420.RPT'
|
||||||
|
//*
|
||||||
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
|
||||||
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||||
|
//**
|
||||||
|
//* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)
|
||||||
|
//**** GET TDEC ENCRYPTED REPORT PAYMENT FILE
|
||||||
|
//********************************************************************
|
||||||
|
//*********************************************************************
|
||||||
|
//STEP0111 EXEC PGM=IDCAMS, INITIALIZE EMPTY PAYMENT FILE
|
||||||
|
// COND=(4,LT) GENERATION
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//INDD01 DD DUMMY
|
||||||
|
//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.PAYMT(+1),
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||||
|
//*********************************************************************
|
||||||
|
//*
|
||||||
|
//*********************************************************************
|
||||||
|
//STEP0112 EXEC PGM=IDCAMS, FEEDS INTO BX530 PAYMENTS
|
||||||
|
// COND=(4,LT) GENERATION
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//INDD01 DD DUMMY
|
||||||
|
//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.DOES.RPTPAY(+1),
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//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
|
||||||
|
//**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.PARMLIB(DTSFTDPT),DISP=SHR
|
||||||
|
//*
|
||||||
|
//********************************************************************
|
||||||
|
//**** DECRYPT TDEC PAYMENT FILE INTO DATAOUT
|
||||||
|
//********************************************************************
|
||||||
|
//*
|
||||||
|
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
|
||||||
|
//*ECRYPT EXEC SECODEC,COND=(0,LT)
|
||||||
|
//STEPCRTP EXEC PGM=IDCAMS,
|
||||||
|
// COND=(0,LT)
|
||||||
|
//INDD01 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
|
||||||
|
//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||||
|
//*
|
||||||
|
//********************************************************************
|
||||||
|
//*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE.
|
||||||
|
//**
|
||||||
|
//********************************************************************
|
||||||
|
//**
|
||||||
|
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
|
||||||
|
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),DISP=SHR
|
||||||
|
//**
|
||||||
|
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.PAYMT(+1),DISP=SHR
|
||||||
|
//* DISP=(NEW,CATLG,DELETE),
|
||||||
|
//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||||
|
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//SYSPRINT DD SYSOUT=(*)
|
||||||
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||||
|
//**
|
||||||
|
//********************************************************************
|
||||||
|
//*** COPY TDEC REPORT PAYMENT FILE TO BACKUP QUARTER FILE
|
||||||
|
//**
|
||||||
|
//********************************************************************
|
||||||
|
//**
|
||||||
|
//COPYPAYT EXEC PGM=IDCAMS,COND=(0,LT)
|
||||||
|
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),DISP=SHR
|
||||||
|
//**
|
||||||
|
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT.&CURRQTR.,
|
||||||
|
//* DISP=(NEW,CATLG,DELETE),
|
||||||
|
// DISP=MOD,
|
||||||
|
// UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//SYSPRINT DD SYSOUT=(*)
|
||||||
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||||
|
//**
|
||||||
|
//**
|
||||||
|
//COPYFTPT EXEC PGM=IDCAMS,COND=(0,LT)
|
||||||
|
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),DISP=SHR
|
||||||
|
//**
|
||||||
|
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DAILY.FTPWEB.PAYMT,
|
||||||
|
//* DISP=(NEW,CATLG,DELETE),
|
||||||
|
// DISP=SHR,
|
||||||
|
// UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//SYSPRINT DD SYSOUT=(*)
|
||||||
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||||
|
//*
|
||||||
|
//************************* COMMENT OUT HERE FOR NOW ZL1 *******************************************
|
||||||
|
//**** 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
|
||||||
|
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDEPAY),DISP=SHR
|
||||||
|
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDPAYT),DISP=SHR
|
||||||
|
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDPAY),DISP=SHR
|
||||||
|
//*
|
||||||
|
//*
|
||||||
|
//STEP0200 EXEC DTSZXPAY
|
||||||
|
//
|
||||||
|
//STEP0200 EXEC DTSRSESP
|
||||||
|
//***
|
||||||
|
//* 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
|
||||||
|
//**
|
||||||
156
JCL/DTSZWAGE.jcl
Normal file
156
JCL/DTSZWAGE.jcl
Normal file
@ -0,0 +1,156 @@
|
|||||||
|
//DTSGWAGE JOB (UI,4300,03410,P),'DECRYPT/WAGES--TDEC',REGION=4000K,
|
||||||
|
// USER=#DOADTS,
|
||||||
|
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
|
||||||
|
/*ROUTE PRINT U@PRT65
|
||||||
|
//********************************************************************
|
||||||
|
//**** TDEC WAGE DATA FILES ARE ENCRYPTED USING PKZIP
|
||||||
|
//**** WITH OCTO DATA CENTER PUBLIC KEY.
|
||||||
|
//******************* SET QTR PARM TO CURRENT QTR
|
||||||
|
//*******************************************************************
|
||||||
|
//****
|
||||||
|
// SET CURRQTR='Q2021Q2'
|
||||||
|
//****
|
||||||
|
//*** FILES COMING FROM TDEC SHOULD USE OUR (OCTO) PUBLIC KEY.
|
||||||
|
//****
|
||||||
|
//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY.
|
||||||
|
//****
|
||||||
|
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
|
||||||
|
//********************************************************************
|
||||||
|
//**** MODIFIED JCL TO USE DIFFERENT PARMS TO RETRIEVE AND DELETE TDEC
|
||||||
|
//**** WAGE FILE
|
||||||
|
//**DFLT DTSFTEON - GET TDEC WAGE FILE WITH NO DATES
|
||||||
|
//****** DTSFTDON - GET TDEC WAGE FILE WITH DATES IN FILE NAME
|
||||||
|
//**DFLT DTSDEWAG - DELETE TDEC WAGE FILE WITH NO DATES
|
||||||
|
//****** DTSDDEAG - DELETE TDEC WAGE FILE WIT DATES IN FILE NAME
|
||||||
|
//************************************************* 12/24/14 ZL1
|
||||||
|
//****
|
||||||
|
//**** 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
|
||||||
|
//**PUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDREON),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)
|
||||||
|
//*ECRYPT EXEC SECODEC,COND=(0,LT)
|
||||||
|
//COPYCRYT EXEC PGM=IDCAMS,COND=(0,LT)
|
||||||
|
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR
|
||||||
|
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
||||||
|
// 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.
|
||||||
|
//**
|
||||||
|
//********************************************************************
|
||||||
|
//**
|
||||||
|
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
|
||||||
|
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR
|
||||||
|
//**
|
||||||
|
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.WAGES(+1),
|
||||||
|
// DISP=(NEW,CATLG,DELETE),
|
||||||
|
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||||
|
// 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 ESSP FTP FILE.
|
||||||
|
//**
|
||||||
|
//********************************************************************
|
||||||
|
//**
|
||||||
|
//COPYESSP EXEC PGM=IDCAMS,COND=(0,LT)
|
||||||
|
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR
|
||||||
|
//**
|
||||||
|
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.TXT,DISP=SHR
|
||||||
|
//* DISP=(NEW,CATLG,DELETE),
|
||||||
|
//* DISP=SHR,
|
||||||
|
//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||||
|
//* DCB=(SYS3.MODEL,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 QUARTER FILE.
|
||||||
|
//**
|
||||||
|
//********************************************************************
|
||||||
|
//**
|
||||||
|
//COPYFQTR EXEC PGM=IDCAMS,COND=(0,LT)
|
||||||
|
//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=MOD,
|
||||||
|
// UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//SYSPRINT DD SYSOUT=(*)
|
||||||
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||||
|
//**
|
||||||
|
//
|
||||||
|
//****************** stop here for now zl1 S**************************************************
|
||||||
|
//**** 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
|
||||||
|
//**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.PARMLIB(DTSDDWAG),DISP=SHR
|
||||||
|
//*
|
||||||
|
//ESSPMAIL EXEC PGM=IEBGENER,COND=(8,NE,TDECDEL),
|
||||||
|
// REGION=4M
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//OUT1 OUTPUT DEST=U1003,
|
||||||
|
//* USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM',
|
||||||
|
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
|
||||||
|
// 'TO:ARAVIND.VITTA@SAGITEC.COM',
|
||||||
|
// 'TO:PRABHU.TEGUR@SAGITEC.COM',
|
||||||
|
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
|
||||||
|
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
|
||||||
|
//* 'TO:ZARATH.LALPUTAN@DC.GOV',
|
||||||
|
// 'SUBJECT: ##### NO TDEC REPORT WAGES TODAY !!!!...ZL1',
|
||||||
|
//* 'FILEDESC: DAILY ESSP-DUTAS UPLOAD ',
|
||||||
|
// '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
|
||||||
|
//SYSIN DD DUMMY
|
||||||
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||||
|
//*
|
||||||
|
//ESSPMAIL 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:PRABHU.TEGUR@SAGITEC.COM',
|
||||||
|
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
|
||||||
|
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
|
||||||
|
// 'TO:ZARATH.LALPUTAN@DC.GOV',
|
||||||
|
// 'SUBJECT: ESSP TDEC WAGES READY 4 PICKUP',
|
||||||
|
//* 'FILEDESC: DAILY ESSP-DUTAS UPLOAD ',
|
||||||
|
// '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
|
||||||
|
//SYSIN DD DUMMY
|
||||||
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||||
|
//
|
||||||
@ -28,10 +28,9 @@
|
|||||||
//*-----------------------------------------------------
|
//*-----------------------------------------------------
|
||||||
//* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS
|
//* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS
|
||||||
//*-----------------------------------------------------
|
//*-----------------------------------------------------
|
||||||
//STEPWF EXEC PGM=FTP,
|
//STEPWF EXEC PGM=FTP,PARM='-r TLS safetrans.wellsfargo.com'
|
||||||
// PARM='-r TLS safetrans.wellsfargo.com'
|
//*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN)
|
||||||
//*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPWFIN)
|
//NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
|
||||||
//NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPFIN)
|
|
||||||
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT)
|
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT)
|
||||||
// DD *
|
// DD *
|
||||||
FWFRIENDLY TRUE
|
FWFRIENDLY TRUE
|
||||||
@ -57,20 +56,21 @@ FWFRIENDLY TRUE
|
|||||||
//**
|
//**
|
||||||
//********************************************************************
|
//********************************************************************
|
||||||
//*** send email ach returns received from wells fargo.
|
//*** send email ach returns received from wells fargo.
|
||||||
//**
|
//*
|
||||||
//********************************************************************
|
//********************************************************************
|
||||||
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),
|
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),
|
||||||
// REGION=4M
|
// REGION=4M
|
||||||
//SYSPRINT DD SYSOUT=*
|
//SYSPRINT DD SYSOUT=*
|
||||||
//OUT1 OUTPUT DEST=U1003,
|
//OUT1 OUTPUT DEST=U1003,
|
||||||
// USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM',
|
// USERDATA=('TO:rosalind.holbrook@dc.gov',
|
||||||
// 'TO:aravind.vitta@sagitec.com',
|
// 'TO:aravind.vitta@sagitec.com',
|
||||||
// 'TO:NANCY.HUDAK@DC.GOV',
|
// 'TO:rajini.jujjavarapu@dc.gov',
|
||||||
// 'TO:ZARATH.LALPUTAN@DC.GOV',
|
// 'TO:ZARATH.LALPUTAN@DC.GOV',
|
||||||
// 'TO:margaret.hernandez@dc.gov',
|
// 'TO:margaret.hernandez@dc.gov',
|
||||||
// 'TO:geraldine.hester@dc.gov',
|
// 'TO:yinka.olarewaju-alo@dc.gov',
|
||||||
// 'TO:esayas.lemma@dc.gov',
|
// 'TO:joy.diggs@dc.gov',
|
||||||
// 'TO:ryan.moore-lee@dc.gov',
|
//* 'TO:macarena.cantelas@dc.gov',
|
||||||
|
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
|
||||||
// 'SUBJECT:ESSP DAILY ACH RETURNS RECEIVED FROM WELLS FARGO',
|
// 'SUBJECT:ESSP DAILY ACH RETURNS RECEIVED FROM WELLS FARGO',
|
||||||
// 'FILEDESC: ESSP ACH RETURNS FORM WELLS FARGO ',
|
// 'FILEDESC: ESSP ACH RETURNS FORM WELLS FARGO ',
|
||||||
// 'FILENAME:ESSP_DUTAS_ACHRETURNS.TXT'),
|
// 'FILENAME:ESSP_DUTAS_ACHRETURNS.TXT'),
|
||||||
|
|||||||
159
Procs/DTSBXPAZ
Normal file
159
Procs/DTSBXPAZ
Normal file
@ -0,0 +1,159 @@
|
|||||||
|
//**** 00000010
|
||||||
|
//* PROCESS TDEC REPORT PAYMENTS 00001700
|
||||||
|
//* 00001700
|
||||||
|
//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700
|
||||||
|
//** 00001700
|
||||||
|
//DTSBXPAY PROC
|
||||||
|
//** 00001700
|
||||||
|
//STEP0100 EXEC PGM=SORT,
|
||||||
|
// COND=(0,LT)
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//*
|
||||||
|
//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT,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..TDEC.DOES.RPTPAY(+1),
|
||||||
|
//* DISP=(NEW,CATLG,DELETE),
|
||||||
|
// DISP=SHR
|
||||||
|
//* UNIT=SYSDA,
|
||||||
|
//* SPACE=(30720,(1000,1000),RLSE), 00008000
|
||||||
|
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00009000
|
||||||
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR
|
||||||
|
//*
|
||||||
|
//STEP0200 EXEC PGM=DTSBX437,
|
||||||
|
// COND=(0,LT),
|
||||||
|
// REGION=0M
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//SYSABOUT DD SYSOUT=*
|
||||||
|
//SYSABEND DD SYSOUT=*
|
||||||
|
//SYSUDUMP DD SYSOUT=*
|
||||||
|
//* 00001700
|
||||||
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||||
|
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
|
||||||
|
// AMP=('BUFNI=5,BUFND=10')
|
||||||
|
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
||||||
|
// AMP=('BUFNI=5,BUFND=10')
|
||||||
|
//***
|
||||||
|
//DTSFX145 DD DSN=DOESTAX.&IMPNODE..TDEC.DOES.RPTPAY(+1),
|
||||||
|
// DISP=SHR 00006000
|
||||||
|
//* 00001700
|
||||||
|
//DTSPX145 DD DSN=&&PENDX140, 00005000
|
||||||
|
// DISP=(NEW,PASS,DELETE), 00006000
|
||||||
|
// UNIT=SYSDA, 00007000
|
||||||
|
// SPACE=(8192,(1000,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//* 00001700
|
||||||
|
//DTSFBTCO DD DSN=DOESTAX.&IMPNODE..ESSP.X437.BTC, 00005000
|
||||||
|
//* DISP=(NEW,CATLG,DELETE), 00006000
|
||||||
|
// DISP=SHR, 00006000
|
||||||
|
//* DISP=MOD, 00006000
|
||||||
|
// UNIT=SYSDA, 00007000
|
||||||
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||||
|
//*
|
||||||
|
//X437RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X437PAID.TXT(+1),
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
//* DISP=(OLD,KEEP,KEEP),
|
||||||
|
// SPACE=(30000,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
|
||||||
|
//*
|
||||||
|
//X437RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X437PEND.TXT(+1),
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
//* DISP=(OLD,KEEP,KEEP),
|
||||||
|
// SPACE=(30000,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330)
|
||||||
|
//*
|
||||||
|
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+1), 00409000
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
//* DISP=(OLD,KEEP,KEEP), 00410000
|
||||||
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||||
|
//***********************************************************
|
||||||
|
//* SEND EMAIL WHEN REPORT PAYMENTS PROCESSED
|
||||||
|
//***********************************************************
|
||||||
|
//*STEP0300 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M
|
||||||
|
//*SYSPRINT DD SYSOUT=*
|
||||||
|
//*OUT1 OUTPUT DEST=U1003,
|
||||||
|
//* USERDATA=('TO:SRUJANI.CHANDRAGIRI@DC.GOV',
|
||||||
|
//* 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
|
||||||
|
//* 'CC:MARGARET.HERNANDEZ@DC.GOV',
|
||||||
|
//* 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
|
||||||
|
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
|
||||||
|
//* 'CC:JOY.DIGGS@DC.GOV',
|
||||||
|
//* 'CC:YINKA.OLAREWAJU-ALO@DC.GOV',
|
||||||
|
//* 'SUBJECT: TDEC DAILY REPORT PAYMENTS ......ZL1',
|
||||||
|
//* 'FILEDESC: DOES TDEC REPORT PAYMENTS ',
|
||||||
|
//* 'FILENAME:TDEC_DUTAS_RPTPAYMTS.TXT'),
|
||||||
|
//* MAILFROM=DUTAS@DC.GOV
|
||||||
|
//*SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.X437PAID.TXT(+1),DISP=SHR
|
||||||
|
//*SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||||
|
//*SYSIN DD DUMMY
|
||||||
|
//*
|
||||||
|
//***********************************************************
|
||||||
|
//*STEP0310 EXEC PGM=IEBGENER,COND=(8,NE,DECRYPT),REGION=4M
|
||||||
|
//*SYSPRINT DD SYSOUT=*
|
||||||
|
//*OUT1 OUTPUT DEST=U1003,
|
||||||
|
//* USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
|
||||||
|
//* 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
|
||||||
|
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
|
||||||
|
//* 'SUBJECT: ++++ NO TDEC PAYMENTS TODAY ++++..ZL1',
|
||||||
|
//* 'FILEDESC: TDEC DUTAS PAYMT REPORT ',
|
||||||
|
//* 'FILENAME:TDEC_DUTAS.TXT'),
|
||||||
|
//* MAILFROM=DUTAS@DC.GOV
|
||||||
|
//*SYSUT1 DD DSN=DOESTAX.&EXTNODE..TDEC.ERORPAYT.TXT,DISP=SHR
|
||||||
|
//*SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||||
|
//*SYSIN DD DUMMY
|
||||||
|
//*
|
||||||
|
//*
|
||||||
|
//STEP0400 EXEC PGM=IDCAMS, COPY X140 PENDING TO GDG
|
||||||
|
// COND=(4,LT)
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//INDD01 DD DSN=&&PENDX140,
|
||||||
|
// DISP=(OLD,DELETE,DELETE), 00006000
|
||||||
|
// UNIT=SYSDA, 00007000
|
||||||
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.PENDING.X437.PAY(+1),
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
//* DISP=SHR,
|
||||||
|
// SPACE=(25600,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||||
|
//*
|
||||||
|
//*********************************************************************
|
||||||
|
//*
|
||||||
|
//STEP0410 EXEC PGM=IDCAMS, COPY X144 PENDING TO GDG
|
||||||
|
// COND=(0,LT)
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//INDD01 DD DSN=&&PENDX144,
|
||||||
|
// DISP=(OLD,DELETE,DELETE), 00006000
|
||||||
|
// UNIT=SYSDA, 00007000
|
||||||
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X144,
|
||||||
|
//* DISP=(,CATLG,DELETE),
|
||||||
|
// DISP=SHR,
|
||||||
|
// SPACE=(25600,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||||
|
//*
|
||||||
|
//*********************************************************************
|
||||||
|
//STEP0420 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG
|
||||||
|
// COND=(0,LT)
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//INDD01 DD DSN=&&PENDX145,
|
||||||
|
// DISP=(OLD,DELETE,DELETE), 00006000
|
||||||
|
// UNIT=SYSDA, 00007000
|
||||||
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X145,
|
||||||
|
//* DISP=(,CATLG,DELETE),
|
||||||
|
// DISP=SHR,
|
||||||
|
// SPACE=(25600,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||||
|
//*
|
||||||
|
//*********************************************************************
|
||||||
124
Procs/DTSBZCHK
Normal file
124
Procs/DTSBZCHK
Normal file
@ -0,0 +1,124 @@
|
|||||||
|
//**** 00000010
|
||||||
|
//* PROCESS TDEC CHECK DEPOSIT FILES 00001700
|
||||||
|
//* 00001700
|
||||||
|
//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700
|
||||||
|
//** 00001700
|
||||||
|
//DTSBXCHK PROC
|
||||||
|
//** 00001700
|
||||||
|
//STEP0210 EXEC PGM=SORT, SORT TRANSACTIONS
|
||||||
|
// COND=(0,LT)
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//*
|
||||||
|
//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), 00008000
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00009000
|
||||||
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR
|
||||||
|
//*
|
||||||
|
//STEP0220 EXEC PGM=DTSBX429,
|
||||||
|
// COND=(0,LT),
|
||||||
|
// REGION=0M
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//SYSABOUT DD SYSOUT=*
|
||||||
|
//SYSABEND DD SYSOUT=*
|
||||||
|
//SYSUDUMP DD SYSOUT=*
|
||||||
|
//* 00001700
|
||||||
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||||
|
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
|
||||||
|
// AMP=('BUFNI=5,BUFND=10')
|
||||||
|
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
||||||
|
// AMP=('BUFNI=5,BUFND=10')
|
||||||
|
//***
|
||||||
|
//DTSFX145 DD DSN=DOESTAX.&IMPNODE..TDECDOES.CHKPAY(+1),
|
||||||
|
// DISP=SHR 00006000
|
||||||
|
//* 00001700
|
||||||
|
//DTSPX145 DD DSN=&&PENDX145, 00005000
|
||||||
|
// DISP=(NEW,PASS,DELETE), 00006000
|
||||||
|
// UNIT=SYSDA, 00007000
|
||||||
|
// SPACE=(8192,(1000,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//* 00001700
|
||||||
|
//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..TDEC.X429.BTC, 00005000
|
||||||
|
//* DISP=(NEW,CATLG,DELETE), 00006000
|
||||||
|
// DISP=SHR, 00006000
|
||||||
|
//* DISP=MOD, 00006000
|
||||||
|
// UNIT=SYSDA, 00007000
|
||||||
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||||
|
//*
|
||||||
|
//X429RPT1 DD DSN=DOESTAX.&LVLNODE..TDEC.X429PAID.TXT(+1),
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
//* DISP=(OLD,KEEP,KEEP),
|
||||||
|
// SPACE=(30000,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
|
||||||
|
//*
|
||||||
|
//X429RPT2 DD DSN=DOESTAX.&LVLNODE..TDEC.X429PEND.TXT(+1),
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
//* DISP=(OLD,KEEP,KEEP),
|
||||||
|
// SPACE=(30000,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330)
|
||||||
|
//*
|
||||||
|
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+1), 00409000
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
//* DISP=(OLD,KEEP,KEEP), 00410000
|
||||||
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||||
|
//*
|
||||||
|
//STEP0250 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG
|
||||||
|
// COND=(3,LT)
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//INDD01 DD DSN=&&PENDX145,
|
||||||
|
// DISP=(OLD,DELETE,DELETE), 00006000
|
||||||
|
// UNIT=SYSDA, 00007000
|
||||||
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.PENDING.X429.CHKS(+1),
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
//* DISP=SHR,
|
||||||
|
// SPACE=(25600,(100,200),RLSE),
|
||||||
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||||
|
//*
|
||||||
|
//*********************************************************************
|
||||||
|
//
|
||||||
|
//STEP0260 EXEC PGM=IDCAMS, COPY CHKS RECEIVE TO QTR FILE
|
||||||
|
// COND=(3,LT)
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//INDD01 DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS,
|
||||||
|
// DISP=OLD, 00006000
|
||||||
|
// UNIT=SYSDA, 00007000
|
||||||
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS.G2014Q4,
|
||||||
|
//* DISP=(,CATLG,DELETE),
|
||||||
|
// DISP=MOD,
|
||||||
|
// SPACE=(25600,(100,200),RLSE),
|
||||||
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||||
|
//
|
||||||
|
//**************** END OF PROC FOR NOW ZL1******
|
||||||
|
//STEP0420 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG
|
||||||
|
// COND=(0,LT)
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//INDD01 DD DSN=&&PENDX145,
|
||||||
|
// DISP=(OLD,DELETE,DELETE), 00006000
|
||||||
|
// UNIT=SYSDA, 00007000
|
||||||
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X145,
|
||||||
|
//* DISP=(,CATLG,DELETE),
|
||||||
|
// DISP=SHR,
|
||||||
|
// SPACE=(25600,(100,200),RLSE),
|
||||||
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||||
|
//*
|
||||||
|
//*********************************************************************
|
||||||
396
Procs/DTSRERPZ
Normal file
396
Procs/DTSRERPZ
Normal file
@ -0,0 +1,396 @@
|
|||||||
|
//*****
|
||||||
|
//** ON REQ RPT GENERATION
|
||||||
|
//*****
|
||||||
|
//*DTSRQRPT PROC LDEST='U@PRT155',
|
||||||
|
//DTSRQRPT PROC LDEST='LOCAL',
|
||||||
|
// LVDHOLD='YES'
|
||||||
|
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00001702
|
||||||
|
//DOESLBL1 EXEC PGM=IDCAMS, 00001806
|
||||||
|
// COND=(3,LT) 00001906
|
||||||
|
//SYSPRINT DD SYSOUT=* 00002006
|
||||||
|
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00002106
|
||||||
|
// UNIT=SYSDA, 00002206
|
||||||
|
// SPACE=(TRK,1), 00002306
|
||||||
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406
|
||||||
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL01), 00002506
|
||||||
|
// DISP=SHR 00002606
|
||||||
|
//**** /* POPULATE THE LABELS WORK FILE 00003105
|
||||||
|
//DOESLBL2 EXEC PGM=IDCAMS, 00003206
|
||||||
|
// COND=(3,LT) 00003306
|
||||||
|
//SYSPRINT DD SYSOUT=* 00003405
|
||||||
|
//FILEIN DD DSN=&&TMP901, 00003505
|
||||||
|
// DISP=(OLD,DELETE,DELETE), 00003605
|
||||||
|
// UNIT=SYSDA 00003705
|
||||||
|
//DOESVRO1 DD DSN=&&LBL901, 00003805
|
||||||
|
// DISP=(NEW,PASS,DELETE), 00003905
|
||||||
|
// UNIT=SYSDA, 00004005
|
||||||
|
// SPACE=(8192,(1000,1000),RLSE), 00004105
|
||||||
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004205
|
||||||
|
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSLBL02), 00004305
|
||||||
|
// DISP=SHR 00004405
|
||||||
|
//** 00004705
|
||||||
|
//STEP0100 EXEC PGM=DTSBD800, OUTPUT GENERATION
|
||||||
|
// COND=(3,LT)
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//SYSABOUT DD SYSOUT=*
|
||||||
|
//SYSUDUMP DD SYSOUT=*
|
||||||
|
//**
|
||||||
|
//PARMIN DD DUMMY
|
||||||
|
//**
|
||||||
|
//ATLSTIN DD DUMMY
|
||||||
|
//**
|
||||||
|
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)
|
||||||
|
//**
|
||||||
|
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00100001
|
||||||
|
//** 00100100
|
||||||
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||||
|
//** 00100100
|
||||||
|
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
|
||||||
|
// AMP=('BUFNI=5,BUFND=10')
|
||||||
|
//**
|
||||||
|
//** NEW/REACT/DEACTIVATED EMPLYRS
|
||||||
|
//RPT116R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** GENRC/DEMAND/'8 QTRS 0' INACTVATN LTR
|
||||||
|
//RPT117R1 DD SYSOUT=W,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** '8 QTRS OF NONE' REPORT
|
||||||
|
//RPT119R1 DD SYSOUT=0,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** POTENTIONALLY FICTITIOUS EMPLOYERS
|
||||||
|
//RPT120R1 DD SYSOUT=Z,COPIES=2,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** LIABILITY DETERMINATION ACTIVITY LIST
|
||||||
|
//RPT122R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//RPT122R2 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//RPT122R3 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//RPT122R4 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//RPT122R5 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//RPT122R6 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** EMPLYRS W/05/06/09/11 STATUS CODES
|
||||||
|
//RPT123R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** EMPLOYER ALPHA LIST
|
||||||
|
//RPT125R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** EMPLOYER FLD-REP-ID = '??' RPT
|
||||||
|
//RPT129R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** WEB REGISTRATION CYCLE A RPT
|
||||||
|
//RPT130R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** WEB REGISTRATION ERROR REPORT
|
||||||
|
//RPT140R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** ACCOUNT NUMBER CHANGED
|
||||||
|
//RPT204R1 DD SYSOUT=O,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** TRIAL BAL RPT
|
||||||
|
//RPT305R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.,
|
||||||
|
// HOLD=&LVDHOLD.
|
||||||
|
//** ACCT SUMMARY RPT
|
||||||
|
//RPT306R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** EMPLR ACCT CREDIT BAL RPT
|
||||||
|
//RPT308R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** STATEMENT OF ACCT (CR-MEMO-SM)
|
||||||
|
//RPT309R1 DD SYSOUT=W,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** STATEMENT OF ACCT (CR-MEMO-PC)
|
||||||
|
//RPT309R2 DD SYSOUT=I,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** STATEMENT OF ACCT - -CTRL RPT
|
||||||
|
//RPT310R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** STATEMENT OF ACCT - -CREDIT RPT
|
||||||
|
//RPT315R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** QUARTERLY LATE PAYMENT NOTICE
|
||||||
|
//RPT320R1 DD SYSOUT=*
|
||||||
|
//RPT320R2 DD SYSOUT=*
|
||||||
|
//RPT320R3 DD SYSOUT=W,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** QUARTERLY MISSING REPORT NOTICE
|
||||||
|
//RPT320R4 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** SI EMPLOYER ADMIN ASSESSMENT LETTER
|
||||||
|
//RPT325R1 DD SYSOUT=W,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** SI EMPLOYER ADMIN ASSESSMENT RPT2
|
||||||
|
//RPT325R2 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** SI EMPLOYER ADMIN ASSESSMENT RPT3
|
||||||
|
//RPT325R3 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** SI EMPLOYER ADMIN ASSESSMENT RPT4
|
||||||
|
//RPT325R4 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** SI EMPLOYER ADMIN ASSESSMENT RPT5
|
||||||
|
//RPT325R5 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** STATEMENT OF ACCT - -CREDIT RPT
|
||||||
|
//RPT410R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** OPEN BANKRUPTCIES LIST
|
||||||
|
//RPT411R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** ESTIMATED REPORT LIST
|
||||||
|
//RPT412R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** NO ESTIMATED REPORT LIST
|
||||||
|
//RPT412R2 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** WRITE OFF CANDIDATES LIST
|
||||||
|
//RPT413R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** MONTHLY DEBIT MEMO
|
||||||
|
//RPT414R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//RPT414R2 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//RPT414R3 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//RPT414R5 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** COMMA SEPARATED COPY OF FILE 2
|
||||||
|
//RPT414R4 DD DUMMY
|
||||||
|
//**
|
||||||
|
//** ALL EMPLOYERS RECEIVIG BILLS
|
||||||
|
//RPT414R6 DD DUMMY
|
||||||
|
//**
|
||||||
|
//** WRITE 416 REPORT
|
||||||
|
//RPT416R1 DD SYSOUT=O,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** DELIQUENT REPORT NOTICES (UC-8)
|
||||||
|
//RPT417R1 DD SYSOUT=W,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** DELINQUERNT EMPLYR ACCT NBR LIST
|
||||||
|
//RPT418R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** FINAL NOTICE DELINQUENCY LIST
|
||||||
|
//** (NOW PRODUCED AS RPT422R2)
|
||||||
|
//RPT420R1 DD DUMMY
|
||||||
|
//**RPT420R1 DD SYSOUT=Z,
|
||||||
|
//** DEST=&LDEST.
|
||||||
|
//** FINAL DELINQUENCY NOTICE
|
||||||
|
//RPT421R1 DD SYSOUT=W,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** FINAL DELINQUENCY REPORT LIST
|
||||||
|
//RPT422R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** FINAL DELINQUENCY REPORT LIST (2)
|
||||||
|
//RPT422R2 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** PRIOR DELINQUENT LIST - FLD REP/1 ENTRY
|
||||||
|
//RPT423R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** PRIOR DELINQUENT LIST - FLD REP/2 ENTRIES
|
||||||
|
//RPT423R2 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** PRIOR DELINQUENT LIST - FLD REP/3+ ENTRIES
|
||||||
|
//RPT423R3 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** COLLECTIONS SUMMARY RPT
|
||||||
|
//RPT426R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** TOTAL BAL DUE > $?? RPT
|
||||||
|
//RPT429R1 DD SYSOUT=Z,COPIES=2,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** SECOND NOTICE FOR REIMBURSBLE EMPLYS
|
||||||
|
//RPT433R1 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** REPORT OF SECOND NOTICE FOR VIEW DIR
|
||||||
|
//RPT433R2 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** OVER 120 DAYS DELINQUENCY LIST
|
||||||
|
//RPT435R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** EMPLOYERS AGING ACCOUNT RECEIVABLE REPORT
|
||||||
|
//RPT442R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** FIRST DELINQUENT ANNUAL SELF MAILER
|
||||||
|
//RPT451R1 DD SYSOUT=W,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** FIRST DELINQUENT ANNUAL REPORT
|
||||||
|
//RPT452R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//RPT452R2 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** FINAL DELINQUENT ANNUAL SELF MAILER
|
||||||
|
//RPT453R1 DD SYSOUT=W,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** FINAL DELINQUENT ANNUAL REPORT
|
||||||
|
//RPT454R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//RPT454R2 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** ESTIMATE RPT CANDIDATES LIST
|
||||||
|
//RPT461R1 DD SYSOUT=Z
|
||||||
|
//RPT461R3 DD SYSOUT=Z
|
||||||
|
//RPT461R2 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** ESTIMATE RPT CANDIDATES LIST
|
||||||
|
//RPT455R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//RPT455R2 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** EMPLYRS QUALIFIED FOR EFF PENALTY
|
||||||
|
//RPT518R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** EMPLYRS QUALIFIED FOR PENALTY RATE
|
||||||
|
//RPT519R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** AUDIT SELECTION CRITERIA
|
||||||
|
//RPT602R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** AUDIT CANDIDATES LIST
|
||||||
|
//RPT602R2 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** AUDIT CANDIDATES SELF MAILER
|
||||||
|
//RPT602R3 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** AUDIT FILE
|
||||||
|
//RPT602F3 DD DUMMY
|
||||||
|
//** ASSIGNMENT SUMMARY - FLD REP
|
||||||
|
//RPT606R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** ASSIGNMENT DETAIL - FLD REP
|
||||||
|
//RPT607R1 DD SYSOUT=I,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** ASSIGNMENT MANAGEMENT RPTS
|
||||||
|
//RPT609R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** ASSIGNMENT MANAGEMENT RPTS
|
||||||
|
//RPT609R2 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** ACT EMPLYRS BY ZIPCODE CNTS
|
||||||
|
//RPT611R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//****CBDATA DD DUMMY
|
||||||
|
//****CBDATA DD DSN=DOES.CICS.FIN730.CBDATA.EX100102,DISP=SHR
|
||||||
|
//** AUDIT ASSGNMNTS W/NO AUDIT RESULTS
|
||||||
|
//RPT612R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** FEILD ASSIGNMENT - DELINQUENCY
|
||||||
|
//RPT615R1 DD SYSOUT=0
|
||||||
|
//** SUCCESSFUL FUTA CERTIFICATIONS
|
||||||
|
//RPT704R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** FAILED FUTA CERTIFICATIONS
|
||||||
|
//RPT705R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** POTENTIAL NON-FEDERAL FILERS
|
||||||
|
//RPT708R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** REQ. FOR FED-ID LETTER (MASS MAILING)
|
||||||
|
//RPT712R1 DD SYSOUT=W,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** ETA-581 ELEMENT RECORDS (EXPORT)
|
||||||
|
//RPT713R1 DD DUMMY
|
||||||
|
//**
|
||||||
|
//** ETA-581 SPEC DEPT OF LABOR REPORT
|
||||||
|
//RPT713R2 DD SYSOUT=O,COPIES=2,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//**
|
||||||
|
//RPT715R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//**
|
||||||
|
//***** SEE PROC DTSTPRPT FOR TPS FILES
|
||||||
|
//** TPS EXPERIENCE RATING (EXPORT)
|
||||||
|
//**RPT723R1 IS IN DTSARRPT
|
||||||
|
//**
|
||||||
|
//** ACCTS AVAIL FOR PURGE LST
|
||||||
|
//RPT729R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** ACCTS AVAIL FOR PURGE LST
|
||||||
|
//RPT730R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** WAGE FILE/TAX FILE COMPARISON
|
||||||
|
//RPT737R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** ELECTRONIC FILER LIST
|
||||||
|
//RPT740R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** LIST OF NEW EMPLOYERS WITHIN RPT PERIOC.
|
||||||
|
//RPT763R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** CICS OP ID LIST
|
||||||
|
//RPT791R1 DD SYSOUT=Z,COPIES=3,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** EMPLYRS W/A MISSING SIC
|
||||||
|
//RPT792R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** FUTA QTRLY FEIN CHANGES
|
||||||
|
//RPT793R1 DD SYSOUT=W,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** FUTA QTRLY FEIN CHANGES
|
||||||
|
//RPT793R2 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** WAGE RPTS (UC-30 QTRLY)
|
||||||
|
//DTS902F1 DD DUMMY
|
||||||
|
//**
|
||||||
|
//** WAGE RPTS (UC-30 DAILY)
|
||||||
|
//*RPT902R1 DD DUMMY
|
||||||
|
//RPT902R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** ONLINE UPDT LOG PARMS (MUST BE HERE*)
|
||||||
|
//PARM906 DD DUMMY,DCB=BLKSIZE=80
|
||||||
|
//** ONLINE UPDATE LOG RPT
|
||||||
|
//RPT906R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
|
||||||
|
//RPT907R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
|
||||||
|
//RPT907R2 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** UC-30 CNTS RPTN
|
||||||
|
//RPT908R1 DD SYSOUT=Z,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//RPT909R1 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//RPT909R2 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//RPT909R3 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//RPT909R4 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//RPT909R5 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//RPT909R6 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** WAGE RPTS (UC-30H YRLY)
|
||||||
|
//DTS910F1 DD DUMMY
|
||||||
|
//**
|
||||||
|
//** WAGE RPTS (UC-30H DAILY)
|
||||||
|
//RPT910R1 DD DUMMY
|
||||||
|
//** CONTROL REPORT SUMMARY
|
||||||
|
//RPT980R1 DD SYSOUT=Q,HOLD=&LVDHOLD.,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//** EXPORT CONTROL REPORTS
|
||||||
|
//RPT991R1 DD SYSOUT=Q,COPIES=2,
|
||||||
|
// DEST=&LDEST.
|
||||||
|
//****
|
||||||
|
//*DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 00131001
|
||||||
|
//* COND=(0,LT), 00140000
|
||||||
|
//* REGION=4096K 00150000
|
||||||
|
//*DOESVRI1 DD DSN=&&LBL901, 00150101
|
||||||
|
//* DISP=(OLD,DELETE,DELETE) 00150201
|
||||||
|
//*SYSOUT DD SYSOUT=* 00151000
|
||||||
|
//*SYSABOUT DD SYSOUT=* 00152000
|
||||||
|
//*SYSABEND DD SYSOUT=* 00153000
|
||||||
|
//*CAIMRPTS DD SYSOUT=* 00154000
|
||||||
|
//*DOESLBL1 DD SYSOUT=(C), 00155101
|
||||||
|
//* FCB=P104, 00155201
|
||||||
|
//* DEST=&LDEST., 00155302
|
||||||
|
//* HOLD=&LVDHOLD. 00155403
|
||||||
|
//** 00157001
|
||||||
|
//**
|
||||||
87
Procs/DTSZX425
Normal file
87
Procs/DTSZX425
Normal file
@ -0,0 +1,87 @@
|
|||||||
|
//**** 00000010
|
||||||
|
//* IMPORT EMPLOYER DATA FROM WEB DATABASE 00001700
|
||||||
|
//* TO MAINFRAME 00001700
|
||||||
|
//* 00001700
|
||||||
|
//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700
|
||||||
|
//** 00001700
|
||||||
|
//DTSBX420 PROC
|
||||||
|
//** 00001700
|
||||||
|
//***** 00001700
|
||||||
|
//STEP0110 EXEC PGM=SORT, SORT TRANSACTIONS
|
||||||
|
// COND=(0,LT)
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//*
|
||||||
|
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR 00005000
|
||||||
|
//*ORTIN DD DSN=DOESTAX.CONV.ESSP.ACHDD.ARCHIVE(+1),DISP=SHR 00005000
|
||||||
|
//*
|
||||||
|
//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=&&WEBIMPRT,
|
||||||
|
// DISP=(NEW,PASS,DELETE),
|
||||||
|
// UNIT=SYSDA,
|
||||||
|
// SPACE=(30720,(1000,1000),RLSE), 00008000
|
||||||
|
// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00009000
|
||||||
|
//*
|
||||||
|
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSX425),DISP=SHR
|
||||||
|
//*
|
||||||
|
//STEP0200 EXEC PGM=DTSBX425,
|
||||||
|
// COND=(0,LT),
|
||||||
|
// REGION=4096K
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//SYSABOUT DD SYSOUT=*
|
||||||
|
//SYSABEND DD SYSOUT=*
|
||||||
|
//SYSUDUMP DD SYSOUT=*
|
||||||
|
//* 00001700
|
||||||
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||||
|
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
||||||
|
// AMP=('BUFNI=5,BUFND=10')
|
||||||
|
//***
|
||||||
|
//EFTFACH DD DSN=&&WEBIMPRT,
|
||||||
|
// DISP=(OLD,DELETE,DELETE),
|
||||||
|
//* DISP=(OLD,KEEP,KEEP),
|
||||||
|
// UNIT=SYSDA,
|
||||||
|
// SPACE=(30720,(1000,1000),RLSE), 00008000
|
||||||
|
// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00009000
|
||||||
|
//* 00001700
|
||||||
|
//X425RPT1 DD DSN=DOESTAX.CONV.ESSP.X425ACHD(+1),
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
//* DISP=SHR,
|
||||||
|
// UNIT=SYSDA,
|
||||||
|
// SPACE=(25600,(100,100),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
|
||||||
|
//*
|
||||||
|
//X425TOTL DD DSN=DOESTAX.CONV.ESSP.DAILY.ACHDTOTL,
|
||||||
|
//* DISP=(,CATLG,DELETE),
|
||||||
|
// DISP=SHR
|
||||||
|
//* UNIT=SYSDA,
|
||||||
|
//* SPACE=(25600,(100,100),RLSE),
|
||||||
|
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
|
||||||
|
//*
|
||||||
|
//DTSFBTCO DD DSN=DOESTAX.DEVL.BX425.BTC,
|
||||||
|
//* DISP=(NEW,CATLG,DELETE),
|
||||||
|
// DISP=(OLD,KEEP,KEEP),
|
||||||
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||||
|
//*
|
||||||
|
//STEP0320 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//OUT1 OUTPUT DEST=U1003,
|
||||||
|
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
|
||||||
|
// 'TO:PANKAJ.SHARMA@SAGITEC.COM',
|
||||||
|
// 'TO:RYAN.MOORE-LEE@DC.GOV',
|
||||||
|
// 'CC:NANCY.HUDAK@DC.GOV',
|
||||||
|
// 'CC:MARGARET.HERNANDEZ@DC.GOV',
|
||||||
|
// 'CC:ESAYAS.LEMMA@DC.GOV',
|
||||||
|
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
|
||||||
|
// 'SUBJECT: ESSP DAILY WELLS FARGO ACH DEPOSITS-VERIFY',
|
||||||
|
//* 'SUBJECT: ESSP 11-2 WELLS FARGO ACH DEPOSITS ',
|
||||||
|
// 'FILEDESC: ESSP ACH DEPOSITS FOR WELLF FARGO ',
|
||||||
|
// 'FILENAME:ESSP_DUTAS_ACHDEPOSITS.TXT'),
|
||||||
|
// MAILFROM=DUTAS@DC.GOV
|
||||||
|
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X425ACHD(+1),DISP=SHR
|
||||||
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||||
|
//SYSIN DD DUMMY
|
||||||
|
//*
|
||||||
|
//*********************************************************************
|
||||||
127
Procs/DTSZXPAY
Normal file
127
Procs/DTSZXPAY
Normal file
@ -0,0 +1,127 @@
|
|||||||
|
//**** 00000010
|
||||||
|
//* PROCESS TDEC REPORT PAYMENTS 00001700
|
||||||
|
//* 00001700
|
||||||
|
//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700
|
||||||
|
//** 00001700
|
||||||
|
//DTSBXPAY PROC
|
||||||
|
//** 00001700
|
||||||
|
//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS
|
||||||
|
// COND=(0,LT)
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//*
|
||||||
|
//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT,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..TDEC.DOES.RPTPAY(+1),DISP=SHR
|
||||||
|
//* DISP=(NEW,CATLG,DELETE),
|
||||||
|
//* DISP=SHR,
|
||||||
|
//* UNIT=SYSDA,
|
||||||
|
//* SPACE=(30720,(1000,1000),RLSE), 00008000
|
||||||
|
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00009000
|
||||||
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR
|
||||||
|
//*
|
||||||
|
//STEP0200 EXEC PGM=DTSBX437,
|
||||||
|
// COND=(0,LT),
|
||||||
|
// REGION=0M
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//SYSABOUT DD SYSOUT=*
|
||||||
|
//SYSABEND DD SYSOUT=*
|
||||||
|
//SYSUDUMP DD SYSOUT=*
|
||||||
|
//* 00001700
|
||||||
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||||
|
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
|
||||||
|
// AMP=('BUFNI=5,BUFND=10')
|
||||||
|
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
||||||
|
// AMP=('BUFNI=5,BUFND=10')
|
||||||
|
//***
|
||||||
|
//DTSFX145 DD DSN=DOESTAX.&IMPNODE..TDEC.DOES.RPTPAY(+1),
|
||||||
|
// DISP=SHR 00006000
|
||||||
|
//* 00001700
|
||||||
|
//DTSPX145 DD DSN=&&PENDX140, 00005000
|
||||||
|
// DISP=(NEW,PASS,DELETE), 00006000
|
||||||
|
// UNIT=SYSDA, 00007000
|
||||||
|
// SPACE=(8192,(1000,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//* 00001700
|
||||||
|
//DTSFBTCO DD DSN=DOESTAX.&IMPNODE..ESSP.ZX437.BTC, 00005000
|
||||||
|
//* DISP=(NEW,CATLG,DELETE), 00006000
|
||||||
|
// DISP=SHR, 00006000
|
||||||
|
//* DISP=MOD, 00006000
|
||||||
|
// UNIT=SYSDA, 00007000
|
||||||
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||||
|
//*
|
||||||
|
//X437RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X437PAID.TXT(+1),
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
//* DISP=(OLD,KEEP,KEEP),
|
||||||
|
// SPACE=(30000,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
|
||||||
|
//*
|
||||||
|
//X437RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X437PEND.TXT(+1),
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
//* DISP=(OLD,KEEP,KEEP),
|
||||||
|
// SPACE=(30000,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330)
|
||||||
|
//*
|
||||||
|
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+1), 00409000
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
//* DISP=(OLD,KEEP,KEEP), 00410000
|
||||||
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||||
|
//***********************************************************
|
||||||
|
//* SEND EMAIL WHEN REPORT PAYMENTS PROCESSED
|
||||||
|
//***********************************************************
|
||||||
|
//*
|
||||||
|
//STEP0400 EXEC PGM=IDCAMS, COPY X140 PENDING TO GDG
|
||||||
|
// COND=(4,LT)
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//INDD01 DD DSN=&&PENDX140,
|
||||||
|
// DISP=(OLD,DELETE,DELETE), 00006000
|
||||||
|
// UNIT=SYSDA, 00007000
|
||||||
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.PENDING.X437.PAY(+1),
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
//* DISP=SHR,
|
||||||
|
// SPACE=(25600,(100,200),RLSE),
|
||||||
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||||
|
//*
|
||||||
|
//*********************************************************************
|
||||||
|
//*
|
||||||
|
//STEP0410 EXEC PGM=IDCAMS, COPY X144 PENDING TO GDG
|
||||||
|
// COND=(0,LT)
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//INDD01 DD DSN=&&PENDX144,
|
||||||
|
// DISP=(OLD,DELETE,DELETE), 00006000
|
||||||
|
// UNIT=SYSDA, 00007000
|
||||||
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X144,
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
//* DISP=SHR,
|
||||||
|
// SPACE=(25600,(100,200),RLSE),
|
||||||
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||||
|
//*
|
||||||
|
//*********************************************************************
|
||||||
|
//STEP0420 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG
|
||||||
|
// COND=(0,LT)
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//INDD01 DD DSN=&&PENDX145,
|
||||||
|
// DISP=(OLD,DELETE,DELETE), 00006000
|
||||||
|
// UNIT=SYSDA, 00007000
|
||||||
|
// SPACE=(8192,(100,200),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X145,
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
//* DISP=SHR,
|
||||||
|
// SPACE=(25600,(100,200),RLSE),
|
||||||
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||||
|
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||||
|
//*
|
||||||
|
//*********************************************************************
|
||||||
|
//
|
||||||
83
Procs/DTSZZBX425
Normal file
83
Procs/DTSZZBX425
Normal file
@ -0,0 +1,83 @@
|
|||||||
|
//**** 00000010
|
||||||
|
//* IMPORT EMPLOYER DATA FROM WEB DATABASE 00001700
|
||||||
|
//* TO MAINFRAME 00001700
|
||||||
|
//* File="E:\Innova\Code\MP\Git\DUTAS]PROCS <<<<
|
||||||
|
//* 00001700
|
||||||
|
//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700
|
||||||
|
//** 00001700
|
||||||
|
//DTSBX425 PROC
|
||||||
|
//** 00001700
|
||||||
|
//***** 00001700
|
||||||
|
//STEP0110 EXEC PGM=SORT,
|
||||||
|
// REGION=4096K,
|
||||||
|
// COND=(0,LT)
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//*
|
||||||
|
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR 00005000
|
||||||
|
//*ORTIN DD DSN=DOESTAX.CONV.ESSP.ACHDD.ARCHIVE(+1),DISP=SHR 00005000
|
||||||
|
//*
|
||||||
|
//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=&&ACHIMP,
|
||||||
|
// DISP=(NEW,PASS,DELETE),
|
||||||
|
// UNIT=SYSDA,
|
||||||
|
// SPACE=(30720,(1000,1000),RLSE), 00008000
|
||||||
|
// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00009000
|
||||||
|
//*
|
||||||
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX425),DISP=SHR
|
||||||
|
//*
|
||||||
|
//STEP0200 EXEC PGM=DTSBX425,
|
||||||
|
// COND=(0,LT),
|
||||||
|
// REGION=4096K
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//SYSABOUT DD SYSOUT=*
|
||||||
|
//SYSABEND DD SYSOUT=*
|
||||||
|
//SYSUDUMP DD SYSOUT=*
|
||||||
|
//* 00001700
|
||||||
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||||
|
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
||||||
|
// AMP=('BUFNI=5,BUFND=10')
|
||||||
|
//***
|
||||||
|
//EFTFACH DD DSN=&&ACHIMP,
|
||||||
|
// DISP=(OLD,DELETE,DELETE),
|
||||||
|
//* DISP=(OLD,KEEP,KEEP),
|
||||||
|
// UNIT=SYSDA,
|
||||||
|
// SPACE=(30720,(1000,1000),RLSE), 00008000
|
||||||
|
// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00009000
|
||||||
|
//* 00001700
|
||||||
|
//X425RPT1 DD DSN=DOESTAX.CONV.ESSP.X425ACHD(+1),
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
//* DISP=SHR,
|
||||||
|
// UNIT=SYSDA,
|
||||||
|
// SPACE=(25600,(100,100),RLSE),
|
||||||
|
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
|
||||||
|
//*
|
||||||
|
//X425TOTL DD DSN=DOESTAX.CONV.ESSP.DAILY.ACHDTOTL,
|
||||||
|
// DISP=(,CATLG,DELETE),
|
||||||
|
//* DISP=SHR
|
||||||
|
//* UNIT=SYSDA,
|
||||||
|
//* SPACE=(25600,(100,100),RLSE),
|
||||||
|
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
|
||||||
|
//*
|
||||||
|
//STEP0320 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//OUT1 OUTPUT DEST=U1003,
|
||||||
|
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
|
||||||
|
// 'TO:PANKAJ.SHARMA@SAGITEC.COM',
|
||||||
|
// 'TO:RYAN.MOORE-LEE@DC.GOV',
|
||||||
|
// 'CC:NANCY.HUDAK@DC.GOV',
|
||||||
|
// 'CC:MARGARET.HERNANDEZ@DC.GOV',
|
||||||
|
// 'CC:ESAYAS.LEMMA@DC.GOV',
|
||||||
|
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
|
||||||
|
// 'SUBJECT: ESSP DAILY WELLS FARGO ACH DEPOSITS-VERIFY',
|
||||||
|
//* 'SUBJECT: ESSP 11-2 WELLS FARGO ACH DEPOSITS ',
|
||||||
|
// 'FILEDESC: ESSP ACH DEPOSITS FOR WELLF FARGO ',
|
||||||
|
// 'FILENAME:ESSP_DUTAS_ACHDEPOSITS.TXT'),
|
||||||
|
// MAILFROM=DUTAS@DC.GOV
|
||||||
|
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X425ACHD(+1),DISP=SHR
|
||||||
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||||
|
//SYSIN DD DUMMY
|
||||||
|
//*
|
||||||
|
//*********************************************************************
|
||||||
Reference in New Issue
Block a user