PI48961: CICS SEND TEXT NOEDIT PAGING COMMAND RETURNS OK INSTEAD OF QUEUE_FULL AFTER 32767 ITEMS

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Your application program is issuing SEND TEXT commands similar
  to the following:
  .
    EXEC CICS SEND TEXT NOEDIT PAGING
              FROM(data-area)
    END-EXEC
  .
  This works well for the first 32767 times. On the 32768'th
  time, Temp Storage receives a QUEUE_FULL status because CICS
  has reached the maximum number of items in a single Temp
  Storage queue. That QUEUE_FULL error is not propagated back to
  the application program. Instead, the EXEC CICS call receives
  an OK response and does not know that the command has actually
  failed.
  .
  If trace is turned on, you will see a trace entry similar to
  the following:
  .
  TS 0202 TSQR  EXIT  - FUNCTION(WRITE) RESPONSE(EXCEPTION)
                        REASON(QUEUE_FULL) TOTAL_ITEMS(0)
  .
  Additional Symptom(s) Search Keyword(s): KIXREVEPH
  

Local fix

• No local fix.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All.                                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: SEND TEXT with PAGING option may not    *
  *                      return error when TSQ is full.          *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  In the reported problem, an application was performing many
  SEND TEXT commands with the PAGING option.  The PAGING option
  results in the SEND TEXT data being placed in a Temporary
  Storage queue.
                                                                 .
  The maximum number of items that can be placed into the
  aforementioned TS queue is 32767 (x'7FFF').
                                                                 .
  The application attempted to write another record ( 32768 or
  x'8000') which failed but this was only noticeable by close
  examination of trace entries.  For example the TSQR EXIT trace
  entry showed RESPONSE(EXCEPTION) with REASON(QUEUE_FULL).
                                                                 .
  This error was not returned to the application which received
  a NORMAL response for the SEND TEXT ( PAGING ) command.
  

Problem conclusion

• CICS BMS code has been modified, in the aforementioned scenario
  a response of ITEMERR will be returned to the application.
  
  The CICS Knowledge Center and the CICS 5.2 Application
  Programming Reference ( SC34-7267-00 ) will be updated
  by the following additional Condition that may be
  returned on a SEND TEXT command:
  
  26 ITEMERR
  Occurs when the PAGING option is specified and:
  o  The maximum number of items (32767) is exceeded.
     Default action: terminate the task abnormally.
  

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:

  PI54555 UI34817

Modules/Macros

• DFHBMS   DFHMCPA$ DFHMCPE$ DFHMCP1$ DFHMCY   DFHOSPWA DFHTPPA$
  DFHTPP1$
  

Fix information

• Fixed component name

  CICS TS Z/OS V5

• Fixed component ID

  5655Y0400

Applicable component levels

• R900 PSY UI34817

     UP16/02/05 P F602

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.