//BCGB3896 JOB (UI,4300,3400,T),'G. BROWN   ',MSGCLASS=X,CLASS=S,
//      NOTIFY=DCGGAB
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB    BY Z/OS
//**************************************************************
//*               INITIALIZE SCRATCH CARTRIDGE                 *
//**************************************************************
// EXEC PGM=IEHINITT
//SYSPRINT DD  SYSOUT=*
//TAPEIN   DD UNIT=CART,LABEL=(,SL),DSN=DOESTAX.CHRGS
//SYSIN    DD  *
TAPEIN INITT SER=AT3896