Not that I found. But I take it as a given they maintain an un-squished version. By the way, I did not come up with that technical term. They all have header comments like this:
/************************************************************************REXX**/ /* Part: AOFEIZPD Squished: 19 May 2011 */ First Horizon Bank Mainframe Technical Support -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Seymour J Metz Sent: Tuesday, November 24, 2020 12:27 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Has anyone integrated Rexx with IKJPARS? [External Email. Exercise caution when clicking links or opening attachments.] Did IBM also provide a libray of unsquished REXX code? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Jackson, Rob <rwjack...@firsthorizon.com> Sent: Monday, November 23, 2020 10:19 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Has anyone integrated Rexx with IKJPARS? Years ago while disabling some built-in automation in SA for z/OS I found that the REXX code SA actually ran live was almost all "squished." I didn't dig into it, but I assumed (I still believe safely) that it was to reduce interpreter overhead. I just took a look at it tonight to see how the efficiency-minded SA developers coded keywords. A brief look says the majority are first-letter capitalized (as Mike said to do, I believe--which is the reason I always have) or completely capitalized; however, there are enough exceptions to make me wonder. By the way, if you haven't seen it, here's a snippet as an example. It is really . . . something: If cond = 'NOVALUE' | cond = 'HALT' Then rc = 'N/A';Select When cond = 'HALT' Then desc = 'CLIST HALTED' When cond = 'SYNTAX' Then desc = errortext(rc);When cond = 'FAILURE' Then Do If rc = -1 Then;desc = 'COMMAND NOT FOUND';If rc = -3 Then desc = 'COMMAND NOT PERMITTED';End;Otherwise Nop;End "AOFMSG "cond",760,LOG,"loc.0me","sigl","rc",'"desc"'";Call Aof_Exit -5;Exit -5 Aof_Silent_Error:;Call Aof_Exit 0;Exit 0;Aof_Exit:;Procedure Expose loc. Do ix = 1 to Words(loc.0claim_tickets);ticket = WORD(loc.0claim_tickets,ix) Call INGPXDEL ticket;End;if loc.0UserExit = 'Y' then;call @User_Exit lrc = Arg(1);If Arg(2) <> 'TEXT' then;If datatype(lrc,'W') ^= 1 Then lrc = 0 Select;When cglobal('AOFDEBUG') = 'Y' Then "AOFMSG" loc.0me",702,LOG,"time()","opid()","lrc;When loc.0debug = 'Y' Then Call Aof_Debug 'COMPLETE, RC='||lrc||'.';Otherwise nop;End;Exit lrc First Horizon Bank Mainframe Technical Support -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Jeremy Nicoll Sent: Monday, November 23, 2020 9:50 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Has anyone integrated Rexx with IKJPARS? [External Email. Exercise caution when clicking links or opening attachments.] On Tue, 24 Nov 2020, at 02:20, Al Ferguson wrote: > Performance reasons. Without the quotes REXX first interprets MVS as a > variable name Are you sure? I thought that environment (after address) was one of the few places in REXX where quotes were unnecessary because what's typed there is regarded as a constant. And, that if you actually wanted a variable's value to be used, you'd have to code address value varname > Back in the MVS & MVS/XA Days, these types of performance > optimizations were actually quite noticeable. Even if what you said above was true, I doubt very much that capitalising the environment name would ever have make a measurable difference, bearing in mind how few times one would typically specify an address statement in a typical exec. > I similarly "always" capitalize REXX Key words, to save REXX from > having to spend cycles actually FOLDING then up. It's been years since I wrote any REXX on a mainframe, but I know I didn't uppercase my code back then ... and a quick look at current manuals shows sample code is sometimes in uppercase, and sometimes mixed case. Is this idea that uppercase REXX is more efficient something that everyone here accepts? -- Jeremy Nicoll - my opinions are my own. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Confidentiality notice: This e-mail message, including any attachments, may contain legally privileged and/or confidential information. If you are not the intended recipient(s), or the employee or agent responsible for delivery of this message to the intended recipient(s), you are hereby notified that any dissemination, distribution, or copying of this e-mail message is strictly prohibited. If you have received this message in error, please immediately notify the sender and delete this e-mail message from your computer. ---------------------------------------------------------------------- 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