PM55598: Editing a COBOL file with statement EVALUATE VAR1 ? VAR2 results in an invalid real-time syntax check warning

Rational Developer for System z 8.5

APAR status

• Closed as program error.

Error description

• APAR Error Description:
  Abstract: In Rational Developer for System Z v8.0.3, editing a
  COBOL file with statement EVALUATE VAR1 ? VAR2 results in an
  invalid real-time syntax check warning:
  
  'WHEN' expected instead of this input.
  Problem: The following code gives an invalid warning:
  'WHEN' expected instead of this input
  
         IDENTIFICATION DIVISION.
         PROGRAM-ID. PCXX0SEK.
  
         ENVIRONMENT DIVISION.
         CONFIGURATION SECTION.
         SPECIAL-NAMES.
             DECIMAL-POINT IS COMMA.
  
         DATA DIVISION.
         WORKING-STORAGE SECTION.
         01 VAR1   PIC 999 VALUE ZEROS.
         01 VAR2   PIC 999 VALUE ZEROS.
         PROCEDURE DIVISION.
         MAIN-PARA.
             MOVE 99  TO VAR1.
             MOVE 100 TO VAR2.
             EVALUATE VAR1 > VAR2
             WHEN TRUE
                DISPLAY 'VAR1 IS BIGGER'
             WHEN FALSE
                DISPLAY 'VAR2 IS BIGGER'
             END-EVALUATE
             STOP RUN.
  
  Warning is displayed on the left bar next to EVALUATE
  

Local fix

• Warning can be safely ignored.
  A remote or local syntax check gives
  Running the program gives no error.
  

Problem summary

• Real-time syntax checking (for System z LPEX and COBOL editors)
  flagged conditional expressions in EVALUATE statements (such as
  "EVALUATE VAR1 > VAR2" and  "EVALUATE VAR1 - VAR2 IS NOT
  POSITIVE") with an annotation warning message such as ""WHEN"
  expected instead of this input."
  

Problem conclusion

• Real-time syntax checking (for System z LPEX and COBOL editors)
  again allow boolean conditional expressions to be used in
  EVALUATE statements such as "EVALUATE VAR1 > VAR2" and
  "EVALUATE VAR1 - VAR2 IS NOT POSITIVE".
  
  The problem listed in this APAR has been resolved with
  IBM Rational Developer for System z V8.0.3.2 Fix Pack which
  is available from the Recommended Fixes support download page:
  http://www-1.ibm.com/support/docview.wss?rs=2294&uid=swg27006335
  

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

  RATL DEV FOR SY

• Fixed component ID

  5724T0700

Applicable component levels

• R803 PSY

     UP