PI37948: RDZ LPEX AND COBOL EDITOR "SHOW IN" >> "PROGRAM CONTROL FLOW" RESULTS IN CRRZJ0004E CLASSCASTEXCEPTION

Rational Developer for System z Fix Pack 1 (9.1.1.2) for 9.1.1.
Rational Developer for System z Fix Pack 1 (9.1.1.3) for 9.1.1.
Rational Developer for System z Interim Fix 1 for 9.1.1.3
Rational Developer for System z Fix Pack 1 (9.1.1.4) for 9.1.1.
Rational Developer for System z Fix Pack 1 (9.1.1.5) for 9.1.1.
Rational Developer for System z Fix Pack 1 (9.1.1.6) for 9.1.1.
Rational Developer for System z Fix Pack 1 (9.1.1.7) for 9.1.1.
Rational Developer for System z Fix Pack 1 (9.1.1.8) for 9.1.1
Rational Developer for System z Fix Pack 9 (9.1.1.9) for 9.1.1

APAR status

• Closed as program error.

Error description

• Rational Developer for System z v9.1.1 LPEX and COBOL editor
  "Show in" >> "Program Control Flow" results in CRRZJ0004E
  ClassCastException
  
  The problem occurs when the RDz user opens COBOL source and
  selects, in the editors context menu, "Show in" >> "Program
  Control Flow"
  
  Below a snippet of the code that can cause this problem
  
             ....
             EVALUATE THIS-VARX-YZ
               WHEN '0'
                 MOVE VARX                 TO VARYZ
                 CONTINUE
               WHEN OTHER
                 PERFORM ROUTINE1
             CONTINUE.
        *END-SELECT-VARXYZ SECTION.
  
         UPDATE-RESTART SECTION.
  
             MOVE W-IN1-KEY                TO W-INSERT-KEY
             MOVE W-IN1-KEY                TO W-INSERT-VALUES
                                              COMMIT-KEY
             ....
  
  Note:
  - The EVALUATE statement does not have an END-EVALUATE
    and the period behind the second "CONTINUE."
  - For COBOL this code is legal.
  

Local fix

• Add an "END-EVALUATE." before the "CONTINUE."
  
             ....
             EVALUATE THIS-VARX-YZ
               WHEN '0'
                 MOVE VARX                 TO VARYZ
                 CONTINUE
               WHEN OTHER
                 PERFORM ROUTINE1
             END-EVALUATE.
             CONTINUE.
        *END-SELECT-VARXYZ SECTION.
  
         UPDATE-RESTART SECTION.
  
             MOVE W-IN1-KEY                TO W-INSERT-KEY
             MOVE W-IN1-KEY                TO W-INSERT-VALUES
                                              COMMIT-KEY
  

Problem summary

• LPEX and COBOL editor "Show in" >> "Program Control Flow"
  results in CRRZJ0004E ClassCastException when the program is
  missing an END-EVALUATE statement.
  

Problem conclusion

• Changes made to properly handle the missing END-EVALUATE
  statement.
  
  The problem listed in this APAR has been resolved with
  IBM Rational Developer for System z V9.1.1.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

• R911 PSY

     UP