PI53428: EXCEPTION TYPE POINTER INCORRECTLY SET TO WORKING STORAGE ADDRESS INSTEAD OF GETMAINED COPY OF THE CONTROL BLOCK

Rational Business Developer Fix Pack 1 (9.1.1.1) for 9.1.1
Rational Business Developer 9.5.1
Rational Business Developer Fix Pack 2 (9.0.1.2) for 9.0.1

APAR status

• Closed as program error.

Error description

• The exception type pointer is incorrectly set to a working
  storage address instead of the getmained copy of the control
  block on a throw exception statement. This causes an 0C4 abend
  if the program that performed the throw statement is a called
  program that is no longer in memory.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * Users that use the "throw exception" statement from a called *
  * program or library.                                          *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * If a "throw exception" statement is used (not "throw new     *
  * exception") in a called program or library, the              *
  * EZEDLR-TYPEBLK-PTR is updated to point at the type pointer   *
  * record block located in working storage. It should have      *
  * getmained a copy of the block, which will be held for the    *
  * duration of the rununit. Because it pointed at working       *
  * storage, when the program exits and it ISA operation is used *
  * against an exception in a higher level program, the pointer  *
  * may be wrong, depending on whether the working storage is    *
  * still around or not. This can cause random failures and      *
  * possible 0C4 abends.                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  

Problem conclusion

• The throw exception statement will now copy the block to
  getmained memory and use that pointer value instead.
  

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 BUS DEV

• Fixed component ID

  5724S5000

Applicable component levels

• R901 PSY

     UP

• R911 PSY

     UP

• R950 PSY

     UP