Thanks, Elardus
I was originally using "TRACE I" and getting flooded with information - I
see that your "TRACE ALL" is a far better option.
Here's an excerpt from the output log (attempted 'edits' of 2 members):
22 *-* DO J = I+1 TO
LM.0
23 *-* PARSE VALUE LM.J WITH MEM
EXTRA
24 *-* ADDRESS ISREDIT "EDIT DATASET('"DSN"("MEM")')"
"MACRO('"EXEC"')"
>>> "EDIT DATASET('ADJC.SEQNOS.ON(CLIENTX1)')
MACRO('ADJC.REXXLIB(UNNUM)')"
+++ RC(-3)
+++
25 *-*
END
22 *-* DO J = I+1 TO
LM.0
23 *-* PARSE VALUE LM.J WITH MEM
EXTRA
24 *-* ADDRESS ISREDIT "EDIT DATASET('"DSN"("MEM")')"
"MACRO('"EXEC"')"
>>> "EDIT DATASET('ADJC.SEQNOS.ON(DAYZREPB)')
MACRO('ADJC.REXXLIB(UNNUM)')"
+++ RC(-3) +++
… etc...
This is at a point in the REXX after the list of member names in the PDS
has been created - that part works fine.
Bear in mind that what you see here is just the latest 'iteration' in my
attempts at getting this thing working.
I've tried many different ideas, but I always get that darn RC-3
I'm questioning if the problem lies with the EDIT command, or within UNNUM
Just in case, here is 'UNNUM':
/* REXX */
ADDRESS ISREDIT
'REN'
'UNNUM'
'SAVE'
'END'
Regards
Sean
On 26 June 2018 at 13:23, John McKown <[email protected]> wrote:
> On Mon, Jun 25, 2018 at 5:23 PM Mike Schwab <[email protected]>
> wrote:
>
> > Which is why we suggested C ALL P'.' ' ' 73 80.
> > Change All characters to blanks in columns 73 to 80.
> >
>
> PMJI,
>
> I have fought and fought with myself to stay quiet, but my silliness
> factor is off the wall today. So I will reply with the most useless way to
> do this that I can come up with.
>
> 1) Install Co:Z to get the batch launcher and Data Set Pipes tools.
> 2) Run the following script
>
> export DSN='some.pds' # fully qualified name, not in ' marks but like in
> JCL
> pdsdir ${DSN} | \
> while read member;do
> fromdsn "${DSN}(${member})" | \
> cut -b 1-72 | \
> todsn "${DSN)$({member})"
> end
>
>
> All this can be done from a UNIX shell, thus _proving_ that the UNIX shell
> is more powerful than the standard TSO environment.
>
> ---- going back into my hole now ----
>
> --
> There is no such thing as the Cloud. It is just somebody else’s computer.
>
> Maranatha! <><
> John McKown
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
