PK76819: USING CEDF AND ATTEMPTING TO ABEND A TRANSACTION USING PF12 LEADS TO AN UNEXPECTED ABENDASRA WITH PSW 08/11/14 PTF PECHANGE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Problem:
  If a user invokes CEDF for transaction which executes a modules
  linked using LE (in this case Enterprise COBOL 3.4), then if the
  PF12 ABEND USER TASK option is selected at some point, then
  abend ASRA is generated, not the requested abend code.
  .
  The follwoing messages were issued :
  DFHAP1301  Language Environment has detected
  a corruption of its control blocks. Transaction aaaa currently
  executing.
  
  DFHSR0001  An abend (code 0C4/AKEA) has occurred at offset
  X'FFFFFFFF' in program bbbbbbbb.
  .
  The dump shows :
  In CICS trace we see a call to LE for RUNUNIT_END_INVOCATION
  and then an unexpected 0c4 occurs in LE:
  Instruction Length: 6   Interrupt Code: 0004
  PSW:  079D1000 9CBAD6CE Module CEEPLPKA + X'AD6CE'
  PSW is pointing into LE module CEEHCDLG.
  
  Additional Symptoms:
  CEDF suffers recursive abend ASRA's and CICS has to be
  canceled. You also get message:
  DFHSR0001 CISBTRD AN ABEND (CODE 0C4/AKEA) HAS OCCURRED AT
  OFFSET X'FFFFFFFF' IN PROGRAM RT026.
  .
  RT026 is a LE module.
  .
  You may see an 0C4 in  CEEHSGL + x'39C' trying to reference the
  of the EDBOCB, off of the EDB+x'10'.
  Trace shows:
  QR    SM 0301 SMGF  ENTRY FREEMAIN 00100478,LE_RUWA,TASK24
  QR    SM 0301 SMGF  ENTRY GETMAIN 4D68,YES,LE_RUWA,TASK24
  QR    SM 0302 SMGF  EXIT  GETMAIN/OK    00100478
  
  It looks like we are out of sync here on when this RUWA area
  is freed and/or getmained
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All.                                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: If CEDF is used to request an abend of  *
  *                      a user application, this can lead to a  *
  *                      program check in Language Environment.  *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  If you are running an application under CEDF and you use the
  abend function, PF12, then CICS prematurely freemains RUWA
  storage needed by LE. This leads to a program check in LE.
  
  A similar problem can occur if an abend occurs while performing
  BMS paging.
  
  Additional Keywords:
  CSPG AZTS PGLK LINK LE_RUWA DFHEDFX ru_active DFHSR0001
  DFHAP1301 ASRA 0C4 AKEA
  

Problem conclusion

• UK24904
  DFHAPLI1 has been changed so that it does not freemain LE's
  storage for non-LE programs.
  

Temporary fix

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

Comments

APAR Information

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

  PK75298

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

Modules/Macros

•    DESLI1   DFHAPLI1
  

Fix information

• Fixed component name

  CICSTS FOR VSE

• Fixed component ID

  564805400

Applicable component levels

• RB0P PSY UK43097

     UP09/01/21 P E421 ®

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.