PH26409: IBM DEVELOPER FOR Z - COBOL EDITOR GIVES A FALSE SYNTAX ERROR WHEN USING "ALL" SUBSCRIPT E.G. FUNCTION SUM(X(ALL,ALL))

APAR status

• Closed as program error.

Error description

• The IDz COBOL Editor incorrectly flags the following sample
  program with error messages
  
        ID DIVISION.
        PROGRAM-ID. TSUMALL.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 FELDER.
            05 ARR1 OCCURS 10.
                10 VAL2 OCCURS 10.
                    15 VAL21 PIC 99 VALUE 21.
        01 SUMALL   PIC 9(5).
        PROCEDURE DIVISION.
            COMPUTE SUMALL = FUNCTION SUM(VAL21(ALL, 6))
            DISPLAY "ALL,6: " SUMALL .
            COMPUTE SUMALL = FUNCTION SUM(VAL21(3, ALL))
            DISPLAY "3,ALL: " SUMALL .
            COMPUTE SUMALL = FUNCTION SUM(VAL21(ALL, ALL))
            DISPLAY "all,ALL: " SUMALL .
            GOBACK .
  
  The program compiles and executes correctly, but the IDz COBOL
  Editor flags two of the three SUM functions as syntax errors -
  
  "ERROR_TOKEN" unexpected tokens ignored
  Multiple markers at this line
  - ": )" inserted to complete scope
  - ")" inserted to complete scope
  
  The problem does not occur for one-dimensional arrays, e.g.
  SUM(X(ALL)) or MAX(X(ALL))
  

Local fix

• none (just ignore the false messages)
  

Problem summary

• The COBOL editor does not parse and gives false syntax warnings
  when using "ALL" subscript such as in FUNCTION SUM(X(ALL, ALL)).
  

Problem conclusion

• This issue has been resolved.
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

Fix information

• Fixed component name

  DEV FOR Z/OS

• Fixed component ID

  5724T0700

Applicable component levels