PI86627: EXEC CICS READQ TD INTO() LENGTH(0) GETS LENGERR AND QUEUE IS NOT READ.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• DFHETD has changed at 5.3 in that it is now enforcing the
  length must be greater than zero and no more than 32K.  This
  enforcement raises LENGERR condition when LENGTH(0) is coded.
  This results in the Queue not being read at all.  Thus,
  preventing QZERO to ever be met.
     Prior releases allowed LENGTH(0) to be coded. LENGERR would
  still be raised but the record would be read from the queue,
  the data would be truncated to the size coded for LENGTH and
  the INTO area would be updated with the length of data read.
     The intent of the policing was to actually police for a
  negative value.
  
  Additional Symptom(s) Search Keyword(s): KIXREVDWZ
  

Local fix

• Code a length value greater than zero.  For example:  EXEC CICS
  REQDQ TD INTO() LENGTH(1)
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS users.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: EXEC CICS READQ TD LENGTH(0) does       *
  *                      not remove a record from the queue.     *
  ****************************************************************
  * RECOMMENDATION: .                                            *
  ****************************************************************
  An application program issues EXEC CICS READQ TD LENGTH(0)
  and the LENGERR condition is raised, but CICS does not
  remove the record from the Transient Data queue.
  This is inconsistent with previous releases of CICS, where
  the record was removed.
  

Problem conclusion

• DFHETD has been changed to remove the record from the queue.
  
  The CICS Knowledge Center and the CICS 5.3 Application
  Programming Reference ( SC34-7402-00 ) will be updated
  in the section describing EXEC CICS READQ TD to
  clarify processing for different LENGTH values:
  
  If the value specified is less than zero a LENGERR condition
  will be raised and the queue will not be read.
  If the value specified is zero a LENGERR condition will be
  raised and the queue will be read.
  

Temporary fix

Comments

APAR Information

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

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

  UI50224 UI50225

Modules/Macros

• DFHETD
  

Fix information

• Fixed component name

  CICS TS Z/OS V5

• Fixed component ID

  5655Y0400

Applicable component levels

• R000 PSY UI50225

     UP17/09/20 P F709

• R100 PSY UI50224

     UP17/09/19 P F709

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.