IBM never upgraded TSO/E for the REXX standard. I see nothing in z/OS TSO/E 
REXX Reference Version2 Release3, SA32-0972-30 about built-in variables TRUE 
and FALSE.

More important, IMHO, is that IBM did not add the ANSI extensions to ADDRESS.



--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3

________________________________________
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of 
Paul Gilmartin <0000000433f07816-dmarc-requ...@listserv.ua.edu>
Sent: Saturday, January 12, 2019 6:43 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unreadable code (Was: Concurrent Server Task Dispatch issue 
multitasking issue)

On Sat, 12 Jan 2019 22:58:13 +0000, Rupert Reynolds wrote:

>Fancy code? I remember once wanting to set a flag under certain circs, and
>I considered something like:
>
>/* Rexx */
>TRUE = 1=1
>FALSE = \TRUE
>. . .
>flag = TRUE
>
>I can't remember now whether I used it, or hated it.
>
More concisely:
    TRUE  = 1
    FALSE = 0

These are in he Rexx Standard; you may rely on them.  Nonetheless, you
may choose to assign those mnemonics for clarity.

I consider
    if flag = TRUE  ...
and
    if flag = FALSE ...
and
    if A == B then flag = TRUE; else flag = false

... (which I've seen used) execrable expansions of
    if flag ...
or
    if \flag ...
or
    flag = ( A == B )  /* Superfluous parentheses may enhance clarity.  )

)you might as well code:
    if flag = TRUE = TRUE = TRUE ...

-- gil

----------------------------------------------------------------------
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

Reply via email to