PH72081: THE DFHAP1900 FOR AN EXEC CICS SET MODENAME THAT SPECIFIES 8 BLANKS FOR THE MODENAME, IS INCORRECT.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• The DFHAP1900 message for an EXEC CICS SET MODENAME command that
  specifies eight blank characters for the MODENAME value omits
  the MODENAME parameter entirely from the audit message.
  
  For example, issuing:
  
  EXEC CICS SET MODENAME('        ') CONNECTION(ABCD) ACQUIRED
  
  results in:
  
  DFHAP1900 01/01/2026 01:02:03 CICSRGN1 NONE CICSRGN1 TRN1 CEMT
  SET CONNECTION(ABCD) ACQSTATUS(ACQUIRED) RESP(NORMAL) RESP2(0).
  
  The DFHAP1900 message makes it appear as though an EXEC CICS SET
  CONNECTION command was issued rather than an EXEC CICS SET
  MODENAME command.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS Users.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: DFHAP1900 audit message omits MODENAME  *
  *                      keyword when blank MODENAME value is    *
  *                      specified.                              *
  ****************************************************************
  The DFHAP1900 audit message omits the MODENAME keyword entirely
  when a CEMT SET MODENAME() command is issued specifying eight
  blank characters as the MODENAME value, although a blank
  MODENAME value is valid.
  

Problem conclusion

• CICS has been changed to correctly include the MODENAME keyword
  in the DFHAP1900 audit message when a blank MODENAME value is
  specified.
  

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:

  UO09358 UO09359 UO09360

Modules/Macros

• DFHEITL
  

Fix information

• Fixed component name

  CICS TS Z/OS V6

• Fixed component ID

  5655YA100

Applicable component levels

• R400 PSY UO09360

     UP26/09/15 I 1000

• R500 PSY UO09359

     UP26/09/12 I 1000

• R600 PSY UO09358

     UP26/09/12 I 1000

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.