PK71576: TS QUEUE XXXXXXXX DOES NOT EXIST WHEN USING CEBR WITH SYSID FOR REMOTE CICS TS AND THE TSQUEUE NAME IS SHORTER THAN 9 CHARACTER

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Two CICS TS 1.1.1 for VSE/ESA connected via IRC
  
  CICS TS as CICSICCF has SYSID=CIC1
  CICS TS as PRODCICS has SYSID=CIC2
  .
  The TS queue is created with 8 character in length via EC WRITEQ
  TS Queue or QName (only 8 chars) on CICSICCF (CIC1).
  .
  
  When using CEBR on PRODCICS (CIC2) with SYSID of CIC1
  than message'TS QUEUE xxxxxxxx DOES NOT EXIST' come up .
  .
  A CECI READQ TS Q(xxxxxxxx) SYID(CIC1) entered on the PRODCICS
  (CIC2)
  is working well; the TS Queue can be read.
  
  CEBR is working well when a TS Queue name is longer than 8
  characters.
  For sample :
  Write a TS queue with
  CECI WRITEQ TS QN(ANYNAMEANYNAME) FROM(MYTEST) on CICSICCF
  (CIC1) .
  Than do a CEBR on PRODCICS ( CIC2) and enter CIC1 at SYSID .
  This results in successfull browsing of the record:
  Output of CEBR entered on PRODCICS with SYSID of CIC1
   CEBR  TSQ ANYNAMEANYNAME     SYSID CIC1 REC     1 OF     2
        **************************  TOP OF QUEUE  **********
  00001 MYTEST
  00002 MYTEST
        *************************  BOTTOM OF QUEUE *******
  

Local fix

• No workaround available yet ...
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All                                          *
  ****************************************************************
  * PROBLEM DESCRIPTION: Using CEBR with a queue name less than  *
  *                      9 characters on a remote TS queue       *
  *                      produces a QUEUE does not exist error.  *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  CICS attempts to convert a READQ TS QNAME for a remote queue
  which has a name that is less than 9 bytes long into a READQ TS
  QUEUE request. However, this is not correctly converted
  resulting in the remote CICS system being unable to retrieve
  the name of the queue and hence it produces the message
  indicating that the queue cannot be found (QIDERR).
  
  WRITEQ DELETEQ XFX ARG0
  

Problem conclusion

• The DFHXFX transformer 1 code has been changed so that it
  correctly sets the DFHEIP argument 0 existence bits for QUEUE
  and QNAME as appropriate.
  

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:

  UK40947

Modules/Macros

•    DFHXFX
  

Fix information

• Fixed component name

  CICSTS FOR VSE

• Fixed component ID

  564805400

Applicable component levels

• RB0P PSY UK40947

     UP08/10/24 P E421

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.