Files
DUTAS/Procs/EFTUP350
2025-07-21 11:20:11 -04:00

72 lines
5.6 KiB
Plaintext

//***** 00000800
//** DAILY ELECTRONIC RETURN/REJECT TRANSACTIONS FROM BANK 00000901
//***** 00001000
//EFTUP350 PROC 00001127
//***** 00001200
//********************************************************************* 00003410
//STEP0220 EXEC PGM=EFTBD350, PROCESS RETURN TRANS 00003525
//* TIME=(0,30), 00003610
// COND=(0,LT) 00003710
//SYSOUT DD SYSOUT=* 00003810
//SYSABOUT DD SYSOUT=* 00004000
//SYSUDUMP DD SYSOUT=* 00005000
//SYSIN DD DUMMY 00005100
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00006000
//* 00006100
//* ACH RETURN INPUT TRANSACTIONS 00006301
//EFTFACH DD DSN=&&EFTACH, 00009024
// DISP=(OLD,PASS,DELETE) 00010024
//* 00058100
//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1), 00059222
// DISP=(,CATLG,DELETE), 00060022
// UNIT=SYSDA, 00070022
// SPACE=(8192,(1000,1000),RLSE), 00080022
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00081031
//* 00100021
//*TSFVRO1 DD DSN=DOESTAX.&MSTNODE..EFT.RPT, 00111130
//* DISP=(,PASS,DELETE), 00112030
//* UNIT=SYSDA, 00113030
//* SPACE=(8192,(1000,1000),RLSE), 00114030
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00115030
//* 00116000
//DTSFVRO1 DD DSN=DOESTAX.&MSTNODE..&WACHERR(+1), 00116233
// DISP=(,CATLG,DELETE), 00116322
// UNIT=SYSDA, 00116422
// SPACE=(8192,(1000,1000),RLSE), 00116522
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00116631
//* 00116718
//* REPORT RECORD SORT 00370000
//STEP0230 EXEC EFTRSORT 00380025
//* REPORT GENERATION 00390000
//STEP0240 EXEC PGM=DTSBD800, 00400025
// COND=(0,LT) 00410000
//SYSOUT DD SYSOUT=* 00420000
//SYSABOUT DD SYSOUT=* 00430000
//SYSUDUMP DD SYSOUT=* 00440000
//** 00450000
//PARMIN DD DUMMY 00480000
//** 00490000
//ATLSTIN DD DUMMY 00500000
//** 00510000
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00520000
//** 00521000
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00522029
// AMP=('BUFNI=5,BUFND=10') 00523000
//* 00524000
//** 00530000
//** GOVONE ERROR REPORT 00568400
//RPT907R1 DD SYSOUT=Z, 00568500
// HOLD=&LHOLD., 00568600
// DEST=U@PRT65 00568700
//* 00568800
//** GOVONE ERROR REPORT 00568900
//RPT907R2 DD SYSOUT=Z, 00569000
// HOLD=&LHOLD., 00569100
// DEST=U@PRT65 00569200
//* 00569300
//** CONTROL REPORT SUMMARY 00569400
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00569500
// HOLD=&LHOLD., 00569600
// DEST=U@PRT65 00569700
//* 00569800