PM81506: CICS TS 5.1 VERBX FORMATTERS DO NOT WORK ON THE DUMP. ABEND0C4 IS RECEIVED.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• You will find that trying to do any CICS verbx on that dump will
  fail with an abend0c4 in the formatter.
  .
  But if you patch the dump with the following command, you will
  be able to use the formatters:
  .
  PATCH ADD X'00000000' ASID(X'01F5') ADDRESS(A995FC.)
  .
  Do that command from the IPCS Subcommand Entry panel.  After
  that the CICS verbx will work.
  .
  To remove the patch do:
  .
  PATCH DELETE ASID(X'01F5') ADDRESS(A995FC.)
  .
  To see if any patches are in place, do:
  .
  PATCH LIST
  .
  The problem is in the FINDAFCB routine of DFHPDX1.  This routine
  checks all the TCBs, looking for one with an address in
  TCBCAUF.  When it finds one with a TCBCAUF, the routine
  remembers that in PDXAFCBA.  But then it looks to see if that
  is actually an AFCB with a valid CSA address in it.  If it finds
  that the routine is done and that TCB ends up in PCXAFCBA.  If
  it never finds one with a valid CSA, PDXAFCBA is left to be the
  the TCBCAUF of the last TCB that has one.
  .
  The code that checks out the AFCB looks specifically for
  AFVER2.  CICS/TS 5.1 uses AFVER3.  Following the CLI is
  a BNE so if the AFVER is AFVER1 or AFVER3, the AFCB is
  thought not to be valid.  (All other places in CICS/TS 5.1
  code that checks for AFVER2 follows that with a BL (Branch
  On Low) rather than BNE.)  This makes it so the CICS/TS 5.1
  DFHPDX1 never finds a valid AFCB and so ends up setting
  PDXAFCBA with the value in TCBCAUF in the last TCB looked
  at.
  .
  Usually, only CICS TCBs have anything in TCBCAUF.  But the
  last TCB (in Summ Format) in this customer's dump is a
  Fault Analyzer TCB (program IDIDA) that has a TCBCAUF (which
  of course is not a CICS AFCB address.)
  .
  The way the patch works is to clear out the TCB chain pointer
  that points to that last TCB.  The last 2 TCBs in the
  CICS address space are 00A99588 and 00A99190.  A99190 is the
  IDIDA one.  A99588 is a CICS one.  TCB +x'74' is the pointer
  to the next TCB.  A99588+74=A995FC.  The Patch clears
  A995FC to binary zeroes so the FINDAFCB routine ends before
  it gets to the IDIDA TCB.  It never finds TCBCAUF in that
  IDIDA TCB.  So PDXAFCBA is left with A99440 ( a valid CICS AFCB)
  rather than 20E8C028 (not a valid CICS AFCB) which is what
  is in TCBCAUF of the IDIDA TCB.
  Additional Symptom(s) Search Keyword(s): KIXREVSVR
  

Local fix

• Patch the dump as discribed in the problem description.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All.                                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: When using IPCS to format a CICS/TS     *
  *                      V5.1 system dump using the CICS verb    *
  *                      exit, the formatter fails with an abend *
  *                      0C4.                                    *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  In CICS/TS 5.1, DFHPDX1 fails to find a valid CICS AFCB under
  certain cicurmstances and this can result in an abend0C4.
  DFHPDX1 does not recognise a version 3 AFCB, which was
  introduced with CICS/TS V4.2.
  
  Keyword: abendS0C4 S0C4
  

Problem conclusion

• DFHPDX1 has been change to allow for a version 3 AFCB.
  

Temporary fix

• FIX AVAILABLE BY PTF ONLY
  

Comments

APAR Information

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

  PM81474

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

  UK91654

Modules/Macros

• DFHPDX1
  

Fix information

• Fixed component name

  CICS TS Z/OS V5

• Fixed component ID

  5655Y0400

Applicable component levels

• R800 PSY UK91654

     UP13/02/22 P F302

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.