PM70053: ASRA occurs when V8 EGL generated COBOL program accesses DLI and V7 EGL program is the MAIN

Rational Business Developer Fix Pack 5 (8.0.1.5) for 8.0.1
Rational Business Developer 9.0

APAR status

• Closed as program error.

Error description

• ASRA occurs after DLI call in  Version 8 COBOL generated
  program. Error occurs when trying to store into
  EZEDLR-DLI-EXCEPTION-CODE. Pointer used is all zero's.
  

Local fix

• Re-generate main program using Version 8
  

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  The problem occurs only if a version 7 main program calls a
  version 7.5 or 8 called program that also throws certain
  exceptions. When a version 7 main program starts, it doesn't
  create the exception entry in the rts program memory chain,
  so the version 7.5 or 8 program doesn't find it. Because it
  doesn't find it, the pointer is not there and the address of
  the exception record is not set. When the egl exception is
  thrown (in this case for dl/i) and tries to move a value
  into the exception record, an abend occurs.
  

Problem conclusion

• This is now fixed in version 8015 and future versions.
  A fixtest could be provided for earlier releases if
  necessary. The user could also regenerate the main program
  using version 7.5 or 8 to make it work.
  

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

  RBD EGL FOR COB

• Fixed component ID

  5724S5001

Applicable component levels

• R801 PSN

     UP