What results do you get with this?
Steve Gorham, Baltimore
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
Shelia Chalk
Sent: Wednesday, March 25, 2020 10:52 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] adrdssu utility
has anyone ever use adrdssu utility to restore a dataset from tape and rename
then dataset. here is my problem see jcl below
I am trying to use the sms routines. I want the renameu dataset q2vo.slc.***
to go to a different volume then the include dataset. in the sms routines I
have in the &fist I have in the filtlist the q2vo.** dataset..
IF ((&ACSENVIR EQ 'RECOVER') AND (&HLQ EQ '&FIST'))
THEN
DO
SET &STORCLAS = 'FIST'
EXIT
END
JCL I AM RUNNING
//D2REST EXEC PGM=ADRDSSU,REGION=8M
//SYSPRINT DD SYSOUT=*
//OUTDD DD UNIT=SYSDA,DISP=(NEW,CATLG,CATLG)
//INDD DD DSN=Q2SC.GN.GN.P010.GNTAPE.Q2BKUP(0),
// DISP=SHR
//DUMMY DD DUMMY
//SYSIN DD *
RESTORE INDD(INDD) OUTDD(OUTDD) -
DATASET( -
INCLUDE(-
Q2VO.GN.GN.P010.GNCDE.V -
) -
) -
RENAMEU((Q2VO.GN.GN.P010.GNCDE.V -
Q2VO.SLC.** )) -
CANCELERROR -
CATALOG -
TGTGDS(ACTIVE) -
REPLACE -
SHR SPHERE
any ideas???
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu> with the message:
INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
