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