//***** 00000100 //** DAILY ELECTRONIC PAYMENT/REPORTING SUSTEM 00000201 //***** 00000300 //EFTBD100 PROC 00000401 //***** 00000500 //* 00001500 //********************************************************************* 00002000 //STEP0410 EXEC PGM=SORT, SORT DPT RECORDS 00002100 // COND=(0,LT) 00002200 //SYSOUT DD SYSOUT=* 00002300 //SORTIN DD DSN=DOESTAX.&MSTNODE..GOV1.TRANSOUT(+1), 00002930 // DISP=SHR 00003000 //* 00003400 //*ORTOUT DD DSN=&&EFTTRANS, 00003542 //SORTOUT DD DSN=DOESTAX.&MSTNODE..GOV1.SRT, 00003642 //* DISP=(NEW,CATLG,DELETE), 00003747 // DISP=(OLD,KEEP,DELETE), 00003847 // UNIT=SYSDA, 00003900 // SPACE=(8192,(1000,1000),RLSE), 00004000 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004100 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(EFTRECS4),DISP=SHR 00004236 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00004300 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00004400 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00004500 //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00004600 //**** 00004700 //STEP0420 EXEC PGM=EFTBD100, EFT DRIVER PROGRAM 00004800 // COND=(0,LT), 00004902 // PARM='&BD100' 00005016 //SYSOUT DD SYSOUT=* 00005157 //SYSPRT1 DD SYSOUT=* 00005258 //SYSPRT2 DD SYSOUT=* 00005358 //SYSPRT3 DD SYSOUT=* 00005458 //SYSPRT4 DD SYSOUT=* 00005558 //SYSPRT5 DD SYSOUT=* 00005658 //SYSPRT6 DD SYSOUT=* 00005758 //SYSPRT7 DD SYSOUT=* 00005858 //SYSPRT8 DD SYSOUT=* 00005958 //SYSPRT9 DD SYSOUT=* 00006058 //SYSFINAL DD SYSOUT=* 00006158 //SYSPRINT DD SYSOUT=* 00006255 //SYSABOUT DD SYSOUT=* 00006355 //SYSUDUMP DD SYSOUT=* 00006455 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00006555 //* 00006655 //** 00006755 //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00006855 // AMP=('BUFNI=5,BUFND=10') 00006955 //** 00007055 //CBDATA DD DSN=DOES.CICS.FIN730.CBDATA.EX100102,DISP=SHR 00007155 //CBCTYST DD DSN=DOES.CICS.FIN730.CBCTYST.EX100102,DISP=SHR 00007255 //* 00007355 //EFT100R1 DD SYSOUT=Z, 00007455 // HOLD=&LHOLD., 00007555 // DEST=U@PRT65 00007655 //* 00007755 //*EFT100F1 DD DSN=&&EFTTRANS, 00007855 //* DISP=(OLD,PASS,DELETE) 00007955 //EFT100F1 DD DSN=DOESTAX.&MSTNODE..GOV1.SRT,DISP=SHR 00008055 //* 00009200 //DTSFBTCO DD DSN=DOESTAX.&MSTNODE..BTC(+1), BTC OUTPUT FILE 00009302 // DISP=(,CATLG,DELETE), 00009400 // SPACE=(8192,(100,200),RLSE), 00009500 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00009600 //* 00009700 //DTSFW001 DD DSN=DOESTAX.&MSTNODE..WAGE.BTC, BWTC OUTPUT FILE 00009844 //** DISP=(,CATLG,DELETE), 00009945 //** DISP=(OLD,KEEP,DELETE), 00010048 // DISP=SHR, 00010148 // SPACE=(25600,(100,200),RLSE), 00010248 // DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600) 00010348 //* 00010448 //DTSFVRO1 DD DSN=DOESTAX.&MSTNODE..DOESERR, REPORT FILE 00010548 // DISP=(,PASS,DELETE), 00010648 // UNIT=SYSDA, 00010748 // SPACE=(8192,(100,100),RLSE), 00010848 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00010948 //** 00011029 //** REPORT RECORD SORT 00020029 //STEP0430 EXEC EFTXSORT 00030027 //* REPORT GENERATION 00040000 //* 00290000