On 2021-01-12 16:20, Seymour J Metz wrote:
ISREDIT is only valid for an edit macro. You need on script to invoke EDIT and a second script running as an IMACRO for the edit. If they are in SYSPROC then you need to start the first comment with REXX./* Outer script */ parse upper arg dataset "CONTROL ERRORS RETURN" 'EDIT DATASET('dataset') MACRO(STRIPED')' /* Tailor above to suit your needs */ /* Inner script */ 'CONTROL ERRORS RETURN' ADDRESS ISREDIT 'UNNUMBER' 'SAVE' 'END'
You can actually use a single exec, use a "VGET" (with RC=0) when the macro is invoked by the same command that has done a "VPUT".
Doing so has the advantage of keeping things together, like the PL/I RFE I've very recently entered, <https://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe&CR_ID=147579>. Feel free to vote for it, although I already expect it to be accepted.
And using the earlier in this thread mentioned "parse source" to get the name of the executing exec/macro, it will actually continue to work if it's renamed.
And a general note: when using ISPF edit to remove sequence numbers from a (large) number of (large) members, you might need to cater for the fact that a PDS might need to be compressed at some stage in the middle of your processing!
Robert PS: Please people, strip off all the unnecessary garbage from your replies... -- Robert AH Prins robert.ah.prins(a)gmail.com The hitchhiking grandfather - https://prino.neocities.org/ Some REXX code for use on z/OS - https://prino.neocities.org/zOS/zOS-Tools.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
