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
"Davis, Scott"
<scott.da...@okdh
s.org> To
Sent by: The IBM [email protected]
z/VM Operating cc
System
<[email protected] Subject
ARK.EDU> Copying a VMtape on zOS
02/11/2009 10:34
AM
Please respond to
The IBM z/VM
Operating System
<[email protected]
ARK.EDU>
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].
