PM88787: ABEND0C4 IN WRAPPERNATIVE GETCOMMAREA WHEN A JAVA PROGRAM IS LINKED TO BY AN XPCREQ USER EXIT PROGRAM

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• A user application does an EXEC CICS LINK with a COMMAREA.
  The XPCREQ user exit program gets driven and it links to a
  Java program passing it a channel.  When the Java program starts
  up the CICS wrapper attempts to obtain the commarea if there is
  one.  EXEC CICS ADDRESS COMMAREA returns a null pointer
  because the Java program was invoked with a channel.  However,
  EIBCALEN still contains the commarea length from the original
  EXEC CICS LINK made by the user application.  The wrapper code
  then incorrectly continues processing a commarea because of the
  non-zero EIBCALEN leading to an 0C4 in WrapperNative.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS users.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: ABEND0C4 in wrappernative.c when        *
  *                      linking to a Java program from a user   *
  *                      exit.                                   *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  A user exit program is configured to run at the XPCREQ exit
  point.  As part of a CICS task PROGRAM A does an EXEC CICS LINK
  to PROGRAM B passing a large commarea.  This LINK causes the
  XPCREQ exit program to be driven.  That exit program constructs
  a channel and then does an EXEC CICS LINK to a Java program
  passing that channel.
  
  The CICS wrapper needs to set up the task environment for the
  Java application.  Part of that process is to create a byte
  array to represent the commarea.  The address of the commarea is
  obtained and found to be null because the program was invoked
  with a channel.  However, EIBCALEN is the length of the original
  commarea being passed to PROGRAM B.  This causes the code in
  wrappernative.c to create a byte array of length EIBCALEN and
  then copy data from low core into that byte array.  EIBCALEN is
  large so an 0C4 abend occurs when the source address gets to
  fetch protected storage.
  
  Additional keywords:
  S0C4  ABENDS0C4
  

Problem conclusion

• wrappernative.c has been changed to not perform any commarea
  processing if the commarea address is null.
  

Temporary fix

• FIX AVAILABLE BY PTF ONLY
  

Comments

APAR Information

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

  PM88786

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

  UK94752

Modules/Macros

• DFJ@H356 DFJDTCOE
  

Fix information

• Fixed component name

  CICS TS Z/OS V5

• Fixed component ID

  5655Y0400

Applicable component levels

• R80D PSY UK94752

     UP13/06/06 P F306

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.