Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Rupert Reynolds [rreyno...@cix.co.uk]
Sent: Thursday, April 6, 2023 3:01 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX/COBOL conversion question
The "principle of least astonishment" works well for me in Rexx, although
The "principle of least astonishment" works well for me in Rexx, although I
confess it took a while to make the best of it :-)
Yes, I checked in ooRexx and in the docs for Regina:-
Comparison with = is case-sensitive and leading/trailing blanks are
stripped and/or added. So ("" = "")
: Thursday, April 6, 2023 12:22 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX/COBOL conversion question
The variable is defined at level 05 so it is probably part of a structure
(group item in terms of cobol). You must maintain the copect length. For
example xxx = copies(' ',12).
Btw, the
...@listserv.ua.edu]
Sent: Thursday, April 6, 2023 12:07 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX/COBOL conversion question
On Thu, 6 Apr 2023 15:04:19 +, Seymour J Metz wrote:
>A compare using = adds trailing blanks; use == if you need an exact match.
>
Trailing and/or l
The variable is defined at level 05 so it is probably part of a structure
(group item in terms of cobol). You must maintain the copect length. For
example xxx = copies(' ',12).
Btw, the compare is ok and will work same as in cobol.
Best
ITschak
בתאריך יום ה׳, 6 באפר׳ 2023 ב-17:58 מאת Allan Stalle
Allen: This is Warren Brown. Do you remember working with me?
Warren
On Thursday, April 6, 2023 at 10:58:29 AM EDT, Allan Staller
<0387911dea17-dmarc-requ...@listserv.ua.edu> wrote:
Classification: Confidential
I have the following:
COBOL:
05 FR-KWY PIC X(12).
IF FR-KEY=SPACES
On Thu, 6 Apr 2023 15:04:19 +, Seymour J Metz wrote:
>A compare using = adds trailing blanks; use == if you need an exact match.
>
Trailing and/or leading.
"=" has a very lenient criterion of numeric equality:
"say 2 = ' 200e-2 '"
1
"==" gives better performance (empirically).
--
UA.EDU
Subject: REXX/COBOL conversion question
Classification: Confidential
I have the following:
COBOL:
05 FR-KWY PIC X(12).
IF FR-KEY=SPACES
MOVE..
REXX:
IF fr_key = ' ' THEN
Move..
Are these 2 statements equivalent? I suspect REXX will do a 1 -
Classification: Confidential
I have the following:
COBOL:
05 FR-KWY PIC X(12).
IF FR-KEY=SPACES
MOVE..
REXX:
IF fr_key = ' ' THEN
Move..
Are these 2 statements equivalent? I suspect REXX will do a 1 -by compare vs. a
12 byte compare for COBOL.
Can anyone con