Hi,
Good day to you..
I have a dataset in tape. I created a new GDG. I want to copy the tape dataset to Disk.
If you have sample jcl, please share .
//S01 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//INDDX DD DISP=OLD,DSN=TEST.TAPE.COPY2 <=INPUT VIRTUAL TAPE
//OUTDDX DD DSN=TEST.TAPE.TODISK(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000,
// SPACE=(TRK,(5,4,1),RLSE)
Command ===>
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,1)
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,1)
//SYSIN DD *
COPY INDD=INDDX,OUTDD=OUTDDX
/*
But I am getting error on this
thx