PM19905: COBOL compiler errors for REPLACE statement where SQLRecord is passed in as a parameter to the function

APAR status

• Closed as program error.

Error description

• Rational Business Developer V7.5.1.5:
  
  The following ompiler errors are received for COBOL generated
  for EGL SQL REPLACE statements where the SQLRecord used on the
  REPLACE is passed in as a parameter to the function.
  
    003117              IF EZECRS-EZELFP-XSSTOREREC-50-CLOS OR
  
  ==003117==> IGYPS0023-E The COBOL word starting in column 15
                          contained more than 30 characters.  The
                          word was truncated to 30 characters.
  
  ==003117==> IGYPS2121-S "EZECRS-EZELFP-XSSTOREREC-50-CL" was not
                          defined as a data-name.  The statement
                          was discarded.
  
  ==003117==> IGYPS2048-S An invalid abbreviated relation
                          condition was found.  The statement was
                          discarded.
  
  ==003117==> IGYPS2096-S An incomplete condition was found in a
                          conditional expression.  The operand(s)
                          was(were) discarded.
  
    003118                    EZECRS-EZELFP-XSSTOREREC-50-SETI OR
  
  ==003118==> IGYPS0023-E The COBOL word starting in column 12
                          contained more than 30 characters.  The
                          word was truncated to 30 characters.
  
  ==003118==> IGYPS2121-S "EZECRS-EZELFP-XSSTOREREC-50-SE" was not
                          defined as a data-name.  The statement
                          was discarded.
  
    003119                    EZECRS-EZELFP-XSSTOREREC-50-SIWH
  
  ==003119==> IGYPS0023-E The COBOL word starting in column 12
                          contained more than 30 characters.  The
                          word was truncated to 30 characters.
  
  ==003119==> IGYPS2121-S "EZECRS-EZELFP-XSSTOREREC-50-SI" was not
                          defined as a data-name.  The statement
                          was discarded.
  

Local fix

• A temp fix is available from support.
  
  Alternatively, to workaround this issue, declare the SQLRecord
  in the program, library or function instead of passing it in as
  a parameter.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  When an SQLRecord is passed as a parameter to a function and
  used in a REPLACE statement, a COBOL compile error occurs.
  

Problem conclusion

• Corrected the record name used to generate the REPLACE code.
  

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:

Fix information

• Fixed component name

  RBD EGL FOR COB

• Fixed component ID

  5724S5001

Applicable component levels

• R751 PSN

     UP