ADRDSSU VSAM Restore
2 posters
Page 1 of 1
ADRDSSU VSAM Restore
Hi,
I am trying to restore some of the VSAM Files, where in prod it basically like below, which restore the prod vsam files. What i need is, to restore file to test VSAM file example XPN.XX.VSAM.File (Prod) , i need XDN.XX.VSAM File (DEV).
Code:
//xxxxR EXEC PGM=ADRDSSU,REGION=4M
//****************************
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=D
//****************************
//* INPUT FILE *
//****************************
//RESTORDD DD DSN=XPX.XCS.YYY.ZZZ.BACKUP(0),
// DISP=OLD
//****************************
//* OUTPUT FILE *
//****************************
//* OUTPUT FILE *
//****************************
//SYSIN DD *
RESTORE INDD(RESTORDD) -
REPLACE -
SPHERE -
TGTALLOC(SOURCE) -
DS(INCL(**))
//
Please help me on this.
The above jcl copies file from GDG to differnt VSAM file. The VSAM file will in form XPX.XPY.**, I need to copy same to XDX.XCX.** I tried like below, but no joy, I am getting following error
Code:
RESTORE INDD(RESTORDD) -
REPLACE -
SPHERE -
TGTALLOC(SOURCE) -
DS(INCL(**)) -
RENUNC((XPX.XCX.**), -
(XDX.XCX.**))
Getting following error.
ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'RESTORE '
ADR109I (R/I)-RI01 (01), 2013.010 08:28:26 INITIAL SCAN OF USER CONTROL STATEMEN
ADR141E (001)-RI03 (02), ERROR IN DATA SET NAME XPX.XCX.**
ADR017E (001)-CLTSK(01), 2013.010 08:28:26 TASK NOT SCHEDULED DUE TO ERROR. TASK RETURN CODE 0008
ADR012I (SCH)-DSSU (01), 2013.010 08:28:26 DFSMSDSS PROCESSING COMPLETE. HIGHEST IGHEST RETURN CODE IS 0008 FROM:
SYNTAX
TASK 001
I am trying to restore some of the VSAM Files, where in prod it basically like below, which restore the prod vsam files. What i need is, to restore file to test VSAM file example XPN.XX.VSAM.File (Prod) , i need XDN.XX.VSAM File (DEV).
Code:
//xxxxR EXEC PGM=ADRDSSU,REGION=4M
//****************************
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=D
//****************************
//* INPUT FILE *
//****************************
//RESTORDD DD DSN=XPX.XCS.YYY.ZZZ.BACKUP(0),
// DISP=OLD
//****************************
//* OUTPUT FILE *
//****************************
//* OUTPUT FILE *
//****************************
//SYSIN DD *
RESTORE INDD(RESTORDD) -
REPLACE -
SPHERE -
TGTALLOC(SOURCE) -
DS(INCL(**))
//
Please help me on this.
The above jcl copies file from GDG to differnt VSAM file. The VSAM file will in form XPX.XPY.**, I need to copy same to XDX.XCX.** I tried like below, but no joy, I am getting following error
Code:
RESTORE INDD(RESTORDD) -
REPLACE -
SPHERE -
TGTALLOC(SOURCE) -
DS(INCL(**)) -
RENUNC((XPX.XCX.**), -
(XDX.XCX.**))
Getting following error.
ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'RESTORE '
ADR109I (R/I)-RI01 (01), 2013.010 08:28:26 INITIAL SCAN OF USER CONTROL STATEMEN
ADR141E (001)-RI03 (02), ERROR IN DATA SET NAME XPX.XCX.**
ADR017E (001)-CLTSK(01), 2013.010 08:28:26 TASK NOT SCHEDULED DUE TO ERROR. TASK RETURN CODE 0008
ADR012I (SCH)-DSSU (01), 2013.010 08:28:26 DFSMSDSS PROCESSING COMPLETE. HIGHEST IGHEST RETURN CODE IS 0008 FROM:
SYNTAX
TASK 001
kasthuri- Posts : 212
Join date : 2013-01-27
ADRDSSU RESTORE HELP
Is there a way to restore backup of a VSAM file defined with RLS to a none RLS file. We have CICS VSAM files being copied from a CICSPLEX environment to a single TOR/AOR CICS region. Current we are Backing up the files with ADRDSSU then doing a restore/rename, Then using file-aid we copy each of the files ( VSAM to VSAM ) blanking out the SMS storage and data and management names. This is an okay process for a handful of files. But when I have to do 1,000 + files it become very time consuming... Any assisatance will be appreciated.
Thanks John
Thanks John
morrisjmm- Posts : 2
Join date : 2013-02-25
Restore/Rename
//STEP002 EXEC PGM=ADRDSSU,REGION=6144K PARM='TYPRUN=NORUN'
//SYSPRINT DD SYSOUT=*
//INDD DD DSN=XXX.XADRDSSU.BACKUP,
// DISP=SHR
//DUMMY DD DUMMY
//SYSIN DD *
RESTORE DATASET(INCLUDE( -
XXX.BLA.PROD.VREPRO -
))-
INDDNAME(INDD) -
RENUNC((XXX.BLA.PROD.VREPRO, -
XXX.BLA.DEV1.VREPRO) -
) -
CANCELERROR -
CATALOG -
SPHERE
/*
//SYSPRINT DD SYSOUT=*
//INDD DD DSN=XXX.XADRDSSU.BACKUP,
// DISP=SHR
//DUMMY DD DUMMY
//SYSIN DD *
RESTORE DATASET(INCLUDE( -
XXX.BLA.PROD.VREPRO -
))-
INDDNAME(INDD) -
RENUNC((XXX.BLA.PROD.VREPRO, -
XXX.BLA.DEV1.VREPRO) -
) -
CANCELERROR -
CATALOG -
SPHERE
/*
morrisjmm- Posts : 2
Join date : 2013-02-25
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
|
|