PK37866: USING EXEC CICS WEB API RECEIVE DFHAP0001 ABEND 0C4/AKEA AT OFFSET X'0BDC' IN MODULE DFHEIWB DURING EXEC CICS WEB CONVERSE.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Using CICS TS 3.1 as a Webservice Client and attempting to use
  the EXEC CICS WEB API. Every attempt, received an abend code
  (0C4/AKEA) at offset x'00000BDC' in module DFHEIWB during EXEC
  CICS WEB CONVERSE.
  .
  DFHAP0001 cicsname AN ABEND (CODE 0C4/AKEA) HAS OCCURRED AT
               OFFSET X'00000BDC' IN MODULE DFHEIWB.
  .
  This problem only occurs when you're Application is compiled
  with the "RENT" option.
  .
  The Problem appears to be the following:
  .
  This is a defect in DFHEIWB. The code is attempting to treat a
  MEDIATYPE containing spaces or nulls as a non-existent
  MEDIATYPE.  The code saves the original MEDIATYPE existence bit
  then resets the bit (or not) depending on the content of the
  MEDIATYPE field.  It then calls a subroutine which sets up the
  parameter list for the call to DFHWBCL. This subroutine checks
  the MEDIATYPE existence bit.  After DFHWBCL is called, the
  MEDIATYPE existence bit is ALWAYS restored (even if it wasn't
  reset).  As the existence bit is in a static area of the
  program, DFHEIWB should never touch it. This problem isn't
  confined to particular Language, it's dependant on the compile
  option of RENT being specified.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All.                                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: 0C4 abend in DFHEIWB when issuing an    *
  *                      EXEC CICS WEB CONVERSE.                 *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  When issuing an EXEC CICS WEB CONVERSE command an ABEND0C4
  occurs in DFHEIWB offset X'0BDC'. This happens when the program
  was linked with the RENT option, and the CICS region was started
  with RENTPGM=PROTECT.
  During the processing of the CONVERSE command, DFHEIWB attempts
  to save and restore the existence bit for MEDIATYPE in the EXEC
  parameter list. The EXEC parameter list is part of the program
  static storage.
  Due to RENTPGM=PROTECT the program is in key 0 storage so the
  attempt to update the existence bit fails with an ABEND0C4.
  Additional Keywords: S0C4 ABENDS0C4 DFHSR0622 MSGDFHSR0622
  MSGDFHAP0001 AP0001 ERDSA
  

Problem conclusion

• DFHEIWB has been changed to no longer save and restore the
  MEDIATYPE parameter existence bit.
  

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:

  UK22813

Modules/Macros

•    DESEIWB  DFHEIWB
  

Fix information

• Fixed component name

  CICSTS 3.1 Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R400 PSY UK22813

     UP07/03/13 P F703

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.