PI18134: CEDF TRANSACTION ABENDING AEIK AND AED3. 14/06/19 PTF PECHANGE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Using CEDF to browse Temporary Storage in any Transaction
  results in a AEIK and AED3 abend in CEDF.
  .
  To recreate the problem, the following process was followed
  using Transaction AADD which is provided by CICS in group
  DFH$AFLA.
  .
  1) Typed CEDF and press Enter
  2) Typed AADD and press Enter twice, so CEDF intercepted
     this transaction and the working storage was available.
  3) Issued PF5, in order to see the WORKING STORAGE
  4) Issued PF2, in order to browse temporary storage.
     In this screen, on the next enter, the following error
     appeared, no matter what is typed on the screen:
     .
     ABEND AEIK IN EDF: EDF SESSION TERMINATED. HIT CLEAR TO
     CONTINUE.
     .
     DFHAC2206 15:19:07 CICSREGN Transaction AADD failed with
     abend AED3.  Updates to local recoverable resources backed
     out.
  .
  The problem is that there is no TERMID in EIBTRMID for CEDF
  which is causing the following failure.  We see the following
  Trace Entries after turning on STANDARD Tracing for CEDF.
  .
  E160 EXEC ENTRY INQUIRE TERMINAL('....' AT X'154EF0E0')
                          PLX STMT_#(00000483)
  .
  E161 EXEC EXIT INQUIRE TERMINAL('....' AT X'154EF0E0')
                        RESP(11) RESP2(1)
                        PLX STMT_#(00000483)
  .
  00E1 EIP EXIT INQUIRE-TERMINAL TERMIDERR
  .
  The abendAEIK happens because EIBTRMID for the CEDF tasks is
  not set to the TERMID when DFHEDFBR uses it for an EXEC CICS
  INQUIRE TERMINAL.
  .
  CEDF is initially attached as a non-terminal task.   DFHEDFP
  does a DFHXMIQM SET_TRANSACTION to change it to a terminal
  task.  If the EIB is initialized while CEDF is a non-terminal
  task, then EIBTRMID will not be filled in.  If the EIB is
  initialized while CEDF is a terminal task, the EIBTRMID will be
  filled in.  The Problem happens because the EIB is initialized
  during the run_program fragment in DFHAPLI1 prior to giving
  control to DFHEDFP.
  
  
  Additional Symptom(s) Search Keyword(s): KIXREVDAM
  ABENDAEIK ABENDAED3
  

Local fix

• n/a
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS users                               *
  ****************************************************************
  * PROBLEM DESCRIPTION: Browsing a Temporary storage queue from *
  *                      CEDF causes CEDF to abend.              *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  From CEDF it is possible to browse a TSQ (using PF5 'WORKING
  STORAGE' then PF2 'BROWSE TEMP STORAGE'). The default TSQ on the
  browse should be CEBR<terminal ID>, in this case the terminal ID
  is all blanks this leads CEDF to abend with an AEIK abend.
  

Problem conclusion

• UI14289 UK80541
  
  DFHAPLI1 has been updated to set the EIS uninitialised flag on
  after an XPCFTCH user exit call.  This ensures that when EDF
  runs as part of the application execution the EIS is initialised
  at this point to pick up the correct information.
  

Temporary fix

• 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:

  PI18146 UI19917

Modules/Macros

•    DFHAPLI1 DFHAPLJ1 DFHAPLX1
  

Fix information

• Fixed component name

  CICSTS V3 Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R500 PSY UI19917

     UP14/08/01 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.