When I have a lot of VSAM files to rename, I use DFDSS to do the rename
with filtering, here is an example

//S02 EXEC PGM=ADRDSSU,REGION=6000K,TIME=95               
//SYSPRINT DD SYSOUT=*                                    
//SYSUDUMP DD SYSOUT=A                                    
//SYSIN DD *                                              
      COPY -                                              
    DATASET(INCLUDE(DOTWONG.COPP.VSAM.IPOIDHD)) -         
    RENAMEUNCONDITIONAL(DOTWONG.COPP.VSAM.IPOIDHD, -      
            DOTWONG.NEWNAME.VSAM.TEST) -                  
       DELETE CATALOG PURGE                               
/*                                                        

----------------------------------------------------------------------
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

----------------------------------------------------------------------
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

Reply via email to