The error message that is occurring is shown below. (Working on AIX 5.2
64-bit)
The sample code (TESTPGM.cbl) has an EXTERNAL 01 level, with another 01
level that redefines it.
The fields at the beginning fo the redefined 01 show up correctly in the
TESTPGM.c code. (Referencing the pointer to the external data positionally)
Then at a certain point, the fields in redefined 01 starts using a field
in the TESTPGM.c.h
The redefines has about 9000 fields listed under (3000 occurs table with 3
fields).
The error starts at occurrence 1000 (Field 3001) (MCW180-P1000-MEMDATA-L).
The last successful reference is at occurence 763 (MCW180-P763-RESERVD-L).
preprocessing TESTPGM.cbl into TESTPGM.i
translating TESTPGM.i into TESTPGM.c
TESTPGM.cbl: In paragraph '0000-BEGIN-ERRORS':
TESTPGM.cbl:9109: Warning: Alphanumeric value is expected
gcc -fPIC -maix64 -pipe -I/public/dev/pm/jag/opencobol/local/include
-L/lib -L/public/dev/pm/jag/opencobol/local/lib -lcob -lm -lgm
p -lltdl -fsigned-char -shared -DPIC -o TESTPGM.so TESTPGM.c
In file included from TESTPGM.c:38:
TESTPGM.c.h: In function `TESTPGM_':
TESTPGM.c.h:18: error: `b_MCW180_PDS_MAP' undeclared (first use in this
function)
TESTPGM.c.h:18: error: (Each undeclared identifier is reported only once
TESTPGM.c.h:18: error: for each function it appears in.)
TESTPGM.c.h:18: error: initializer element is not constant
TESTPGM.c.h:18: error: (near initialization for `f_3022.data')
Thanks,
Cris Schlehuber