PK52187: DFHDS0002 '0204' WHEN OPENAPI PROGRAM XCTL 'S TO CICSAPI PROGRAM

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• DFHDS0002 A severe error (code X'0204') has occurred in module
  DFHDSTCB.
  occurs after a program defined as OPENAPI does a XCTL to a
  program defined as CICSAPI.
  .
  The root of the problem is that when an OPENAPI program XCTLs to
  a CICSAPI program, the CICSAPI program runs with the
  EIS_ABTERM_ALLOWED_SWITCH set on invalidly.  With that bit on,
  upon completion of the first EXEC CICS command in the CICSAPI
  program, DFHEIP at label EICC85 will do the DFHAPEVI
  SWITCH_TO_APPLICATION and that will cause control to the CICSAPI
  program while running ABTERM_ALLOWED, invalidly. Then on the
  next EXEC CICS command that enters DFHEIP on the QR TCB, the
  DFHAPEVI SWITCH_TO_CICS at label EICC23 will not get executed
  and so control will enter CICS service modules while running
  ABTERM_ALLOWED. If a service module needs to suspend the task,
  the DFHDS0002 will occur.
  .
  The reason a CICSAPI program runs with EIS_ABTERM_ALLOWED_SWITCH
  set on invalidly when XCTL'd to from an OPENAPI program is
  simply that these 2 programs are at the same level and therefore
  share the same EIS and there is no code to cleanup the
  EIS_APPL_BOUNDARY_FLAGS set on for the OPENAPI program. When a
  CICSAPI program is LINK'd to from an OPENAPI program, the
  DFHAPEVI SAVE_ENVIRONMENT in DFHPGLE will stack a piece of the
  EIS in the PESA and then clear out the 10 bytes starting at
  EISINITA (which includes the EIS_APPL_BOUNDARY_FLAGS.) But on
  an XCTL, there is no code to do this.
  Additional keywords:
  DSTCB_INVALID_ABTERM INVALID_ABTERM RESUMED_EARLY resumed early
  RUNNING_ABTERM_ALLOWED THREADSAFE
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All.                                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: DFHDS0002 A severe error (code X'0204') *
  *                      has occurred in module DFHDSTCB.        *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  DFHDS0002 A severe error (code X'0204') has occurred in module
  DFHDSTCB after a program defined as OPENAPI XCTLs to a program
  defined as CICSAPI.  When a program defined with Api : Openapi
  XCTLs to a program defined with Api : Cicsapi, the CICSAPI
  program runs with flag EIS_ABTERM_ALLOWED_SWITCH set on.  This
  is invalid and if the transaction is suspended whilst the
  CICSAPI program is running with ABTERM_ALLOWED(YES),
  MSGDFHDS0002 is issued.
  The problem does not occur with an EXEC CICS LINK.
  
  Additional keywords: DS0002
  

Problem conclusion

• DFHAPLI1 has been changed to reset the EIS_APPL_BOUNDARY_FLAGS
  EIS_RECOVERY_SWITCH, EIS_ABTERM_ALLOWED_SWITCH and
  EIS_RESET_RUNAWAY_SWITCH when a program defined as OPENAPI XCTLs
  to a program defined as CICSAPI.
  

Temporary fix

• FIX AVAILABLE BY PTF ONLY
  

Comments

APAR Information

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

  PK43243

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

  UK30947

Modules/Macros

•    DESLI1   DFHAPLI1
  

Fix information

• Fixed component name

  CICSTS V3 Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R500 PSY UK30947

     UP07/11/10 P F711

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.