//JOB004W JOB
//EBMOUT1 DD DSN=JOB004.PPF,DISP=(SHR,DELETE,DELETE)
//STEPW EXEC PGM=CBWRITE1
