PI52242: RATIONAL BUSINESS DEVELOPER (RBD) 9.1.1 CICS APPLICATIONS NEED TOO MUCH STORAGE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• CICS application from RBD 9.1.1 requires too much storage,
  and needs ESDALIM to be raised.
  
  This happens for a long running transaction where the main
  program is not EGL.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: USERS WITH PI33676 APPLIES THAT ALSO         *
  *                 USE LONG-RUNNING TRANSACTIONS THAT ARE       *
  *                 NON EGL MAIN PROGRAMS, BUT CONSTANTLY        *
  *                 CALL EGL PROGRAMS UNDER THEM.                *
  ****************************************************************
  * PROBLEM DESCRIPTION: The problem was introduced Jan 28, 2015 *
  *                      by apar PI33676. The problem was then   *
  *                      created in elarstrm, when we used an    *
  *                      index that started at 0 and looped      *
  *                      through until the number of blocks to   *
  *                      free was hit (seems normal, right?).    *
  *                      The problem though, was this code was   *
  *                      written in PLAS, which is assembler-    *
  *                      like but it wants all indexes to be     *
  *                      relative to 1, not 0. So, it was        *
  *                      subtracting 1 from the index to         *
  *                      determine the address for the           *
  *                      pointer wanted, causing the 1st one     *
  *                      (index=0) to actually pick up the 4     *
  *                      bytes before the pointer needed in      *
  *                      the list. This invalid pointer was      *
  *                      then attempted to be freed in cics, but *
  *                      was ignored because it was invalid.     *
  *                      The loop however, was prematurely       *
  *                      terminated 1 too short, because of      *
  *                      the 1st invalid index, causing          *
  *                      the last block to not be attempted to   *
  *                      be freed. This left that memory block   *
  *                      out there, and because the task was     *
  *                      long-running, it didn't get released at *
  *                      task termination. So, when this long-   *
  *                      running transaction started up another  *
  *                      EGL program, egl's runtime got          *
  *                      initialized again and new memory blocks *
  *                      allocated. Then once again, when egl's  *
  *                      runtime was shut down, the last block   *
  *                      was not freed and added to the memory   *
  *                      that hung around. This happened many,   *
  *                      many times, until the short-on-storage. *
  ****************************************************************
  * RECOMMENDATION: Apply this maintenance                       *
  ****************************************************************
  RATIONAL BUSINESS DEVELOPER (RBD)  9.1.1 CICS APPLICATIONS NEED
  TOO MUCH STORAGE
  

Problem conclusion

• The runtime is updated to free all of the proper memory blocks.
  

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:

  PI52973

Modules/Macros

• ELARSTRM
  

Fix information

• Fixed component name

  RATL COBOL RT Z

• Fixed component ID

  5655R2900

Applicable component levels

• R601 PSY UI33732

     UP15/12/15 P F512

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.