RetroBBS - comp.lang.cobol - Issue with CBL

Issue with CBL_OR

<utrfr9$10cvb$1@dont-email.me>

https://www.rocksolidbbs.com/devel/article-flat.php?id=538&group=comp.lang.cobol#538

Path: i2pn2.org!i2pn.org!usenet.goja.nl.eu.org!3.eu.feeder.erje.net!feeder.erje.net!news2.arglkargh.de!news.mixmin.net!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: snetxa@hotmail.com (Bruce Axtens)
Newsgroups: comp.lang.cobol
Subject: Issue with CBL_OR
Date: Mon, 25 Mar 2024 17:23:52 +0800
Organization: A noiseless patient Spider
Lines: 32
Message-ID: <utrfr9$10cvb$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Mon, 25 Mar 2024 10:23:54 +0100
Injection-Info: dont-email.me; posting-host="cfcf5c5ddf6b3a3c30acefb2b6eb3225";
logging-data="1061867"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX18LM1m2FRzBA4k+ijSj5hWE"
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:49qsTkBxkvqRBJmhW7LciaBVvx0=
Content-Language: en-US

by: Bruce Axtens - Mon, 25 Mar 2024 09:23 UTC

What have I broken here? Based on code in
https://gnucobol.sourceforge.io/faq/GnuCOBOLFAQ.pdf
...
01 LOGICALS.
03 ITEM-1 PIC 999 USAGE COMP-5.
03 ITEM-2 PIC 999 USAGE COMP-5.
03 RESULT USAGE BINARY-LONG.
...
LOGICAL-OR.
INITIALIZE RESULT.
CALL "CBL_OR" USING ITEM-1 ITEM-2 BY VALUE 1
RETURNING RESULT.
DISPLAY ITEM-1 SPACE ITEM-2 SPACE RESULT.
EXIT.

ITEM-1 ITEM-2 RESULT
00001 00253 +0000000000
00002 00253 +0000000000
00004 00253 +0000000000
00008 00253 +0000000000
00016 00253 +0000000000
00032 00253 +0000000000
00064 00253 +0000000000
00128 00253 +0000000000

Why do I only get +0?
--
- Bruce M. Axtens
https://github.com/axtens
https://exercism.org/profiles/axtens
Timezone: Australia/Perth

Re: Issue with CBL_OR

<utrg8v$10cva$1@dont-email.me>

copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=539&group=comp.lang.cobol#539

copy link Newsgroups: comp.lang.cobol

Path: i2pn2.org!i2pn.org!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: snetxa@hotmail.com (Bruce Axtens)
Newsgroups: comp.lang.cobol
Subject: Re: Issue with CBL_OR
Date: Mon, 25 Mar 2024 17:31:11 +0800
Organization: A noiseless patient Spider
Lines: 8
Message-ID: <utrg8v$10cva$1@dont-email.me>
References: <utrfr9$10cvb$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Mon, 25 Mar 2024 10:31:12 +0100
Injection-Info: dont-email.me; posting-host="cfcf5c5ddf6b3a3c30acefb2b6eb3225";
logging-data="1061866"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1/MegVqkV0meZtjgQJVoxj/"
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:5cE5J8x/8uPQHxMRL2zBIRyonxQ=
In-Reply-To: <utrfr9$10cvb$1@dont-email.me>
Content-Language: en-US

by: Bruce Axtens - Mon, 25 Mar 2024 09:31 UTC

finlandia:~> apropos win win: nothing appropriate.

devel / comp.lang.cobol / Issue with CBL_OR

Subject	Author
Issue with CBL_OR	Bruce Axtens
Re: Issue with CBL_OR	Bruce Axtens