[open-cobol-list] INITIALIZE Question

[Guenter . Sandner]

Hello All,

I wonder if the INITIALIZE works correctly.

The output is different using mf instead of OpenCobol:

using mf (windows):
MEM-LAST-I (1)=+0000
MEM-LAST-I (2)=+0000

using OpenCobol:
MEM-LAST-I (1)=+8224
MEM-LAST-I (2)=+0000


Kind regards
Guenter

------------------------------
opencobol version:
------------------------------
cobc (OpenCOBOL) 0.30

------------------------------
os:
------------------------------
SunOS sstviesun1 5.10 Generic sun4u sparc SUNW,Sun-Fire-V440


------------------------------
code:
------------------------------

       ID DIVISION.
       PROGRAM-ID. QUERY.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.


       01  MEM-RECORD PIC X(3226).
       01  RED-MEM-RECORD REDEFINES MEM-RECORD.
           05 MEM-LAST-I   PIC S9(4) COMP.
           05 MEM-MIN-DATE PIC S9(9) COMP.
           05 MEM-SUM-BEFORE-INITIAL-DATE.
              10 MEM-BEFORE-SUMOFC  PIC S9(14)V9(4) COMP-3.
              10 MEM-BEFORE-SUMOFD  PIC S9(14)V9(4) COMP-3.
           05 MEM-ARRAY.
              10 MEM-ARRAY-ELEMENT OCCURS 100.
                 15 MEM-VALUDATE    PIC S9(9) COMP.
                 15 MEM-SUMOFC      PIC S9(14)V9(4) COMP-3.
                 15 MEM-NUMOFC      PIC S9(9) COMP.
                 15 MEM-SUMOFD      PIC S9(14)V9(4) COMP-3.
                 15 MEM-NUMOFD      PIC S9(9) COMP.


       PROCEDURE DIVISION.
       BEGIN-PGM.
                   INITIALIZE RED-MEM-RECORD.
         DISPLAY "MEM-LAST-I (1)=" MEM-LAST-I.
         INITIALIZE MEM-LAST-I.
         DISPLAY "MEM-LAST-I (2)=" MEM-LAST-I.
           STOP RUN.
------------------------------
output:
------------------------------

MEM-LAST-I (1)=+8224
MEM-LAST-I (2)=+0000