[open-cobol-list] conflicting types for xxxx

[David Korn]

cc: address@hidden
Subject: conflicting types for xxxx
--------

The compiler is generating C code that doesn't compile in some
cases.  The following simple program demonstrates the
problem.

=======================prog4.cob =======================
       PROGRAM-ID. PROG4.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  WS-K-ERROR-INFORMATION.
           05 WS-K-C075-ERR-TEXT-1.
              10 WS-K-C075-TEXT-LINE1            PIC X(36)
                 VALUE 'THERE WAS AN ERROR ACCESSING THE DAM'.
       01  WS-P-SUMM-HDR.
           05 FW058R-RESP-TBL              OCCURS 100 TIMES
                                           INDEXED BY FW058R-INDEX.
              10 FW058R-DSET-NAME          PIC X(44).
       01  WS-MAX-LENGTH                  PIC 9(2).
       01  WS-K-ERROR-INFORMATION.
            05  WS-K-5740-ERR.
               10  WS-K-5740-ERR-CD            PIC X(04) VALUE '5740'.
               10  WS-K-5740-APPLN-TXT-AREA.
                   15  FILLER                  PIC X(14)
                       VALUE 'CALLED CNTRCT:'.
       PROCEDURE DIVISION.
           MOVE WS-K-5740-ERR-CD TO
                   WS-MAX-LENGTH.
=======================end prog4.cob =======================

$ cobc -static -std=mvs -C -O prog4.cob
$ cc  -g  -I. -I- -I/billing/include/cobol  -c prog4.c
In file included from prog4.c:15:
prog4.c.h:4: conflicting types for `b_WS_K_ERROR_INFORMATION'
prog4.c.h:1: previous declaration of `b_WS_K_ERROR_INFORMATION'


David Korn
address@hidden