PI19821: CICS CLOUD PRIVATE PROGRAM TOPOLOGY CRESPRGM RECORD COUNT MISMATCH FOLLOWING CMAS RESTART

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Scenario:
  . Install an application containing program with entry point
  . check cresprgm records
  . Enable and make application available
  . check cresprgm records - they are same as before
  . restart cmas
  . check cresprgm records - there will be an additional record
  (there will be a public instance and private instance of the
  available program - i.e. one record will have appltoken 0 and
  one record will have a private appltoken)
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS users.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Missing or invalid calls to XRSINDI     *
  *                      when using programs defined as part of  *
  *                      a CICS Application resource.            *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  This APAR addresses two issues where the XRSINDI global user
  exit is not invoked correctly. These issues occur only when
  programs are defined as part of a CICS Application resource.
  The first problem occurs when an Application which defines
  a private program is discarded. The XRSINDI exit is driven,
  but with a bad token value passed to the exit for the
  UEPAPPTK argument.
  The second problem is that there are a small number of cases
  where the XRSINDI exit is not driven. This occurs when an
  Application resource, and the PROGRAM entry points it defines,
  are made AVAILABLE or UNAVAILABLE, and also in some program
  auto-install cases.
  

Problem conclusion

• CICS program domain has been updated to ensure that:
  - The XRSINDI global user exit is called with a valid UEPAPPTK
    argument when discarding a private program.
  - XRSINDI is called when an entry point program is made
    AVAILABLE or UNAVAILABLE.
  - XRSINDI is called twice when it is discovered that an
    auto-installed private program is loaded from a public library
    firstly when the private program entry is removed, and
    secondly when it is added as a public program.
  

Temporary fix

• *********
              * HIPER *
              *********
  FIX AVAILABLE BY PTF ONLY
  

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  UI19926

Modules/Macros

• DFHPGAI  DFHPGDD  DFHPGEX  DFHPGIS  DFHPGLD  DFHPGLE  DFHPGLK
  DFHPGLP  DFHPGLU  DFHPGPG  DFHPGRE  DFHPGRP  DFHPGXE
  

Fix information

• Fixed component name

  CICS TS Z/OS V5

• Fixed component ID

  5655Y0400

Applicable component levels

• R900 PSY UI19926

     UP14/07/30 P F407 ½

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.