//****************************************************************** 00001700 //**DTSBDELT PROC //****************************************************************** 00001700 //* THIS PROC WILL DELETE ALL EXTERNAL GDG USED BY DTSPDAY1 00001700 //* CONV.BTC, WAGE.BTC, BX210, BX212, BX216, R202 00001700 //****************************************************************** 00001700 //STEP0100 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //X451BTC DD DSN=DOESTAX.PROD.ESSP.X451.BTC, // DISP=(OLD,DELETE,DELETE) //* 00001700 //********** CREATE BTC X451 AMENDED FILE *********************** //******************************************************************** //STEP0150 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //X451FBTC DD DSN=DOESTAX.&LVLNODE..ESSP.X451.BTC, // DISP=(,CATLG,DELETE), // UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE), // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) //********************************************************************* //****************************************************************** 00001700 //STEP0151 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //X452BTC DD DSN=DOESTAX.PROD.ESSP.X452.BTC, // DISP=(OLD,DELETE,DELETE) //* 00001700 //********** CREATE BTC X451 AMENDED FILE *********************** //******************************************************************** //STEP0152 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //X452FBTC DD DSN=DOESTAX.&LVLNODE..ESSP.X452.BTC, // DISP=(,CATLG,DELETE), // UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE), // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) //********************************************************************* //****************************************************************** 00001700 //STEP0200 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //WAGEBTC DD DSN=DOESTAX.CONV.WAGE.BTC, // DISP=(OLD,DELETE,DELETE) //* //****************************************************************** 00001700 //STEP0300 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //X210FTP DD DSN=DOESTAX.CONV.FTP.BX210, // DISP=(OLD,DELETE,DELETE) //* 00001700 //****************************************************************** 00001700 //STEP0400 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //X212FTP DD DSN=DOESTAX.CONV.FTP.BX212, // DISP=(OLD,DELETE,DELETE) //* //****************************************************************** 00001700 //STEP0500 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //X216FTP DD DSN=DOESTAX.CONV.FTP.BX216, // DISP=(OLD,DELETE,DELETE) //* //****************************************************************** 00001700 //STEP0600 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //R202RPT DD DSN=DOESTAX.CONV.RPT.R202, // DISP=(OLD,DELETE,DELETE) //* //****************************************************************** 00001700 //STEP0700 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //EXTGRPT DD DSN=DOESTAX.PROD.EXTRQ.RPT, // DISP=(OLD,DELETE,DELETE) //* //********************************************************************* //********** DELETE W2 WAGE AMENDED FILE ************************** //******************************************************************** //STEP0701 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //DELW4FIL DD DSN=DOESTAX.PROD.ESSP.X451.W4FILE, // DISP=(OLD,DELETE,DELETE) //******************************************************************** //********** CREATE W2 WAGE AMENDED FILE *********************** //******************************************************************** //STEP0702 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //WAGEFILE DD DSN=DOESTAX.&LVLNODE..ESSP.X451.W4FILE, // DISP=(,CATLG,DELETE), // UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000) //********************************************************************* //*********************************************************************