[open-cobol-list] initialization problems

[David Korn]

cc: address@hidden
Subject: initialization problems
--------

I have enclosed two programs that demonstrate the initialization
is not working correctly.  In both of these programs the field
that is being displayed does not have an initial value.
In the first program, if you remove the declaration for either
IP1B036-BUILD-FICB-INTFC or IP1B002-FICB, then FIX-120793
gets initialized to '0'.  Otherwise, it is an empty string.

It might be the same bug that causes both.

=====================prog19.c======================
       IDENTIFICATION DIVISION.
       PROGRAM-ID.    PROG19.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  SWITCH-LIST.
           05  FIX-120793.
               10  FIX-120793-FLAG     PIC  X(01) VALUE '0'.
                   88  WRITE-OUT-COMMENTS         VALUE '0'.
                   88  COMMENTS-WRITTEN           VALUE '1'.
       01  IP1B036-BUILD-FICB-INTFC.
           05  IP1B036-RTND-DATA.
               10  IP1B036-RTN-CODE                  PIC S9(04) COMP.
                   88  B036-OK                           VALUE +0.
       LINKAGE SECTION.
       01  IP1B002-FICB.
           05  IP1B002-DEFAULT-VALUES.
               10  IP1B002-DFLT-LOG-TBL.
                   15  IP1B002-LOG-LEVEL         PIC  9(02)
                           OCCURS       8 TIMES
                           INDEXED BY   IP1B002-LOG-TYPE.
       PROCEDURE DIVISION.
          DISPLAY 'FLAG=' FIX-120793-FLAG.
          GOBACK.
=====================end prog19.c======================

=====================prog18.c======================
       IDENTIFICATION DIVISION.
       PROGRAM-ID.     PROG18.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  IP1B053-IP1AS19-CALL-AREA.
           05  IP1B053-IP1AS19-TIME.
               10  IP1B053-IP1AS19-TIME-B        PIC  9(09) COMP.
               10  FILLER                        PIC  9(09) COMP.
           05  IP1B053-TIME-2 REDEFINES IP1B053-IP1AS19-TIME.
               10  IP1B053-IP1AS19-TIME-D        PIC  9(15) COMP-3.
           05  IP1B053-IP1AS19-DATE              PIC  9(15) COMP-3.
       01  IP1B053-IP1AS19-CALL-REDEF REDEFINES
           IP1B053-IP1AS19-CALL-AREA.
           05  IP1B053-IP1AS19-INDIC             PIC  X(01).
               88  B053-ABSTIME-FORMAT           VALUE 'B'.
               88  B053-CLOCK-FORMAT             VALUE 'D'.
       PROCEDURE DIVISION.
           DISPLAY      'INDIC=' IP1B053-IP1AS19-INDIC.
           GOBACK.
=====================end prog18.c======================


David Korn
address@hidden