To the listeners,
This thread was discovered in a Google digest. I did not spot it in e-mails so
I can't reply correctly, that is, "linking" to the existing thread, nor can I
produce the usual references.
Hal,
Bill's reference misses a key step, namely how to get the SYSPUNCH output
submitted as a job. The typical way to do this is to make the SYSPUNCH a
DISPosition NEW and PASSed temporary data set. The next job step can then be an
IEBGENER with the temporary data set as input with DISPosition OLD and DELETE
and the output going to the internal reader, SYSOUT=(*,INTRDR).
Chris Mason
<first post>
Hello,
I have the following JCL to do a selective restore from a logical dump
as follows ...
//*-----8<-----8<-----8<-----8<-----8<-----8<-----8<
//RESTORE EXEC PGM=ADRDSSU,PARM='TYPRUN=NORUN'
//SYSPRINT DD SYSOUT=*
//RESTFROM DD ...
//TO DD VOL=SER=...
//SYSIN DD *
RESTORE DATASET(INCLUDE( -
HAL.A.CNTL -
HAL.LIB.JCL -
HAL.MAIN.CLIST -
HAL.MAIN.PARMLIB -
HAL.MAIN.PROCLIB -
SYS1.IPLPARM -
SYS1.PARMLIB -
SYS1.PROCLIB -
) ) -
RENUNC( -
( HAL.A.CNTL , TUSER1.HH.HAL.A.CNTL ), -
( HAL.LIB.JCL , TUSER1.HH.HAL.LIB.JCL ), -
( HAL.MAIN.CLIST , TUSER1.HH.HAL.MAIN.CLIST ), -
( HAL.MAIN.PARMLIB , TUSER1.HH.HAL.MAIN.PARMLIB ), -
( HAL.MAIN.PROCLIB , TUSER1.HH.HAL.MAIN.PROCLIB ), -
( SYS1.IPLPARM , TUSER1.HH.SYS1.IPLPARM ), -
( SYS1.PARMLIB , TUSER1.HH.SYS1.PARMLIB ), -
( SYS1.PROCLIB , TUSER1.HH.SYS1.PROCLIB ), -
) -
INDD(RESTFROM) OUTDD(TO) CANCELERROR TOL(ENQFAILURE) SHR -
CATALOG
/*
//*-----8<-----8<-----8<-----8<-----8<-----8<-----8<
I would prefer to use some sort of macro processing in a prior step so
that I can have input similar to this:
//*-----8<-----8<-----8<-----8<-----8<-----8<-----8<
PFX TUSER.HH
RST ADCD.A.CNTL
RST ADCD.LIB.JCL
RST ADCD.ZOSV14S.CLIST
RST ADCD.ZOSV14S.PARMLIB
RST ADCD.ZOSV14S.PROCLIB
RST SYS1.IPLPARM
RST SYS1.PARMLIB
RST SYS1.PROCLIB
END
//*-----8<-----8<-----8<-----8<-----8<-----8<-----8<
which can then be fed into the sysin for the restore step.
This avoids duplicating the names and looks a lot cleaner.
I think the natural tool to use is Rexx but perhaps there are better
ways involving minimal coding?
Assembler maybe?
Are there any free tools which address this that are easy to implement
on z/os?
Sample code would be appreciated.
Thanks in advance
Hal.
<second post>
Whoops, should have been:-
PFX TUSER.HH
RST HAL.A.CNTL
RST HAL.LIB.JCL
RST HAL.MAIN.CLIST
RST HAL.MAIN.PARMLIB
RST HAL.MAIN.PROCLIB
RST SYS1.IPLPARM
RST SYS1.PARMLIB
RST SYS1.PROCLIB
END
<third post>
Have a look at http://members.tripod.com/billlalonde/mvshint.htm
Bill
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
