#738 access to Level-88 declaration in Typedef not possible

[Sebastian Steinweg]

Hi GnuCOBOL team,

if you define a typdef with level 88 it's not possible to access this field in procedure division.

You got an error at compile time:

Please take a look in the attached testcase while using command:

cobc -x tc4156.cbl

Kind regards

Sebastian Steinweg
Easirun Europa GmbH

[Simon Sobisch]

Likely the same issue as [bugs:#740] (at least related) - the references are resolved at a bad time / from the wrong place.

[Simon Sobisch]

The other way around may also be true, see this test case:

       77 INT                      PIC S9(09)       COMP-5 IS TYPEDEF.
      *
       78 SHMHANDLE-UNSET          VALUE -2.
       01 Z-SHMHANDLE              USAGE INT   VALUE SHMHANDLE-UNSET.
          88 Z-SHMHANDLE-INVALID   VALUE -1, SHMHANDLE-UNSET.

[Frank Swarbrick]

I compiled the examples given with 3.3-dev.0 and received no compiler errors. I ran the result and received "GNU-TYPEDEF-level-88 >> ee:0004156 >> GNU:0000000000 >> passed".

[Frank Swarbrick]

I am surprised, though, that USAGE followed by a type name works. Type names are types, not usages. TYPE typename is correct, and also works.