IDENTIFICATION DIVISION. PROGRAM-ID. TABBUG. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. * * cobc -std mf TABBUG.cob --> generates the following error: * codegen.c:245: invalid type cast from `null' at TABBUG.cob:23 * 01 TABLE-OUTER OCCURS 2. 05 TABLE-INNER OCCURS 2. 10 NUM-FIELD PIC 9 VALUE ZERO. * or: * 10 ALNUM-FIELD PIC X VALUE SPACE. * the Problem: TABLE on LEVEL 01 * in combination with nested TABLE (on LEVEL > 1 ) * AND initialization of the TABLE-ELEMENT! PROCEDURE DIVISION. S-01. STOP RUN.