PI72685: COBOL COMPILER ERROR WHEN USING A SQL UNICODE FIELD WITH A DATE OR TIME SQLDATACODE SPECIFIED

Rational Business Developer Fix Pack 2 (9.1.1.2) for 9.1.1
Rational Business Developer Fix Pack 2 (9.5.1.1) for 9.5

APAR status

• Closed as program error.

Error description

• Generating an EGL program which selects from a DB2 table with a
  where clause in turn referencing a date column and a host
  variable defined as  unicode(10) {column = "stt_Dt", SQLDataCode
  = 385};
  
  Compilation of the generated COBOL thereafter fails with an
  error message ie:
  IGYPA3005-S "EZELFV-SQL-1 (NATIONAL ITEM)" and "EZESQL-HST-1
  (ALPHANUMERIC)" did not follow the "MOVE" statement
  compatibility rules. The statement was discarded.'
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * User programs that have unicode types for a sql date, time   *
  * or timestamp and also have the sqldatacode set to one of the *
  * date/time/timestamp values.                                  *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * A cobol compiler error will occur indicating that a          *
  * conversion from a usage national field cannot me made to a   *
  * display field. This is because the temporary variable used   *
  * was defined as PIC X instead of PIC N. The confusion was     *
  * that a sqldatacode date/time/timestamp field was defined as  *
  * PIC X, when it should have been defined as PIC N if the      *
  * user's EGL field is unicode.                                 *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  

Problem conclusion

• The temporary variable factory now checks to see if the user's
  EGL variable is unicode or not and assigns the appropriate type
  to the temporary field.
  

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

  RATL BUS DEV

• Fixed component ID

  5724S5000

Applicable component levels

• R901 PSY

     UP

• R911 PSY

     UP

• R950 PSY

     UP