PH24895: ABEND U4088 RSN 63 FOR COBOL PROGRAM THAT ISSUES EXEC CICS PERFORM SHUTDOWN IMMEDIATE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• A COBOL program issues an immediate shutdown of CICS but fails
  with abendU4088 reason 63. Because IMMEDIATE was specified on
  the shutdown command, CICS module DFHEIPSH initiates a
  Syncpoint Rollback. As part of Syncpoint Rollback, DFHERMSP is
  invoked to give control to any Task Related User Exits (TRUE)
  that have registered an interested in Syncpoint. After the
  Syncpoint Rollback is finished, DFHEIPSH issues an XCTL to
  DFHSTP. This causes CICS to call LE for Rununit_End_Invocation
  for the COBOL program that issued the shutdown command. LE
  detects a problem with the RSA address passed to them which
  should be the COBOL program's last EXEC CICS call. Instead the
  RSA address points to the registers saved at the time of the
  call to the TRUE program.
  
  Additional Symptom(s) Search Keyword(s): KIXREVxxx
  TCAREGPT TERMINFO abend4088 abendu4088 4088 R13 Reg13 DSA
  Language Environment
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS users.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Abend 4088 rsn 63 from Language         *
  *                      Environment when performing an EXEC     *
  *                      CICS PERFORM SHUTDOWN IMMEDIATE         *
  *                      command from a COBOL program.           *
  ****************************************************************
  A COBOL program does the EXEC CICS PERFORM SHUTDOWN IMMEDIATE.
  The registers saved at this time are copied to an area pointed
  to by TCAREGPT.Because IMMEDIATE was requested, DFHEIPSH
  initiates a Syncpoint Rollback. This calls a TRUE that is
  registered for end of task interest. The registers saved at this
  time are copied to the area pointed to by TCAREGPT. This
  overlays the registers saved there already earlier. After the
  Syncpoint Rollback is finished, DFHEIPSH does an internal XCTL
  to DFHSTP. This will call LE for Rununit_End_Invocation. One of
  the parameters passed to LE For that is TERMINFO which includes
  a pointer to the registers from the COBOL application program's
  last EXEC CICS call. DFHAPLI1 gets those registers from TCAREGPT
  but these are now the registers saved when issuing the DFHRMCAL
  call. They are no longer the registers from the time of the EXEC
  CICS PERFORM SHUTDOWN IMMEDIATE. LE gets control to process the
  rununit_end_invocation. It sees that the R13 from time of the
  last EXEC CICS call does not make any sense and so initiates
  the 4088 abend with reason 63.
  

Problem conclusion

• DFHEIPSH has been changed to issue DFHAPEVI calls to save and
  restore the execution environment around the DFHSP ROLLBACK
  call.
  

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:

  UI70376 UI70377

Modules/Macros

• DFHEIPSH
  

Fix information

• Fixed component name

  CICS TS Z/OS V5

• Fixed component ID

  5655Y0400

Applicable component levels

• R200 PSY UI70376

     UP20/07/03 P F007

• R300 PSY UI70377

     UP20/07/03 P F007

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.