MVSFORUMS.com

[rama krishna reddy]

Hi Every one,

we are supposed to change all the program names.

earlier prog names are starting with CW we need to change to C8

EX: CWSE1200 we need to change to C8sSE1200
in the same way we need to change all the program names.

is there any simple way scince we need to rename so many programs

is it possible thru fileaid ? Please help in finding solution for this .

Thanks
Rama krishna reddy

[ofer71]

You can write your own REXX:
- Create an array with all the member names, using LMMLIST.
- For each member, issue LMMREN.

O.
________
vapolution

[sharada]

Hi Rama Krishna Reddy,

It is possible through FILE AID.
In File Aid go for option 3 (utilities) and then 6 (search/update) then give M and the pds name in quotation marks DATASET NAME then CHANGE and then give FROM STRING and TO STRING. Thats it.

Regards,
Sharada.

[rama krishna reddy]

Hi fileaid 3.6 is used when u want to rename some string which is inside the (program) pds member ,i guess u did not get me question

supppose i got pds wxx262.rama.pds

members are
cw12100
cw122000
cw130000
cw150000 and so on
so i want to change member names from cw to c8
i mean after chnaging member name it should be
C812100
C8122000
C8130000
C8150000

iam i clear ?

Thanks
Rama krishna reddy

[semigeezer]

ofer71 gave you a good suggestion. If you need to change the contents of the member, just invoke edit for each member with an initial macro that does the changes.

[sharada]

Hi Ramakrishna Reddy,

I took your question wrongly, to change the member names you can use FILE AID batch. Try the following code.

//STEP010 EXEC PGM=FILEAID
//DD01 DD DSN=....., (INPUT PDS)
// DISP=SHR
//DD01O DD DSN=....,(OUTPUT PDS)
// DISP=SHR
//SYSIN DD *
$$DD01 COPY MEMBERS=CW----,
NEWMEMS=C8----
//SYSPRINT DD SYSOUT=*
//SYSLISTT DD SYSOUT=*
//SYSDUMP DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*

[rama krishna reddy]

Hi , Sharadha
Thanks for u r response.I tried the job which u have given it is not working .finally i found the solution


FILEAID 3.3
Specify "FROM" Dataset or HFS Path Information:
Dataset or path ===> 'WXX262.RAMA.CCR.PROGRAM'
Volume serial ===> (If not cataloged)

Specify "TO" Dataset or HFS Path Information:
Dataset or path ===> 'WXX262.RAMA.OUT.PDS'
Volume serial ===> (If not cataloged)
Disposition ===> OLD (OLD, MOD, NEW)

ENTER

Replace like-named members ===> Y

Rename copied members mask ===> c8??????

Each ? (question), (or %), in the mask is treated as a "pass-thru" flag
telling File-AID to preserve the original member name character at that
location when constructing the new name.

s CW130000 (S to select members which we want to rename )
s CW151000

final o/p pds will contain member names as C8130000
cw will replace with C8.