[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[open-cobol-list] INITIALIZE (Bug Report)
From: |
Peg |
Subject: |
[open-cobol-list] INITIALIZE (Bug Report) |
Date: |
Thu Dec 1 22:52:01 2005 |
User-agent: |
Thunderbird 1.5 (Windows/20051025) |
Hello All,
The FILLER item is cleared by INITIALIZE.
I think that it should exclude the FILLER item.
Sample Code
IDENTIFICATION DIVISION.
PROGRAM-ID. TESTFILLER.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 X.
03 A PIC X(1).
03 FILLER PIC X(2) VALUE "OK".
03 B PIC X(1).
PROCEDURE DIVISION.
INITIALIZE X.
DISPLAY "INITIALIZE(FILLER) TEST [" X "]".
It is likely to be able to evade by the following corrections.
cobc/codegen.c : 1180 (initialize_type Function)
//if ( *f->name == '$' && p->flag_statement && !f->children )
if ( f->name[4] == '$' && p->flag_statement && !f->children )
return INITIALIZE_NONE;
Best Regards,
--
Shigeyuki Kanbe
Peg, PegStyle mailto:address@hidden
http://members8.tsukaeru.net/pegstyle/
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [open-cobol-list] INITIALIZE (Bug Report),
Peg <=