COBOL

COBOL

COBOL

COBOL is responsible for the efficient, reliable, secure, and unseen day-to-day operations of the world's economy.

 View Only
Back to discussions
Expand all | Collapse all

COBOL V6.3 bug when dynamic length item defined but not referenced.

  • 1.  COBOL V6.3 bug when dynamic length item defined but not referenced.

    Posted Thu May 13, 2021 02:20 PM
    Edited by Frank Swarbrick Thu May 13, 2021 02:22 PM
    I realize this is not the "correct" place for this, but I don't have access to open tickets, and figured this would be easier than having someone else open one...

    If a data item with the DYNAMIC LENGTH clause is declared in the data division, but there is no reference to that item in the procedure division, the compiler fails.  Example: 
    CURRENT PHASE: IGYCPGEN
    CURRENT LINE NUMBER: 000000
    REGISTERS 0 - 15:
    148E83EE 00000084 000B972C 00000000 0001E180 00000000 000063B4 00016C54
    00000000 00000000 00016C54 14626B48 148E82BC 148E8000 9462689A 00011D72

    LineID Message code Message text

    IGYPG5125-U The compilation was terminated due to a compiler error in phase id: "IGYCPGEN".


    IGYPG5201-U Internal compiler error code "PTEXT-07" occurred.
    I guess I should reference the release I am using. 
    PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.3.0 P210118

    Compiler back end level: tr_v63_cobol_20210111_1538__j4LslRMEeukbYNnblqSmA
    ------------------------------
    Frank Swarbrick
    ------------------------------


  • 2.  RE: COBOL V6.3 bug when dynamic length item defined but not referenced.

    Posted Sat May 15, 2021 06:31 PM
    I wonder if this might already be fixed.  I just tried to reproduce it on one of IBM's demo systems (which have the March fixes) and there was no issue there.  I don't see any APAR on the March fix list (https://www.ibm.com/support/pages/fix-list-and-new-features-enterprise-cobol-zos#033021) with this issue described, but who knows...

    ------------------------------
    Frank Swarbrick
    ------------------------------

    Original Message


Related Content