MVSFORUMS.com

[goosse]

Last week a colleague of me started to create packages and plans for our new environment. He started creating them by hand but he has to create several thousand of them so i realized just now it has to be possible to create a rexx programma which reads a sequential file with the pds members to create and write in those members the statements which are all alike except for the member name.
We are both experienced programmers but not whit rexx.
Does anyone have a simple rexx programma to create pds members and write in those members some statements?

If we have an example it's easy to adapt to program for us but we it would be nice if someone has a nice example for us we can use.

Thanks allready

[superk]

[goosse]

[superk]

Well, based on your requirements, it seemed logical to me that you'd probably want to use ISPF Library Management (LM) routines, which aren't going to care what language you use to call them. I was also thinking of possible TSO/E EDIT or ISPF Edit Macros, again which really don't care about the language used.

There's nothing native in TSO/E REXX for dealing with PDS's, so you'll also have to use some TSO/E commands as well.

So, for running a REXX exec within a TSO/E environment, I'd approach it this way:

- Read the PS file with the member names into a REXX stem variable:

"EXECIO * DISKR ddname (STEM mem. FINIS"

TSO/E REXX EXECIO command syntax.

TSO/E REXX Stems.

- Setup a loop for each element of the stem variable mem., allocate the target PDS with the member name, and write the content to that member:

Do loop = 1 To mem.0
mem.loop = Strip(mem.loop) /* Remove spaces */
"ALLOCATE FI(ddname) DA('THE.PDS("mem.loop")') SHR REUSE"
Queue "whatever you want to write"
Queue "more ...."
...
"EXECIO "Queued()" DISKW ddname (FINIS"
"FREE FI(ddname)"
End

TSO/E REXX STRIP FUNCTION.

TSO/E REXX QUEUE INSTRUCTION.

TSO/E REXX QUEUED() FUNCTION.

TSO/E ALLOCATE COMMAND.

TSO/E FREE COMMAND.

[Dibakar]

Search for 'BPXWDYN' in this forum. This can be used in COBOL programs to read dynamically.

[goosse]

ok thanks i'll check those suggestions what best to use for us