Pages

Friday, December 9, 2011

copying a tape file to normal/disk sequential file

//TAPE2DSK@ JOB (acct#),’Converting a Tape to DASD Library’,CLASS=0,MSGCLASS=J
//* THIS JOB WILL CONVERT A TAPE TO DASD(Sequential file)
//STEP010 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*
//SYSUT1 DD DSN=input.dsn,DISP=SHR
//*
//SYSUT2 DD DSN=output.dsn,
// DISP=(NEW,CATLG,CATLG)
// DCB=*.SYSUT1,
// SPACE=(CYL,(1000,10),RLSE),
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY

No comments:

Post a Comment