Thanks, That did the trick, however I had to specify the execute parm 'SDB=YES'
Scott Davis IS Operating Systems Specialist III, ETS: Infrastructure/Platform Support Services OKDHS - Data Services Division Work (405) 522-1982 Fax (405) 522-6025 Pager (800) 647-7243 Pin #0924 Email [email protected] ________________________________ From: The IBM z/VM Operating System [mailto:[email protected]] On Behalf Of Christy Brogan Sent: Wednesday, February 11, 2009 3:19 PM To: [email protected] Subject: Re: Copying a VMtape on zOS You could use iebgener...... //COPYRTU EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR, // DSN=CCMW.RTU //SYSUT2 DD DISP=(,KEEP,DELETE), // UNIT=TPFTAPE, // DSN=ACP.RTU, // DATACLAS=CTAP, // DCB=*.SYSUT1 //SYSIN DD DUMMY Inactive hide details for "Davis, Scott" <[email protected]>"Davis, Scott" <[email protected]> "Davis, Scott" <[email protected]> Sent by: The IBM z/VM Operating System <[email protected]> 02/11/2009 10:34 AM Please respond to The IBM z/VM Operating System <[email protected]> To [email protected] cc Subject Copying a VMtape on zOS Hello, I need to copy a logical tape in a VTS to another logical tape in the VTS to force the data to an export pool. I am having trouble coping the tape due to the large blocksize. The JCL manual suggests using BLKSZLIM=49280. I am using an IDCAMS repro, but get an open error complaining about blocksize. Any suggestions would be appreciated. My JCL is below. //U20445UT JOB (C110,2,000,SYS,20445,K),'SED(3A)-UTZVMCPY', // MSGCLASS=Q,CLASS=S,NOTIFY=U20445 //* --------------------------------------------------------- //* //* //* //STEP0001 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //ZVMIN DD VOL=SER=L00009, // DISP=(OLD,KEEP),LABEL=(,BLP),UNIT=TAPE, // DCB=(DEN=2,RECFM=U,LRECL=X),BLKSZLIM=49280 //ZVMOUT DD DSN=ZVMTAPE.COPYOF.L00009.YMD.D090209, // DISP=(NEW,CATLG,DELETE),LABEL=(,NL), // UNIT=TAPE,MGMTCLAS=MCZVM, // DCB=(DEN=2,RECFM=U,LRECL=X),BLKSZLIM=49280 //SYSIN DD * REPRO INFILE(ZVMIN) OUTFILE(ZVMOUT) /* // Scott Davis IS Operating Systems Specialist III, ETS: Infrastructure/Platform Support Services OKDHS - Data Services Division Work (405) 522-1982 Fax (405) 522-6025 Pager (800) 647-7243 Pin #0924 Email [email protected]
