ADRDSSU VSAM Restore

Go down

ADRDSSU VSAM Restore

Post  kasthuri on Sun Jan 27, 2013 4:57 pm

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

kasthuri

Posts : 212
Join date : 2013-01-27

View user profile

Back to top Go down

ADRDSSU RESTORE HELP

Post  morrisjmm on Mon Feb 25, 2013 8:15 am

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

morrisjmm

Posts : 2
Join date : 2013-02-25

View user profile

Back to top Go down

Restore/Rename

Post  morrisjmm on Mon Feb 25, 2013 9:32 pm

//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
/*

morrisjmm

Posts : 2
Join date : 2013-02-25

View user profile

Back to top Go down

Re: ADRDSSU VSAM Restore

Post  Sponsored content


Sponsored content


Back to top Go down

Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum