Find and replace in members of PDS

prabhu118 · New User Joined: 11 Feb 2008 Posts: 14 Location: Chennai

Hi Please find exact requirment below:

I have a PDS 'A' with several members. Requirement is to create a replica of all the members in a separate PDS 'B'.

But while doing this i have to search for few parameters in the members of PDS 'A' like:

LRECL=X.
RECFM=FB

And the correcponding members in PDS 'B' must have

LRECL=Y
RECFM=F

Thanks

superk · Posted: Mon Mar 03, 2008 8:03 am

OK. And .... ?? (what's the question?).

prabhu118 · New User Joined: 11 Feb 2008 Posts: 14 Location: Chennai

Apologize if the requirement is not posted clearly..

Have to copy all the members in PDS 'A' to PDS 'B' ...

But all the lrecl=X in members of PDS 'A' must be LRECL=Y in the corresponding members in PDS 'B'.

enrico-sorichetti · Posted: Mon Mar 03, 2008 2:13 pm

use option 3.3 to copy the existing dataset to the new one,
afterwards use the ...

http://www.ibmmainframes.com/viewtopic.php?t=25947&highlight=apply

writing an inner macro on th model of those posted ( $renum )
to issue as many

UmeySan · Posted: Mon Mar 03, 2008 4:22 pm

Hi !

First copy as enrico-sorichetti told you.
For the member-change you could use old ibm-utility IPOUPDTE.
This Tool changes Strings old in new in all Members of a PDS.
Very old IBM-Utility but still alive.

Check = only a simulation
UPDATE = real modifikation

//UPDAT1 EXEC PGM=IPOUPDTE,
//* PARM='UPDATE'
// PARM='CHECK'
//§DD01 DD DISP=SHR,DSN=IE31000.LITTLE.HUGO
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
BWS8<MT81<
BWS9<MT91<

Old-String<New-String<
//

Regards, UmeySan