|
Since this subject came up recently, we
thought that we should share how we load a job into the Power Reader
Queue from a VSE library.
First, you have to catalog the JCL that
you wish to load to a VSE library, which sometimes isn't as simple as it
sounds. In the JCL to be cataloged (in our sample case below
DRRESTM1.Z), the Power JECL has to be masked by changing all '* $$'
into '$$$$'. Then any '/*' and '/&' have to be masked by
changing them to '$$/*' and '$$/&'. Once you have done
this, you can run the job to catalog your JCL.
* $$ JOB JNM=CATDRM1,CLASS=0,DISP=D
* $$ LST CLASS=Q,DISP=D
// JOB CATDRM1 CATALOG DR RESTORE
JOBS M1
// EXEC LIBR,SIZE=500K
ACC S=IJSYSRS.SYSLIB
CATALOG DRRESTM1.Z
REPLACE=YES
$$$$
JOB JNM=DRRESTM1,CLASS=I,DISP=L,PRI=5,USER=SYSTEMS
$$$$
LST CLASS=Q,DISP=K
// JOB
DRRESTM1
// ON $CANCEL GOTO ABEND
// ON $ABEND GOTO ABEND
// PAUSE EOB TO
CONTINUE
/.
VOL001
// PAUSE ***** RESTORE VOL001 -----> EOB
WHEN READY
* ** CSP301 * PHASE FCOPY * RESTORE
VOL001 ** *
// ASSGN
SYS005,DISK,VOL=VOL001,SHR
// TLBL UIN,'VOL001.WKLY.BKUP',,,,,,02
// EXEC TDYNASN,SIZE=128K
// ASSGN
SYS004,DUMMY
$$/*
// EXEC FCOPY,SIZE=900K
RESTORE VOLUME NOVERIFY NOPROMPT
$$/*
// IF $RC < 8 THEN
// GOTO $EOJ
// PAUSE ***** WARNING ***** THERE IS A
PROBLEM WITH RESTORE OF VOL001
$$/*
$$/&
$$$$
EOJ
/+
/*
/&
* $$ EOJ
Now you need to set up a VSE proc
to execute that will use DTRIINIT to load DRRESTM1 into the Power Reader
Queue. In our sample below we've called it DRLOAD.PROC (notice that for
Disaster Recovery purposes, we're also loading jobs VTAMSTRT, CICSICCF,
and PAUSEBG - just in case!)
* $$ JOB JNM=CATDRLD,CLASS=0,DISP=D
* $$ LST CLASS=Q,DISP=D
// JOB CATDRLD CATALOG DRLOAD
PROC
// EXEC LIBR,SIZE=500K
ACC S=IJSYSRS.SYSLIB
CATALOG DRLOAD.PROC
DATA=YES REPLACE=YES
// EXEC DTRIINIT
LOAD VTAMSTRT.Z
LOAD CICSICCF.Z
LOAD PAUSEBG.Z
LOAD
DRRESTM1.Z
/+
/*
/&
* $$ EOJ
That's all you need to do (other
than catalog a restore job for each of your volumes. When you are ready
to load them, you can do this one of two ways. We have a '// EXEC PROC=DRLOAD'
in our $0JCL proc in the section for cold starts to automate the loading
of our restore jobs. You could also (assuming that you already have a
pause in the reader queue) just release a pause and type '// EXEC PROC=DRLOAD'
at the pause. Now you have your restore job loaded into the reader and
ready to run.
|
We know, you have spent a
lot of money to protect your critical hardware for your VSE
Systems
- but isn't it time you make your software feel safe too?
Tell
us what you want to know in iTips and give suggestions on topics - send
an email to