A Mistake I made many times: you should not put filtlist names in quotes, only 
strings.
So in your routine, &HLQ is compared to the string '&FIST'
To compare &HLQ to the filtlist &FIST, you should code: (&HLQ EQ &FIST)

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 <[email protected]> On Behalf Of 
Shelia Chalk
Sent: 25 March 2020 15:52
To: [email protected]
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 &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 [email protected] 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 [email protected] with the message: INFO IBM-MAIN

Reply via email to