PM05123: DFS555I MESSAGE SENT TO TPNAME DFSASYNC FOR APPC IS 64 BYTES PADDED WITH BLANKS INSTEAD OF 8 BYTES.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Customer found that /DIS LUNAME xxx TPNAME ALL QCNT in
  shared queue enviroment showed messages queued to TPNAME
  DFSASYNC. However, /DIS LUNAME xxx TPNAME DFSASYNC QCNT showed
  no messages. The reason is the messages were queued with
  a TPNAME of length 64 -> DFSASYNC padded with 56 blanks.
  They were DFS555I messages for application abend from an
  asynchronous transaction flow. DFS6LUS0 BLDPRE_SERVICE sets
  QAB_LUNAME to this value incorrectly instead of the expected
  8 bytes. The display command for TPNAME DFSASYNC fails because
  length is part of the compare.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All IMS V11 APPC users in a shared queues    *
  *                 environment with DFSASYNC output.            *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect output from IMSCMD /DIS LU    *
  *                      xxx TPN DFSASYNC QCNT when MSGDFS555I   *
  *                      is queued to DFSASYNC.                  *
  *                                                              *
  *                      Additional Symptoms:                    *
  *                                                              *
  *                      MSGDFS1955I RC13, MSGDFS1955I RC18,     *
  *                      MSGDFS1995E ATB80052I.                  *
  *                                                              *
  *                      Forward Fit of PM04960.                 *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  When MSGDFS555I is queued to DFSASYNC, the TPNAME has a length
  of 64 bytes and is padded with blanks, rather than an 8 byte
  length. This causes /DIS LU xxx TPN DFSASYNC QCNT to show an
  incorrect queue count.
  
  Additionally, any attempt by IMS to deliver the DFS555I to the
  APPC client results in, MSGDFS1955I RC13, MSGDFS1955I RC18,
  MSGDFS1995E ATB80052I LU specified on Local_LU_name parameter
  is not defined to APPC/MVS. DFS6LUS0 sets the Local_Lu flag
  in error, causing an invalid LUNAME being copied into the
  Local_Lu field.
  

Problem conclusion

• GEN:
  KEYWORDS:
   SYSPLEXSQ
  
  *** END IMS KEYWORDS ***
  DFS6LUS0 subroutine BLDPRE_SERVICE was modified to set the
  TPNAME length based on the actual length, rather then defaulting
  to 64 bytes, and to only set the Local_Lu flag only if a
  descriptor exists.
  

Temporary fix

Comments

APAR Information

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

  PM04960

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

  UK53985

Modules/Macros

• DFS6LUS0
  

Fix information

• Fixed component name

  IMS V11

• Fixed component ID

  5635A0200

Applicable component levels

• R100 PSY UK53985

     UP10/02/04 P F002

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.