Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
Hi Alan,
Here's one of our image copy jobs..........
Code: |
//STEP0010 EXEC PGM=DFSUDMP0,PARM='DBRC=Y'
//DFSRESLB DD DSN=SYS1.RESLIB,DISP=SHR
//IMS DD DSN=NPSYS.IMSVS.DBDLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//DKONKOL DD DSN=NPDBIMS.DKONKOL.ES,DISP=SHR
//DKONIMG DD DSN=NAPG.DKONKOL.DAG.GDG(+1),
// DISP=(,CATLG,DELETE),
// UNIT=KASSIU,
// LABEL=(1,RETPD=14),
// VOL=(,RETAIN),
// BLKSIZE=8192
//SYSIN DD *
D1 DKONKOL DKONKOL DKONIMG DSIC VAN DKONKOL
/*
|
And the restore...........
Code: |
//DKONKOL EXEC PGM=DFSRRC00,PARM='UDR,DFSURDB0,DKONKOL'
//IMS DD DSN=NPSYS.IMSVS.DBDLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//DKONKOL DD DSN=NPDBIMS.DKONKOL.ES,DISP=SHR
//DFSUDUMP DD DSN=NAPG.DKONKOL.DAG.GDG(0),DISP=SHR,
// UNIT=KASSIU
//DFSUCUM DD DUMMY
//DFSULOG DD DUMMY
//DFSVSAMP DD DSN=AYSYS.PROD.INIMS(RGDB051),DISP=SHR
//DFSRESLB DD DSN=SYS1.RESLIB,DISP=SHR
//SYSIN DD *
S DKONKOL DKONKOL
|
You can make an image copy of many databases in one step but have to restore them step-by-step on at the time. Also follow the first link in my signature and search for 'image'. Have fun.......... |
|