//**** 00000010 //* IMPORT T011 DATA FROM WEB DATABASE 00001700 //* TO MAINFRAME 00001700 //* 00001700 //* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700 //** 00001700 //DTSBX415 PROC //** 00001700 //STEP0200 EXEC PGM=DTSBX415, // 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') //*** //WEBTRN DD DSN=ECNTSUP.DOESTAX.&MSTNODE..FTP.BX415, //** DISP=(NEW,CATLG,CATLG), // DISP=(OLD,KEEP,KEEP), // UNIT=SYSDA, // SPACE=(25600,(100,200),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=25600) //* 00001700 //DTSFBTCO DD DSN=DOESTAX.&MSTNODE..BTC(+1), // DISP=(,CATLG,DELETE), // SPACE=(8192,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) //* //*********************************************************************