OA66099: RANDOM ABENDS ( USUALLY 0C1'S ) IN CICS REXX.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Random abends in REXX usually present at offset FFFFFFFF.
  Further analysis shows what appears to be corrupted Register
  Save Area's.  Problem presents in systems where CICS is
  going in and out of short on storage, and as a consequence,
  the CICREX program load module is deleted but re-added at a
  different location.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All.                                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: Abend 0C1 offset x'FFFFFFFF' when       *
  *                      exiting REXX.                           *
  ****************************************************************
  The Rexx interpreter runs semi pseudo conversational. Between
  invocations it relies on state data that mandates the CICREXR
  or CICREXD load module retains its entry point as defined when
  it first ran.
  In the reported problem, the CICS system was going in and out
  of a SHORT on STORAGE condition.  This caused STORAGE DOMAIN
  to perform storage recovery.  This caused CICREXD/R to be
  deleted.  On the next invocation of REXX, CICREXR/D was reloaded
  but with a different entry point.  When this invocation tried
  to exit, state data required between the CICREX2 to CICREX1
  boundary was invalid.  A wild branch was taken causing the 0C1.
  

Problem conclusion

• CICS Rexx code has been modified to specify HOLD on its EXEC
  CICS ASSIGN PROGRAM command for the module in question. This
  prevents the CICREXR/D load module from being deleted.  As a
  consequence, during storage recovery, it will maintain its state
  data relevant to its original entry point as defined when it
  first ran.
  

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:

  UJ95132

Modules/Macros

• CICREX1
  

Fix information

• Fixed component name

  REXX/CICS COMM

• Fixed component ID

  565511200

Applicable component levels

• R110 PSY UJ95132

     UP24/04/19 P F404

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.