To John McKown: I sense your frustration, sir.
The fact is that I have a great deal of difficulty dealing with anything unix-y. When I get anywhere close to USS stuff, co-workers here have described the outcome as being similar to throwing a crucifix at a vampire - I tend the 'fizz' a lot. :) That's the price to be paid for having been a mainframer for 45+ years and rapidly approaching retirement Regards Sean On 26 June 2018 at 13:57, Sean Gleann <[email protected]> wrote: > 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
