Sometimes, I just get enough fed up with badly designed/written* macros that I re-write them myself. Or in SETRP's case, why not just code your own flag settings? The SDWA is well-documented, and has a complete DSECT[s].
sas * SETRP hasn't caused *me* any problem. Many other IBM macros have, and do, but they're off-topic for now. On Tue, Apr 25, 2017 at 11:39 AM, Charles Mills <[email protected]> wrote: > And an IMREALLYTRULYPOSITIVEABOUTWHATIAMDOING=NO(default)/YES keyword for > the really risky options. > > Charles > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of Binyamin Dissen > Sent: Tuesday, April 25, 2017 8:05 AM > To: [email protected] > Subject: Re: SETRP with DUMP=YES > > On Tue, 25 Apr 2017 07:59:48 -0400 Peter Relson <[email protected]> wrote: > > :><snip> > :>It would be nice if one could > :> > :> IF condition1 > :> SETRP to return 64 > :> if condition2 > :> free local lock > :> if condition3 > :> set retry addr1 > :> IF condition4 > :> set retry addr2 > :> > :> BR R14 > :></snip> > > :>Why can't you? Although I assume you meant by "free local lock" instead > :>"ask RTM via SETRP to free local lock upon return" (and be aware that > that > :>with FRLKRTY=YES it will not be freed upon retry). I'm not sure what > :>"return 64" means or what you wrote a it earlier "return in AMODE31". > > :>The only thing anomalous I see in what you pose above is that if by "free > :>local lock" you mean SETRP FRELOCK=LOCAL, you have to be aware that that > :>is equivalent to SETRP FRELOCK=LOCAL,RC=0 > > :>It is true that some of the retry-oriented options (such as RETADDR) > :>require that you specify RC=4. So if your "SETRP to return 64" meant > :>including setting RC=4 (retry) then your "free local lock" would have > :>reset it to 0 (percolate). > > That is what I mean. Let me specify only what I want - if necessary, add a > IKNOWWHATIAMDOING=NO(default)/YES keyword which will avoid the checks. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- sas ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
