PK09533: DFHSM0002 X'0316' FREEMAIN ERROR ON CEMT DISCARD PIPE WHEN WSBIND IS GREATER THAN 32K.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• In DFHPIWR (+45DA) the length for the FREEMAIN is setup from
  header for control block WRB whose length is 87D8. The length
  it is trying to freemain is FFFF87D8. The length is setup using
  a LH. This occurs when WSBIND is greater than 32K.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS Users.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: DFHSM0002 code('0316') when discarding  *
  *                      a CICS Web Service pipeline.            *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  A CICS Webservice resource is represented by a pi_wsresource
  control block which consists of a 16 byte header followed by
  the contents of a wsbind HFS file. The length of the control
  block is stored within the header in field pi_wsr_length, which
  is a signed halfword field. However, wsbind files may be large
  and in this case the length was X'87D8' which resulted in
  the sign bit being set in pi_wsr_length.
  This control block is freemained as part of the processing
  of a CEMT DISCARD PIPELINE() command. DFHPIWR loaded the signed
  halfword length into a fullword field to pass to storage
  manager on a FREEMAIN call, but because the X'8000' bit was
  on, the sign bit was propagated, resulting in a length of
  X'FFFF87D8'. This meant that the end address of the storage was
  outside of the PI_GENRL subpool, resulting in msgDFHSM0002 for
  reason code x'0316' (Freemain_of_pages_not_owned_by_subpool).
  
  Additional keywords: SM0002 WRB wsbindlen PIPE
  

Problem conclusion

• DFHPIDCC has been altered to increase the length of field
  pi_wsr_length to a fullword and to decrease the length of
  field pi_wsr (the 'WRB' eyecatcher) from 9 to 7 characters.
  DFHPIWR has been altered to move a shorter string into pi_wsr.
  
  The CICS Transaction Server for z/OS, V3.1, Supplementary
  Data Areas manual, LY33-6108-00, has been altered to change
  the lengths of fields pi_wsr_length and pi_wsr within the
  pi_wsresource structure on page 406 as follows:
  
  Offset  Type          Len   Name (Dim)          Description
   Hex
  
    (0)   UNSIGNED        4   PI_WSR_LENGTH
    (4)   CHARACTER       1   PI_WSR_ARROW     '>'
    (5)   CHARACTER       7   PI_WSR           'WRB    '
  

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:

  UK07405

Modules/Macros

•    DESPIDC  DESPIWR  DFHPIDCC DFHPIDCD DFHPIWR
  DFHPIWRA DFHPIWRJ DFHPIWRM DFHPIWRT DFHPIWRV
  

Fix information

• Fixed component name

  CICSTS 3.1 Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R400 PSY UK07405

     UP05/09/23 P F509

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.