[open-cobol-list] Re: Re: minor problem

[David Korn]

The following program
******************************** Top of Data ******************
      IDENTIFICATION DIVISION.
      PROGRAM-ID. PROG29.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01  WS-MEMBER-COUNT         PIC 9(5) COMP.
      PROCEDURE DIVISION.
              MOVE 680 TO WS-MEMBER-COUNT.
              COMPUTE WS-MEMBER-COUNT=
              (WS-MEMBER-COUNT / 4096) * 4096 + 4096
              DISPLAY 'WS-MEMBER-COUNT=' WS-MEMBER-COUNT
              GOBACK.
******************************* Bottom of Data ****************
outputs
WS-MEMBER-COUNT=0000004096
with the MVS compiler and
WS-MEMBER-COUNT=0000004776
with OpenCobol.

Is this a bug in OpenCobol?  If so, where is the fix?

David Korn
address@hidden