25 Nov
2021
25 Nov
'21
12:34 a.m.
Speaking of Barry and IBM, I've always loved his snark on AIX: "It will remind
you of Unix."
-r
P.S. My guess is that this code sets ELSE to 2. True?
On Nov 24, 2021, at 07:18, Richard Salz
<rich.salz(a)gmail.com> wrote:
I asked my pal Barry Shein, who many of you know, if he had his PL/1 syntax horror lying
around, and he did. He said: "this was tested on the Iron Spring Software PL/1
compiler running on openSuSe Linux (http://www.iron-spring.com/)"
IBM still uses PL/1. Remember, the main definition of "legacy" is
"revenue-producing."
TRY:PROC OPTIONS(MAIN);
DCL (IF,THEN,ELSE) FIXED BINARY (31);
IF = 1;
THEN = 2;
ELSE = 3;
IF IF = THEN THEN THEN = IF ; ELSE ELSE = THEN;
END TRY;