IBM MAINFRAME HELP & SUPPORT FORUMS
Technical Forums for IBM Mainframe Applications like COBOL, JCL, CICS, DB2, FileAid, DFSORT, Endevor, Xpediter, CoolGen, CA-7&11, AbendAid, IMS, IDMS, PL/I, MqSeries, SyncSort, Assembler, ChangeMan, Easytrieve, InterTest, REXX, CLIST etc...
 

How to rename a set of files in one shot ?

THIS IS AN ARCHIVE FORUM: CLICK HERE TO GO TO THE ORIGINAL TOPIC

 
       IBMMAINFRAMES.com - IBM Mainframe Support Forums Index -> SMS & VSAM
View previous topic :: View next topic  
Author Message
mijanurit



Joined: 26 Aug 2005
Posts: 46
Location: bangalore

Posted: Tue Sep 02, 2008 7:44 pm    Post subject: How to rename a set of files in one shot ?  

How to rename a set of files in one shot ?


Rahman
Back to top  
expat



Joined: 14 Mar 2007
Posts: 3544
Location: Brussels once more ...

Posted: Tue Sep 02, 2008 7:50 pm    Post subject:  

Read the IDCAMS manual - ALTER command
Back to top  
superk



Joined: 26 Apr 2004
Posts: 3304
Location: Charlotte,NC USA

Posted: Tue Sep 02, 2008 7:55 pm    Post subject: Reply to: How to rename a set of files in one shot ?  

Read the TSO manual, or online help, for the RENAME command.
Back to top  
guptae



Joined: 14 Oct 2005
Posts: 1025
Location: Bangalore,India

Posted: Tue Sep 02, 2008 8:02 pm    Post subject:  

Hello Rahman,

You can use idcams /Dfsort for this

Idcams JOb

Code: //STEP030  EXEC PGM=IDCAMS                   
//SYSUDUMP DD SYSOUT=Z                       
//SYSPRINT DD SYSOUT=*                       
//SYSIN    DD *                               
  SET MAXCC=0                                 
    ALTER   A40661.ŁK.DB2.CNTL            -   
    NEWNAME(A40661.DB2.CNTL        )         
    ALTER   A40661.ŁK.DB2.JCLLIB           - 
    NEWNAME(A40661.DB2.JCLLIB      )         

Dfsort job
Code: //FILTER3  EXEC PGM=ICETOOL                                           
//TOOLMSG  DD SYSOUT=*                                               
//DFSMSG   DD SYSOUT=*                                               
//IN1      DD DSN=A40661.ŁK.DB2.CNTL ,DISP=SHR
//IN2      DD DSN=A40661.ŁK.DB2.JCLLIB,DISP=SHR
//OUT1     DD DSN=A40661.DB2.CNTL ,         
//         DISP=SHR                                                   
//OUT2     DD DSN=A40661.DB2.JCLLIB , DISP=SHR 
//TOOLIN   DD *                     
 COPY FROM(IN1) TO(OUT1) USING(CTL1)
 COPY FROM(IN2) TO(OUT2) USING(CTL1)
//CTL1CNTL DD *   
  SORT FIELDS=COPY
/* 

hope it helps
Back to top  
mijanurit



Joined: 26 Aug 2005
Posts: 46
Location: bangalore

Posted: Tue Sep 02, 2008 8:16 pm    Post subject:  

thank you all .. thanka so much

Regards
Rahman
Back to top  
 
       IBMMAINFRAMES.com - IBM Mainframe Support Forums Index -> SMS & VSAM
Page 1 of 1
THIS IS AN ARCIVE FORUM IN READ ONLY MODE. IF YOU WANT TO ASK YOUR DOUBTS USE THE ACTUAL FORUM