Loading table variables

The debugger keeps track of items that occur in an OCCURS clause, but only at the outermost level. The variables within nested tables are not loaded or otherwise tracked.

That's fine. However there are cases when we ignore variables that we don't need to ignore. For example:

01 table-stuff.
   05 table-item occurs 5 times.
      10 item-1       pic x.
      10 subtable occurs 5 times pic x.
      10 item-3       pic x.

In this case we load TABLE-STUFF, TABLE-ITEM, and ITEM-1, but not SUBTABLE (because it's a nested table) or ITEM-3 (because of a bug).

ITEM-1 and ITEM-3 are at the same level. If we can keep track of the one, we should be able to keep track of the other. In fact we load ITEM-3 just fine if it's declared above SUBTABLE instead of below.

Currently in animator.cbl we store the level number of the outermost OCCURS clause so that we know when we're out of the OCCURS. We need also to store the level number of the second-level OCCURS clause so that we know when we're out of that OCCURS. I have not yet tried to code a solution.

Scott McKellar