[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[open-cobol-list] INITIALIZE Question
From: |
Guenter . Sandner |
Subject: |
[open-cobol-list] INITIALIZE Question |
Date: |
Thu Jun 2 10:03:06 2005 |
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
- [open-cobol-list] INITIALIZE Question,
Guenter . Sandner <=