PM67169: VALIDN=USEREXIT & SEND MAP WITH MAPPINGDEV CREATES INCORRECT 3270 DATASTREAM

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Problem description
  We are using "SNA" printers and are using the printer facility
  of Personal Communication.
  We could NOT understand WHY the printing was rejected
  (when running Personal Communication). The printing is rejected
   with code "1003".
  We have now analysed the data and this are our findings !
  The returncode 1003 is an indication from the emulator that
  "something" in the datastream is in error (Sense 1003 indicates
  function not supported)... So, by printing different data and
  analyzing the  datastream, we have found that CICS is producing
  and INCORRECT 3270 datastream. This error is trigged when we
   installed and started to use the CICS BMS exit.
  When a "map" contains the keyword "VALIDN=USEREXIT",
  CICS starts to create data that is in violation with how a 3270
  datastream is to be built. PLEASE note that the error IS NOT
  trigged when you send directly to a terminal. But, when you
  communicate with a "3270 PRINTER" by building a datastream from
  a SEND MAP using "MAPPINGDEV", there is an error !!!!!!
  

Local fix

• remove "VALIDN=USEREXIT" from your BMS MAP.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS users.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: VALIDN=USEREXIT and SEND MAP with       *
  *                      MAPPINGDEV creates incorrect 3270 data  *
  *                      stream.                                 *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  A BMS map has a field defined with VALIDN=USEREXIT to indicate
  that the BMS Global User Exit (XBMIN/XBMOUT) should be called
  for this field.
  An application using this map issues the following command:
  .
  EXEC CICS SEND MAP('mapname') MAPONLY MAPPINGDEV('name') SET(n)
  .
  so that a 3270 data stream is built and saved in storage pointed
  to by register n, to be send later to the MAPPINGDEV, which in
  this case is a PComm printer.
  To record the fact that VALIDN=USEREXIT was specified for one of
  the fields, and that the BMS user exit should be called, CICS
  sets an internal flag of x'80' in the validation attribute byte
  for the field.
  BMS module DFHMCY is called to handle the MAPPINGDEV SEND and
  tests if the field validation attribute byte is non-zero, if it
  is then a field validation sequence is inserted into the 3270
  data stream being built. In the reported problem the field
  validation attribute byte is x'80' so a x'C180' sequence is
  inserted into the data stream. This sequence is invalid as the
  x'80' bit of a field validation attribute byte is reserved.
  Consequently when the 3270 data steam is sent to the MAPPINGDEV
  it is rejected with SENSE1003 'function not supported'.
  
  Additional keywords: SENSE 1003 SNS1003 SNS
  

Problem conclusion

• DFHMCY has been changed for a SEND with MAPPINGDEV so that if
  the field validation attribute contains no valid bit settings,
  the field validation sequence will not be inserted into the
  3270 data stream.
  

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:

  UK81210

Modules/Macros

•    DFHMCY
  

Fix information

• Fixed component name

  CICS TS Z/OS V4

• Fixed component ID

  5655S9700

Applicable component levels

• R700 PSY UK81210

     UP12/08/24 P F208

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.