Replace a particular string across all members in a PDS

sree_mainframe · New User Joined: 10 Aug 2006 Posts: 5

Hi
I want to replace a particular string across all members in a PDS. It is something like search and replace.
I want to do so in a batch mode using JCL.Please guide me in this issue.

superk · Posted: Thu Aug 10, 2006 3:39 pm

What PDS management tools do you have available? FILEAID? File Manager? Insync? PDS?

sree_mainframe · New User Joined: 10 Aug 2006 Posts: 5

hi

I am using FILEAID. Others i am not sure of. Thanks in Advance.

shreevamsi · Posted: Thu Aug 10, 2006 4:10 pm

Hi,

This is the JCl ur looking for.

//STEP010 EXEC PGM=FILEAID
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*
//DD03 DD DISP=SHR,DSN=XXXX.XXXX.XXXX
//SYSIN DD *
$$DD03 UPDATE ME=9999,
EA=(1,0,T"TAX",C"TAX1")
/*

The JCl replaces 'TAX' with 'TAX1' starting from the same position it was found.

~Vamsi

sree_mainframe · New User Joined: 10 Aug 2006 Posts: 5

hi

Thanks a lot!!! This forum is really a gem. I never expected such fast reponses. Cheers to the moderators and all the active members.
By the way the JCl works and if I want to change multiple words across multiple members what should I do. thnx in advance

sree_mainframe · New User Joined: 10 Aug 2006 Posts: 5

Hi

If I want to change multiple words across multiple members what should I do. thnx in advance

shreevamsi · Posted: Thu Aug 10, 2006 7:17 pm

hi,

Repeat the statement EA=(1,0,T"CHAR1",C"CHAR2") with the strings(CHAR1) to search and replace with (CHAR2).

sree_mainframe · New User Joined: 10 Aug 2006 Posts: 5

hi

Thnx a million. The code works great. Sp thanx to Shreevamsi.