--- In os390andmvs@yahoogroups.com, David.L.Hansen@... wrote:
>
>
> Hello Group,
>
> I am having trouble with ADRDSSU restoring a file to a different name
> .
> I used this JCL to back up a VSAM file to a 'flat' file as
referenced by the TAPE DD:
> DUMP DS(INCLUDE(SYTCBV.DATA.CLSS147.RLSTDB.KSDS)) -
> OUTDDNAME(TAPE) -
> ALLDATA(*) -
> ALLEXCP -
> CANCELERROR -
> CONCURRENT -
> NOTIFYCONCURRENT -
> OPTIMIZE(4) -
> SPHERE -
> TOLERATE(ENQFAILURE) -
> WAIT(0,0)
>
> I tried this JCL to restore the 'flat' file:
> RESTORE INDDNAME(TAPE) -
> DATASET(INCLUDE(SYTCBV.DATA.CLSS147.RLSTDB.KSDS)) -
>
RENUNC(SYTCBV.DATA.CLSS147.RLSTDB.*,SYTCOV.DATA.CLSS147.RLSTDB.*) -
> CANCELERROR -
> SPHERE -
> TOLERATE(ENQFAILURE) -
> WAIT(0,0)
>
> I keep getting this error: ADR730W (001)-FDSRL(01), CLUSTER
SYTCBV.DATA.CLSS147.RLSTDB.KSDS IS OPEN
>
> First I tried to restore to OUTDDNAME and put a DD in that
> referenced SYTCOV. It still tried to go out to SYTCBV.
>
> What is the best way to backup a VSAM file to a flat file and then
> restore it back? I would like to restore it to something else first
> as a test.

Dave, I use IDCAMS to export a VSAM file to a flat/portable format.
Then IDCAMS to import the VSAM file into the new system/catalog. I
always run a DEFINE to create the empty file with the right
characteristics to import the file into. I believe that you can run
the IMPORT without pre-allocating the file, but that's just not how I
do it.

/*
//STEP1 EXEC PGM=IDCAMS
//********************************************************

//* SAMPLE JCL TO EXPORT A VSAM FILES

//********************************************************
//FLATFILE DD DSN=COMPTON.PORTABLE.VSAMFILE,UNIT=SYSDA,
// DISP=(NEW,CATLG),BLKSIZE=6000,
// SPACE=(CYL,5)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EXPORT -
COMPTON.MASTER.WORKSHOP.VSAMFILE -
OUTFILE(FLATFILE) -
TEMPORARY
/*
..........

//DEFINE EXEC PGM=IDCAMS,REGION=2M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
SET MAXCC = 0
DEFINE CL(NAME(COMPTON.CICSNEW.VSAMFILE) -
CYLINDERS(1 1) -
VOLUMES(DMPP01) -
KEYS(17 0) -
RECORDSIZE(80 80) -
SHR(1 3) -
FSPC(10 10)) -
DATA -
(CISZ(4096)) -
INDEX -
(CISZ(512))
/*
//IMPORT EXEC PGM=IDCAMS
//SOURCE1 DD DSNAME=COMPTON.PORTABLE.VSAMFILE,DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
IMPORT -
INFILE(SOURCE1) -
OUTDATASET(COMPTON.CICSNEW.VSAMFILE) -
OBJECTS ( -
( COMPTON.MASTER.WORKSHOP.VSAMFILE -
NEWNAME(COMPTON.CICSNEW.VSAMFILE) -
STORAGECLASS(BASE) -
MANAGEMENTCLASS(STANDARD) -
VOLUMES(DMPP01) ) -
( COMPTON.MASTER.WORKSHOP.VSAMFILE.DATA -
NEWNAME(COMPTON.CICSNEW.VSAMFILE.DATA) -
STORAGECLASS(BASE) -
MANAGEMENTCLASS(STANDARD) -
VOLUMES(DMPP01) ) -
( COMPTON.MASTER.WORKSHOP.VSAMFILE.INDEX -
NEWNAME(COMPTON.CICSWWW.SUPTPAC.VSADFLFC.INDEX) -
STORAGECLASS(BASE) -
MANAGEMENTCLASS(STANDARD) -
VOLUMES(DMPP01) ) -
) -
INTOEMPTY
/*