PM10787: UNIQUE SQL SELECT STATEMENT FINDS MULTIPLE ROWS (-811)

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• ACRT testcase I8009837. Currently ACRT 199. Program
  EDIRSMS.CDB2 function rtprstu() does the following SELECT
  (values filled in):
    SELECT * FROM EDI52FVT.EDITPST WHERE
      ATFID    = '406GEN' AND
      INTPID   = '406_ADF2EDI_V2.0_TEST' AND
      APPLTPID = 'ANY' AND
      ACTIVE   =  'Y' AND
      TESTIND  = 'T' AND
        (TPNICKNM = 'ANY' OR
          (APPLTPID = 'ANY' AND
            INTPID   <> ' ' AND
            TPNICKNM <> 'ANY' AND
            TPNICKNM <> 'KNOWN'));
  In SPUFI, this SELECT statement returns two rows.
  In CICS, this SELECT statement returns a -811 sqlcode.
  The comment in rtprstu() says: "Read a specific map
  send usage using atfid, intpid, appltpid, tpnicknm, testind
  and active flag."
  It seems EDI.TE51RGT.EIFILE.I8009837 contains the two
  records that violate the unique lookup attempt. The record
  at line 2182 and the record at line 2191 are the culprits.
  The SELECT statement should be changed to accommodate
  more than one entry found, and return the non-ANY one if
  multiples are found. This is necessary to support having
  both a unique TPNICKNM entry and an ANY TPNICKNM entry.
  

Local fix

Problem summary

• ACRT testcase I8009837. Currently ACRT 199. Program
  EDIRSMS.CDB2 function rtprstu() does the following SELECT
  (values filled in):
  SELECT * FROM EDI52FVT.EDITPST WHERE
  ATFID    = '406GEN' AND
  INTPID   = '406_ADF2EDI_V2.0_TEST' AND
  APPLTPID = 'ANY' AND
  ACTIVE   =  'Y' AND
  TESTIND  = 'T' AND
  (TPNICKNM = 'ANY' OR
  (APPLTPID = 'ANY' AND
  INTPID   <> ' ' AND
  TPNICKNM <> 'ANY' AND
  TPNICKNM <> 'KNOWN'));
  In SPUFI, this SELECT statement returns two rows.
  In CICS, this SELECT statement returns a -811 sqlcode.
  

Problem conclusion

• The SELECT statement will be changed to accommodate
  more than one entry found, and return the non-ANY one if
  multiples are found. This is necessary to support having
  both a unique TPNICKNM entry and an ANY TPNICKNM entry.
  

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:

  UK55534

Modules/Macros

• CDB2     EDIRSMS
  

Fix information

• Fixed component name

  WEBS DI ZOS

• Fixed component ID

  5655I4003

Applicable component levels

• R330 PSY UK55534

     UP10/05/01 P F004

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.