Adding data to all members in a PDS

mambopras · New User Joined: 11 Nov 2008 Posts: 52 Location: Hyderabad

Hi,
I am stuck with a problem of having to include 2 lines of comments in all the members of a PDS. Manually adding two lines is very time-taking and tedious.
Example : I need to include two lines like below in all the members of a PDS.
a) /* THIS MEMBER IS USED TO DEFINE THE VALUES
/* FOR SYMBOLIC VARIABLES

Are there any utilities that will help us automate this process ?

superk · Posted: Sat Feb 19, 2011 11:32 pm

You can:

1. Copy the PDS to a sequential dataset (IEBPTPCH), re-format and add the data as needed where needed (SORT or any other utility/program you desire), then build a new PDS with the updated members (IEBUPDTE).

2. Create a TSO EDIT process to add the data for each member of the PDS (REXX/Clist would be useful here).

3. Use a tool like SAS to do this.

4. Create an ISPF Edit Macro to add the data. Write a program to call ISPF EDIT and have it invoke that Edit Macro for each member.

5. Write a program to read each member, add the data, the rewrite the member, repeated for all the members.

6. Write a program to use ISPF Library Management (LM) services to loop through the members, edit each one, add the data, and rewrite each one. Or, some combination of any of the above.

7. Use whatever third-party product you may already have in your shop for this that we obviously wouldn't know about unless you tell us.

daveporcelan · Posted: Mon Feb 21, 2011 8:56 pm

I would choose option number 4. But that would be my opinion only.

GuyC · Posted: Mon Feb 21, 2011 9:00 pm

enrico-sorichetti · Posted: Mon Feb 21, 2011 9:28 pm

strongly agree

every professional should have into his tools chest
a macro to apply a macro to all the other members of the PDS

my suggested approach is to open an empty member
and insert a line for each member with the indication changed/not changed and all the other info for <debugging>

and a significant set of inner macros to perform any needed process
for example
renumber
unnumber
pack
unpack
build/rebuild a job card
compile
...
mass change
insert lines

I had an ispf dialog for the last two tasks,
but I somehow lost track of it, when I' ll find it I will be glad to post it

mambopras · New User Joined: 11 Nov 2008 Posts: 52 Location: Hyderabad

Thanks for your sugegstions, I would try using your pointers to achieve it....

dbzTHEdinosauer · Posted: Tue Mar 01, 2011 7:13 pm

Though it is written in CLIST, it is easily converted to REXX.

2.4.3 ISRMBRS macro

The ISRMBRS macro (Figure 47 ) uses PDF library access services to determine each member name in the library being edited.

This macro invokes the edit service for each member in the library, except the member currently being edited, passing a user-specified edit macro on the edit service invocation. The ISRMBRS macname command, where macname is the name of the macro to be invoked against each member, starts the service.

This macro can aid in making repetitive changes to all members of a data set, or in searching all members for a specific string of data.

provides a first tool for your tool-chest.