PK56176: EGL 6.0.1: INCORRECT COBOL GENERATED FOR IF STATEMENT COMPARING TWO ARRAY ITEMS WITH DIFFERENT INDEXES

APAR status

• Closed as program error.

Error description

• EGL 6.0.1.7:  Incorrect COBOL generated for IF statement
  omparing two array items with different indexes.
  
  The EGL code compares two occurs-items indexed by two different
  variables I-INDEX-BETR and I-INDEX-BETR-1.
  
    if (BASIS_BTRG_MAX_N[I-INDEX-BETR] ?=
        BASIS_BTRG_MAX_N[I-INDEX-BETR-1])
  
  The generated COBOL source aliases the indexed variables.  For
  the comparison, the index is omitted in the generated code.
  
    032607   IF EZETEMP-0-0-0-173 ?= EZETEMP-0-0-0-173
    032608 1   GO TO EZECONDLBL-897
    032609   END-IF
  
  The condition always incorrectly evaluates to true, whereas the
  EGL debugger shows the correct behaviour.
  

Local fix

• A temp fix is available from support.
  

Problem summary

• See error description.
  

Problem conclusion

• This problem has been resolved with WebSphere Developer for
  zSeries V6.0.1 Interim Fix 009 which will be available from
  the Rational Product Updater or product web download page:
  http://www-1.ibm.com/support/docview.wss?uid=swg24019182&rs=2294
  

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

  WD/Z COBOLGEN Z

• Fixed component ID

  5724L4419

Applicable component levels

• R601 PSY

     UP