PM35179: sqlcode in exception record does not match true value in ZOSCICS

Rational Business Developer Fix Pack 2 (8.0.1.2) for 8.0.1

APAR status

• Closed as program error.

Error description

• When a soft or hard sql error occurs in a RBD generated cobol
  application, and an excpetion is thrown, then the sqlcode field
  of the exception record does not match the actual sqlcode.
  
  Users can use sysvar.sqlData.sqlcode for the programming logic
  as an alternative. This field is set correctly.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  The problems were twofold.
  First, the SQL error code being moved to the exception
  record was the original one, but not the resulting one. This
  caused a discrepancy between the sysval.sqlcode (the
  resulting one) and the exception record's copy.
  Second, when a hard error was thrown, the runtime would
  issue a rollback, which caused the sql error code to be
  overwritten with the sql code from the rollback. This caused
  the loss of the original user's sql code when the
  onexception block was invoked.
  

Problem conclusion

• These problems have been resolved by 1) copying the correct
  sql code value to the exception record, and 2) by saving and
  restoring the sql code, across the call to the runtime that
  handles the hard error.
  

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

• R751 PSN

     UP