The value 00110001 in REXX is an 8 character string. The value '00110001'b in PL/I is an 8 bit string. The REXX equivalent would be X2C(B2X(00110001)).
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <[email protected]> on behalf of CM Poncelet <[email protected]> Sent: Monday, September 7, 2020 1:23 AM To: [email protected] Subject: Re: REXX true/false (was Constant Identifiers) ARG DEBUG IF DEBUG = 'DEBUG' THEN , TRACE I TRUE = (1-1=0 & 4¬=6) TVAL = '0011'||X2B(D2X(TRUE)) SAY 'TRUE = 'TRUE SAY 'TVAL = 'TVAL IF TRUE THEN SAY 'TRUE' IF TVAL THEN SAY 'TVAL' IF ¬TRUE THEN SAY 'NOT TRUE' IF ¬TVAL THEN SAY 'NOT TVAL' EXIT 0 gives (in ASCII): TRUE = 1 TVAL = 00110001 TRUE TRUEFALS(9): Error #34, Logical value not 0 or 1 IF TVAL THEN SAY 'TVAL' PRESS ANY KEY TO CONTINUE. ;-) On 07/09/2020 03:23, Paul Gilmartin wrote: > On Mon, 7 Sep 2020 02:31:33 +0100, CM Poncelet wrote: > >> In the following example, >> TRUE = (1 - 1 = 0 & 1 ¬= 0) [or whatever is more appropriate], >> it is then sufficient e.g. to code: >> IF 4 ¬= 6 & TRUE THEN <whatever> >> ELSE IF ¬TRUE THEN <whatever else> >> >> I.e. TRUE can be defined as a Boolean '1'b in REXX, as per above. >> > No. In Rexx the only legal Boolean values are: > FALSE TRUE > '11110000'b '11110001'b EBCDIC > '00110000'b '00110001'b ASCII > > -- gil > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > . > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
