PM55233: ABEND0C4 IN CEEPLPKA (CSECT CEEHDSP) FOLLOWING A PROGRAM CHECK IN AN APPLICATION PROGRAM.

APAR status

• Closed as fixed if next.

Error description

• Following a program check in an application program, there
  was an abend0C4 in CEEPLPKA ( CSECT CEEHDSP ).   This resulted
  in messages like:
  .
  09.00.17 +DFHSR0001 DBDCCICS An abend (code 0C7/AKEA) has
   occurred at offset X'00001234' in program APPPROG1.
  09.00.17 +DFHAP1301 DBDCCICS Language Environment has detected a
   corruption of its control blocks. Transaction TRN1 currently
   executing.
  09.00.17 +DFHSR0622 DBDCCICS An attempt to overwrite the CDSA
   has caused the abend which follows
  09.00.18 +DFHSR0001 DBDCCICS An abend (code 0C4/AKEA) has
  occurred at offset X'FFFFFFFF' in program APPPROG1.
  .
  The messages above go to the console.  The following message
  goes to the MSGUSR DD at the same time:
  .
  DFHPG0209 09:00:17 DBDCCICS  USER0001 TRN1 PPT entry for IGZINSH
   has been autoinstalled using model PGMAUTOM.
  .
  This problem happens under the following circumstances:
  1) The Program Autoinstall program is written in Cobol.
  2) Program IGZINSH has no installed definition in CICS. (That
      program is part of the LE-supplied CSD definitions in
      SCEESAMP library member CEECCSD .  Normally, CEECCSD would
      be used as the basis for the CEE group which would be
      included in the start-up grouplist.  So then normally, there
      would be an installed definition for IGZINSH , and then this
      problem would not happen.)
  .
  What happens is that during rununit_end_invocation for the
  application program, COBOL / LE does a CICS load of IGZINSH .
  Since that program has no installed definition, CICS invokes
  the Program Autoinstall program (which can be written in Cobol.)
  If it is, then CICS invokes LE for that program.  Essentially
  this causes a recursive call to LE for rununit_end_invocation.
  That is, While LE is processing rununit_end_invocation for
  1 program, it is called for rununit_end_invocation for the
  Program Autoinstall program.)  CICS uses a common RSA for
  rununit_end_invocation and so that recursive call does not
  work.
  

Local fix

• Make sure that Group(CEE) is properly maintained from
  SCEESAMP(CEECCSD) and that Group(CEE) is part of CICS' startup
  group list.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS Users.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Abend0C4 in LE program CEEPLPKA.        *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  An COBOL application program runs in CICS but abends with
  an 0C7.  CICS calls LE (Language Environment) for
  Rununit_End_Invocation for the application program.
  LE's Rununit_End_Invocation calls CICS to LOAD program IGZINSH.
  There is no program definition for IGZINSH so CICS autoinstalls
  it and in doing so calls the Program Autoinstall Exit program
  which is also written in COBOL.
  The exit program runs and LE is called recursively for
  Rununit_End_Invocation.
  Prior to calling LE for Rununit_End_Invocation CICS points
  register 13 at a register save area for LE's use.
  This RSA is in an area of storage which is getmained at task
  initialisation and there is only one per task, so when LE
  stores its registers during Rununit_End_Invocation for the
  autoinstall exit, it overwrites the registers stored during
  the original Rununit_End_Invocation for the application program
  which abended 0C7.
  Processing continues until LE attempts to use the values stored
  in the RSA when it picks up the corrupted RSA, resulting in an
  0C4 abend in LE's program CEEPLPKA.
  The program definition for IGZINSH is included in the
  definitions for the Language Environment language interface
  modules in group CEE, which should be included in a CICS startup
  group list named in the GRPLIST system initialization
  parameter.
  Additional Keywords: PK99596 epic 109950 story 113491
  abendS0C4 S0C4
  

Problem conclusion

Temporary fix

Comments

• This APAR is being closed FIN with concurrence from the
  submitting customer.  This means that a fix to this APAR is
  expected to be delivered from IBM in a release which is being
  developed at the time that the APAR was closed.
  The latest release of the product to exit development at the
  time this APAR was closed was:
    CICS Transaction Server for z/OS V5.3.
  DEM113491 DEM 113491
  

APAR Information

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

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

Fix information

Applicable component levels

• R500 PSN

     UP