Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
renaming the member in a pds

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
natraj_breeze

New User


Joined: 17 Aug 2005
Posts: 3

PostPosted: Fri Sep 23, 2005 12:33 pm    Post subject: renaming the member in a pds
Reply with quote

hi

i have 1800 member in one pds i need to rename those members.


ex: abcd1234 i need to change to xyza1234

lkjh2345 i need to change to xyza2345

any body knows how to rename first 4 character of all the member name at a stretch in a pds.

thanks
natarajan
Back to top
View user's profile Send private message

Dariusz
Warnings : 1

New User


Joined: 11 Aug 2005
Posts: 27
Location: POLAND

PostPosted: Fri Sep 23, 2005 4:27 pm    Post subject: Rename
Reply with quote

I don't know very simple way,but it is possible!
You cane create CLIST for that work.
One way can be it:
-listing from library as a data set(members only)
-in this listing by editor functions we make this form:
rename 'library(mem1)' 'library(newmem1)'
..............................................................
...............................................................
rename 'library(mem1800)' 'library(newmem1800)'
New names we've got by change.
This clist we run from function 6 in ISPF/PDF.
Many regards.
Dariusz
Back to top
View user's profile Send private message
Kevin

Active User


Joined: 25 Aug 2005
Posts: 234

PostPosted: Sat Sep 24, 2005 1:39 am    Post subject: Re: renaming the member in a pds
Reply with quote

I think that the basic method proposed by Dariusz is realistic and should work. YOU will need to figure out the best way to accomplish it.

As an alternative, you could use the IEBPTPCH program to convert the PDS to a sequential dataset, use the SORT program to modify the member names and convert the data into an IEBUPDTE format, and finally use the IEBUPDTE program the create a new PDS with the new member names:

Code:

//STEP0002 EXEC PGM=IEBPTPCH                         
//SYSPRINT DD   SYSOUT=*                             
//SYSUT1   DD   DISP=SHR,DSN=&SYSUID..MY.PDS         
//SYSUT2   DD   DSN=&&X1,DISP=(,PASS),UNIT=VIO       
//SYSIN    DD   *                                   
  PUNCH TYPORG=PO                                   
/*                                                   
//*                                                 
//STEP0003 EXEC PGM=SORT                                             
//SORTIN   DD   DSN=&&X1,DISP=(OLD,PASS)                             
//SORTOUT  DD   DSN=&SYSUID..MY.PDS.SEQ,                             
//         DISP=(,CATLG,DELETE),UNIT=SYSDA,                         
//         SPACE=(TRK,(1,1),RLSE),RECFM=FB                           
//SYSOUT   DD   SYSOUT=*                                             
//SYSIN    DD   *                                                   
  OPTION COPY                                                       
  INREC IFTHEN=(WHEN=(2,11,CH,EQ,C'MEMBER NAME',AND,                 
    (15,4,CH,EQ,C'ABCD',OR,15,4,CH,EQ,C'LKJH')),                     
    BUILD=(1,14,15:C'XYZA',19,4))                                   
  OUTREC IFTHEN=(WHEN=(2,11,CH,EQ,C'MEMBER NAME'),                   
    BUILD=(1:C'./',10:C'ADD MEMBER=',15,8)),                         
         IFTHEN=(WHEN=(2,11,CH,NE,C'MEMBER NAME'),                   
    BUILD=(1:2,80))                                                 
/*                                                                   
//*                                                                 
//                                                                   
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts member list compare jzhardy TSO/ISPF 6 Fri May 12, 2017 3:18 pm
No new posts Browsing member from any PDS shiitiizz CLIST & REXX 7 Wed Mar 08, 2017 1:17 am
No new posts Bind plan as a member to another bind... rexx77 DB2 0 Thu Feb 16, 2017 2:02 am
No new posts find particular member name in PDS us... ravi243 CLIST & REXX 10 Mon Dec 19, 2016 6:44 pm
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 7 Fri Nov 18, 2016 1:48 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us