Groups | Search | Server Info | Login | Register

Groups > comp.lang.cobol > #12854

GnuCOBOL 3.2 and CBL_OR. What am I doing wrong?

From Bruce Axtens <snetxa@hotmail.com>
Newsgroups comp.lang.cobol
Subject GnuCOBOL 3.2 and CBL_OR. What am I doing wrong?
Date 2024-04-06 09:48 +0800
Organization A noiseless patient Spider
Message-ID <uuq9l5$1n5b7$1@dont-email.me> (permalink)

Show all headers | View raw

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?

Back to comp.lang.cobol | Previous | Next — Next in thread | Find similar

Thread

GnuCOBOL 3.2 and CBL_OR. What am I doing wrong? Bruce Axtens <snetxa@hotmail.com> - 2024-04-06 09:48 +0800
  Re: GnuCOBOL 3.2 and CBL_OR. What am I doing wrong? Arnold Trembley <arnold.trembley@att.net> - 2024-04-06 04:10 -0500

csiph-web