PM86453: BMP PAUSER CAN CAUSE A COBOL APPLICATION TO END WITH A NON-ZERO RETURN CODE

APAR status

• Closed as program error.

Error description

• When ORF BMP pauser intercepts a DL/I call from an application
  for pause checking, it does not convey the register#15 from DL/I
  interface correctly to the application when returning control to
  the application.
  This can cause a COBOL application to end with a non-zero return
  code when the application does not explicitly set the
  RETURN-CODE special register before it ends.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of IMS Online Reorg Facility V1.3      *
  ****************************************************************
  * PROBLEM DESCRIPTION: BMP pauser can cause COBOL applications *
  *                      to end with non-zero return codes       *
  ****************************************************************
  * RECOMMENDATION: Apply the maintenance for this APAR.         *
  ****************************************************************
  When BMP pauser is installed to IMS RESLIB, a COBOL application
  can end with a non-zero return code. This can occur when the
  COBOL application does not explicitly set the RETURN-CODE
  special register before it ends.
  

Problem conclusion

• When ORF BMP pauser intercepts a DL/I call from an application
  for pause checking, it does not convey the register#15 from DL/I
  interface correctly to the application when returning control to
  the application. This problem can be exposed if the application
  is written in COBOL and it does not explicitly set the
  RETURN-CODE special register, because the return code of the
  application in this case is the register#15 value after the last
  external routine call.
  This APAR fixes the BMP pauser so that it correctly set the
  register#15 value when returning to an application.
  

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:

  UK93384

Modules/Macros

• HRFOLEV0 HRFRRC10 HRFRRC11 HRFRRC12 HRFRRC13
  

Fix information

• Fixed component name

  IMS ONLINE REOR

• Fixed component ID

  5655H9700

Applicable component levels

• R130 PSY UK93384

     UP13/04/13 P F304