SUBTRACT
LENGTH OF WS1-TABLE-KEY-ALL FROM
WS4-OPT-PARM-REC-LNGTH GIVING
WS3-DATA-LENGTH.
STOP RUN.
Thanks,
Cris
> Yes, indeed, there was a problem with accessing
> items in a REDEFINES of either an EXTERNAL or
> a BASED item.
> It is actually nothing to do with the occurrence; it
> depended upon how the item was referenced.
>
> This has been fixed in the 0.33 prerelease at :
> http://www.sim-basis.de/open-cobol-0.33.tar.gz
>
> CVS has also been updated - will be subject of
> seperate mail.
>
> Roger
>
>
>
> >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
>
>
>