Re: adrdssu utility
Thank you so much IT WORKS ! -Original Message- From: IBM Mainframe Discussion List On Behalf Of Vernooij, Kees (ITOP NM) - KLM Sent: Wednesday, March 25, 2020 10:09 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: adrdssu utility A Mistake I made many times: you should not put filtlist names in quotes, only strings. So in your routine, is compared to the string '' To compare to the filtlist , you should code: ( EQ ) Met vriendelijke groet, Kees Vernooij KLM Information Services z/OS Systems Tel +31 6 10 14 58 78 -Original Message- From: IBM Mainframe Discussion List On Behalf Of Shelia Chalk Sent: 25 March 2020 15:52 To: IBM-MAIN@LISTSERV.UA.EDU Subject: 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 I have in the filtlist the q2vo.** dataset.. IF (( EQ 'RECOVER') AND ( EQ '')) THEN DO SET = 'FIST' EXIT END JCL I AM RUNNING //D2REST EXEC PGM=ADRDSSU,REGION=8M //SYSPRINT DD SYSOUT=* //OUTDDDD UNIT=SYSDA,DISP=(NEW,CATLG,CATLG) //INDD DD DSN=Q2SC.GN.GN.P010.GNTAPE.Q2BKUP(0), //DISP=SHR //DUMMYDD DUMMY //SYSINDD * 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 with the message: INFO IBM-MAIN For information, services and offers, please visit our web site: https://nam10.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.klm.comdata=01%7C01%7CSChalk%40TRUSTMARK.COM%7C23ded3e07ad14b8f4b1408d7d0ce88f5%7C518d66eacb8948c8a7b903cba11cde91%7C1sdata=zGPmL9ic%2FkGd9IBYeFOgIbBKv3QMqOQ0k6PCU8lROSI%3Dreserved=0. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to 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
Re: adrdssu utility
1) I am not sure is recover. IIRC, this is related to dfHSM and like prodiucts, not ADRDSSU restore. 2) It is not clear if the target environment is SMS managed or not. You can supply (STORCLAS, DATACLAS, MGMTCLAS) and override the ACS routines with BYPASSACS(**) -Original Message- From: IBM Mainframe Discussion List On Behalf Of Shelia Chalk Sent: Wednesday, March 25, 2020 9:52 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: adrdssu utility [CAUTION: This Email is from outside the Organization. Do not click links or open attachments unless you trust the sender.] 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 I have in the filtlist the q2vo.** dataset.. IF (( EQ 'RECOVER') AND ( EQ '')) THEN DO SET = 'FIST' EXIT END JCL I AM RUNNING //D2REST EXEC PGM=ADRDSSU,REGION=8M //SYSPRINT DD SYSOUT=* //OUTDDDD UNIT=SYSDA,DISP=(NEW,CATLG,CATLG) //INDD DD DSN=Q2SC.GN.GN.P010.GNTAPE.Q2BKUP(0), //DISP=SHR //DUMMYDD DUMMY //SYSINDD * 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 with the message: INFO IBM-MAIN ::DISCLAIMER:: The contents of this e-mail and any attachment(s) are confidential and intended for the named recipient(s) only. E-mail transmission is not guaranteed to be secure or error-free as information could be intercepted, corrupted, lost, destroyed, arrive late or incomplete, or may contain viruses in transmission. The e mail and its contents (with or without referred errors) shall therefore not attach any liability on the originator or HCL or its affiliates. Views or opinions, if any, presented in this email are solely those of the author and may not necessarily reflect the views or opinions of HCL or its affiliates. Any form of reproduction, dissemination, copying, disclosure, modification, distribution and / or publication of this message without the prior written consent of authorized representative of HCL is strictly prohibited. If you have received this email in error please delete it and notify the sender immediately. Before opening any email and/or attachments, please check them for viruses and other defects. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: adrdssu utility
A Mistake I made many times: you should not put filtlist names in quotes, only strings. So in your routine, is compared to the string '' To compare to the filtlist , you should code: ( EQ ) Met vriendelijke groet, Kees Vernooij KLM Information Services z/OS Systems Tel +31 6 10 14 58 78 -Original Message- From: IBM Mainframe Discussion List On Behalf Of Shelia Chalk Sent: 25 March 2020 15:52 To: IBM-MAIN@LISTSERV.UA.EDU Subject: 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 I have in the filtlist the q2vo.** dataset.. IF (( EQ 'RECOVER') AND ( EQ '')) THEN DO SET = 'FIST' EXIT END JCL I AM RUNNING //D2REST EXEC PGM=ADRDSSU,REGION=8M //SYSPRINT DD SYSOUT=* //OUTDDDD UNIT=SYSDA,DISP=(NEW,CATLG,CATLG) //INDD DD DSN=Q2SC.GN.GN.P010.GNTAPE.Q2BKUP(0), //DISP=SHR //DUMMYDD DUMMY //SYSINDD * 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 with the message: INFO IBM-MAIN For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [EXTERNAL] adrdssu utility
What results do you get with this? Steve Gorham, Baltimore -Original Message- From: IBM Mainframe Discussion List 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 I have in the filtlist the q2vo.** dataset.. IF (( EQ 'RECOVER') AND ( EQ '')) THEN DO SET = 'FIST' EXIT END JCL I AM RUNNING //D2REST EXEC PGM=ADRDSSU,REGION=8M //SYSPRINT DD SYSOUT=* //OUTDDDD UNIT=SYSDA,DISP=(NEW,CATLG,CATLG) //INDD DD DSN=Q2SC.GN.GN.P010.GNTAPE.Q2BKUP(0), //DISP=SHR //DUMMYDD DUMMY //SYSINDD * 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
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 I have in the filtlist the q2vo.** dataset.. IF (( EQ 'RECOVER') AND ( EQ '')) THEN DO SET = 'FIST' EXIT END JCL I AM RUNNING //D2REST EXEC PGM=ADRDSSU,REGION=8M //SYSPRINT DD SYSOUT=* //OUTDDDD UNIT=SYSDA,DISP=(NEW,CATLG,CATLG) //INDD DD DSN=Q2SC.GN.GN.P010.GNTAPE.Q2BKUP(0), //DISP=SHR //DUMMYDD DUMMY //SYSINDD * 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 with the message: INFO IBM-MAIN