Whilst this basically true, you can have the same REXX invoked as a macro
using the technique I used.
Wrapping ISREDIT MACRO in CONTROL ERRORS allows you to get the RC20 if it's
not running under Edit (and obviously any other major reasons) , this
enabling you to determine which path through the program you need to take.
If you call other edit macros from within an edit macro when both have
ISREDIT MACRO coded, you also get the RC20. Again wrapping that in CONTROL
ERRORS allows you to use a macro as a user command as well as calling it
from other macros.
Andy
On Tue, 12 Jan 2021, 16:20 Seymour J Metz, <sme...@gmu.edu> 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'
>
>
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> ________________________________________
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Sean Gleann [sean.gle...@gmail.com]
> Sent: Tuesday, January 12, 2021 5:30 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Request for help with removing sequence numbers from PDS
> members
>
> I've been told by Powers That Be that this line of development is redundant
> & that a different solution has been independently developed elsewhere in
> the company. (*sigh* - 'twas ever thus)
> But I'm still interested in discovering what I'm doing wrong.
> To that end, here's the jobstream I'm using, in the hope that someone can
> pin-point the problem:
> (I do so hope that this comes through without being reformatted by various
> e-mail servers...)
>
> <job statement>
> //RUNREXX EXEC PGM=IKJEFT01
> //SYSTSPRT DD SYSOUT=*
> //ISPMLIB DD DSN=ISP.SISPMENU,DISP=SHR
> //ISPPLIB DD DSN=ISP.SISPPENU,DISP=SHR
> //ISPSLIB DD DSN=ISP.SISPSLIB,DISP=SHR
> //ISPTLIB DD DSN=ISP.SISPTENU,DISP=SHR
> //ISPPROF DD DISP=(NEW,PASS),SPACE=(TRK,(1,1,1)),
> // DSORG=PO,RECFM=FB,BLKSIZE=27920,LRECL=80
> //SYSEXEC DD DSN=<my SYSEXEC PDS>,DISP=SHR
> //SYSTSIN DD *
> ISPSTART CMD(STRIPNOS <input pds dsname>)
>
> and here is the first part of the STRIPNOS REXX program - such as it is
> right now:
>
> /* REXX to strip line numbers in place */
> /* trace i */
> parse source
> arg dataset
> say "PDS to be modified:" dataset
> "ISPEXEC CONTROL ERRORS RETURN"
> "ISREDIT MACRO"
> edMac = rc
> "ISPEXEC CONTROL ERRORS CANCEL"
> (followed by the rest of Andy's solution, currently all commented out)
>
>
> ** Mark well that phrase 'as it is right now'. As I've already detailed,
> I've tried many different variants of this code to try and get something
> working, with a notable lack of success
>
> Regards
> Sean
>
> On Mon, 11 Jan 2021 at 20:03, Lennie Dymoke-Bradshaw <
> 0000032fff1be9b4-dmarc-requ...@listserv.ua.edu> wrote:
>
> > Apologies, you wanted to do a PDS member.
> >
> > //EDIT EXEC PGM=IKJEFT01
> > //SYSTSPRT DD SYSOUT=*
> > //SYSTSIN DD *
> > EDIT 'LEN.X.TEST.NVSAM.PDS(#ASM)' DATA
> > LIST
> > UNNUM
> > LIST
> > END SAVE
> > /*
> > //
> >
> > Note the LIST commands are optional.
> > Lennie
> >
> > -----Original Message-----
> > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf
> > Of Lennie Dymoke-Bradshaw
> > Sent: 11 January 2021 19:48
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Request for help with removing sequence numbers from PDS
> > members
> >
> > Here's how to do it using TSO EDIT.
> >
> > //EDIT EXEC PGM=IKJEFT01
> > //SYSTSPRT DD SYSOUT=*
> > //SYSTSIN DD *
> > EDIT 'LEN.X.TEST.NVSAM.FB80' DATA
> > LIST
> > UNNUM
> > LIST
> > END SAVE
> > /*
> > //
> >
> > Lennie
> >
> > -----Original Message-----
> > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf
> > Of Lennie Bradshaw
> > Sent: 11 January 2021 12:26
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Request for help with removing sequence numbers from PDS
> > members
> >
> > How about TSO EDIT (yes TSO, not ISPF) in batch.
> > Lennie
> >
> > -----Original Message-----
> > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf
> > Of R.S.
> > Sent: 11 January 2021 10:21
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Request for help with removing sequence numbers from PDS
> > members
> >
> > W dniu 11.01.2021 o 10:05, Sean Gleann pisze:
> > > This has almost certainly cropped up before but try as I might, I
> > > can't spot anything obvious in the archives.
> > >
> > > I have a need to strip sequence numbers from members in a PDS or PDSE.
> > > The input PDS(E) has DCB characteristics of REFCM=FB,LRECL-80, and
> > > contains an unknown number of members. Of those members, some will
> > > have records with 'old data' in character positions 73-80 (that is -
> > > sequence numbers, or whatever remains of them).
> > > I want to be able to copy this input PDS(E) to a new one with the same
> > > DCB info, but all records in all members must have spaces in positions
> > 73-80.
> > >
> > > I thought that ICETOOL might be able to do this but as far as I can
> > > see, ICETOOL needs to be told which member names to process. That
> > > information is readily available while developing and testing a
> > > solution, but not when the result is used in a more general scenario.
> > >
> > > Can anyone point me at some sort of solution that I might adapt,
> please?
> > > Perhaps there is something on the CBT tape that might help...
> >
> > I don't know any tool, but I have some idea how to do it.
> > Use REXX script.
> > It's quite simple to get member list and do somethin in a loop until last
> > member is processed.
> > What to do?
> > Again, I don't know any tool, however it could be feasible to use
> IEBGENER
> > with non-empty SYSIN, ICEMAN, or TSO EDIT, or ISPF EDIT, or something
> else.
> > Caution: things are simple when you just want to replace position 73-80
> > despite of its actual content, that means without checking it.
> >
> > HTH
> >
> > --
> > Radoslaw Skorupka
> > Lodz, Poland
> >
> >
> >
> >
> >
> > ======================================================================
> >
> > Jeśli nie jesteś adresatem tej wiadomości:
> >
> > - powiadom nas o tym w mailu zwrotnym (dziękujemy!),
> > - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub
> > zapisałeś na dysku).
> > Wiadomość ta może zawierać chronione prawem informacje, które może
> > wykorzystać tylko adresat. Przypominamy, że każdy, kto rozpowszechnia
> > (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania,
> > narusza prawo i może podlegać karze.
> >
> > mBank S.A. z siedzibą w Warszawie, ul. Prosta 18, 00-850 Warszawa,
> >
> http://secure-web.cisco.com/1uln_vwLvV7mv1qe-TN7V-Yq4vJOfS7OU0_G30MfAhZIkJrHgL2P6Awr0_pd9c4HHTiNGV8RJzpySRcKyz02mhGMQjB40wNxnMkFCw02EkozguIhTeKLhnS7Dzyonk6RkvD6rOS4kWk3DtCTG-Uu7I9qKHBvOZOykl0Jl0Dy2Ev5j36LZ_ymuS5MQDQm5DQhu-XQzyK1b2BleKBiz2UxO1KuWA-dH_kIWNWewBXlO-aR3p44oonHstIt8xMlq5sp1BEZgwKyKQs1veDkz9JlXG5cHYpA7vPt_T35NJHgndnCFA1cgd0k3STZP9Ybnjc1IjucL0QIJLpba7GKSdO6AEQt2RtQE19WCjyt0JZX7fwDhqTPi207AZY2Mt6hmNFz64oMkyaO9-A9HawZGXlNuS2ofRtSA9vHphfI1ypcUsNUjmeF5_nKLii2Xr4nch9sH/http%3A%2F%2Fwww.mBank.pl,
> e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy
> > XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 0000025237, NIP:
> > 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na
> > 01.01.2020 r. wynosi 169.401.468 złotych.
> >
> > Jesteśmy administratorem twoich danych osobowych, które podałeś w związku
> > z prowadzoną z nami korespondencją. Przetwarzamy te dane dla celów, które
> > wynikają z przedmiotu korespondencji, w tym związanych z prowadzoną
> > działalnością bankową.
> > Więcej informacji o tym jak chroniony i przetwarzamy dane osobowe
> > znajdziesz w Pakietach RODO (w wersji polskiej i angielskiej), które są
> na
> >
> http://secure-web.cisco.com/1_Ke0q3UTl57rSyD3N_rHFs8X438idhf4LYfkd4H_sBhYnEgoM7p9sPxTKja2tG9dYm7lDBcaJkMo9t7yYzUicSNdhoArO3oGDE4EgrMgwwDhWz_rnqK9e-Neu4A4TgH41xYhgQAPW7i8RA8y1UsfCBHvNH04hTZ48bjlObWXAGtowDaHbaJ31WJVHCz2QKbSWp0yPvTDHvGo7tO3A-rcSYmmrgVuUrcFkNx3w5UIheX2XO4cDfJSpkU0wYLuPPvRE13WRy2k70ury941S_m4UM3Ldx6XM_z5GaSwLZ7XCbz779u7n_F8FeqtvtmmwoAshW-g5VmYi-LjlfInYWKDe-UMhQ67cFf-WHr8btQr-EtrPtNq08DAIXyShpbD3ZVa66WWFaDHl5N_7bxOtYgK2vPxiCslubvt9p5M526pMBPLwsP7z3a1-yYQoS7kIvOl/http%3A%2F%2Fwww.mbank.pl%2Frodo
> >
> >
> > If you are not the addressee of this message:
> >
> > - let us know by replying to this e-mail (thank you!),
> > - delete this message permanently (including all the copies which you
> have
> > printed out or saved).
> > This message may contain legally protected information, which may be used
> > exclusively by the addressee.Please be reminded that anyone who
> > disseminates (copies, distributes) this message or takes any similar
> > action, violates the law and may be penalised.
> >
> > mBank S.A. with its registered office in Warsaw, ul. Prosta 18, 00-850
> > Warszawa,
> http://secure-web.cisco.com/1uln_vwLvV7mv1qe-TN7V-Yq4vJOfS7OU0_G30MfAhZIkJrHgL2P6Awr0_pd9c4HHTiNGV8RJzpySRcKyz02mhGMQjB40wNxnMkFCw02EkozguIhTeKLhnS7Dzyonk6RkvD6rOS4kWk3DtCTG-Uu7I9qKHBvOZOykl0Jl0Dy2Ev5j36LZ_ymuS5MQDQm5DQhu-XQzyK1b2BleKBiz2UxO1KuWA-dH_kIWNWewBXlO-aR3p44oonHstIt8xMlq5sp1BEZgwKyKQs1veDkz9JlXG5cHYpA7vPt_T35NJHgndnCFA1cgd0k3STZP9Ybnjc1IjucL0QIJLpba7GKSdO6AEQt2RtQE19WCjyt0JZX7fwDhqTPi207AZY2Mt6hmNFz64oMkyaO9-A9HawZGXlNuS2ofRtSA9vHphfI1ypcUsNUjmeF5_nKLii2Xr4nch9sH/http%3A%2F%2Fwww.mBank.pl,
> e-mail: kont...@mbank.pl. District Court for the
> > Capital City of Warsaw, 12th Commercial Division of the National Court
> > Register, KRS 0000025237, NIP: 526-021-50-88. Fully paid-up share capital
> > amounting to PLN 169.401.468 as at 1 January 2020.
> >
> > We are the controller of your personal data, which you provided in
> > connection with correspondence with us. We process your data for purposes
> > resulting from the subject of correspondence, including those related to
> > the banking services.
> > More information on how we protect and process personal data can be found
> > in the GDPR Packages (in English and Polish), which are on
> >
> http://secure-web.cisco.com/1_Ke0q3UTl57rSyD3N_rHFs8X438idhf4LYfkd4H_sBhYnEgoM7p9sPxTKja2tG9dYm7lDBcaJkMo9t7yYzUicSNdhoArO3oGDE4EgrMgwwDhWz_rnqK9e-Neu4A4TgH41xYhgQAPW7i8RA8y1UsfCBHvNH04hTZ48bjlObWXAGtowDaHbaJ31WJVHCz2QKbSWp0yPvTDHvGo7tO3A-rcSYmmrgVuUrcFkNx3w5UIheX2XO4cDfJSpkU0wYLuPPvRE13WRy2k70ury941S_m4UM3Ldx6XM_z5GaSwLZ7XCbz779u7n_F8FeqtvtmmwoAshW-g5VmYi-LjlfInYWKDe-UMhQ67cFf-WHr8btQr-EtrPtNq08DAIXyShpbD3ZVa66WWFaDHl5N_7bxOtYgK2vPxiCslubvt9p5M526pMBPLwsP7z3a1-yYQoS7kIvOl/http%3A%2F%2Fwww.mbank.pl%2Frodo
> .
> >
> > ----------------------------------------------------------------------
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> > ----------------------------------------------------------------------
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> > ----------------------------------------------------------------------
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> > ----------------------------------------------------------------------
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
