PM27353: incorrect host variable names when two sql records have same field names

APAR status

• Closed as program error.

Error description

• Unique SQL fields defined with same user type are not unique in
  the SQL
  statement
  
  Sample EGL code:
  myMinimal                              JobDescr;
  myMaximal                             JobDescr;
  myOrganUnit                            char(3);
  function main()
  myMinimal.jobTyp = 3;
  myMaximal.jobTyp = 7;
  
  open EMPL_OU_CUR with #sql{
    select ORGAN_UNIT
    from   EDAPVA6_EMPL
    where  JOB_TYP ?= :myMinimal.jobTyp
    and    JOB_TYP ?= :myMaximal.jobTyp};
  
  Results in COBOL code:
  EXEC SQL
       DECLARE EZECURSOR1  CURSOR
       FOR  select ORGAN_UNIT  from EDAPVA6_EMPL
  where JOB_TYP ?=
  :EZESQL-HOST-VARS.EZESQL-HST-1:EZESQL-HOST-VARS.EZESQL-
  HST-1-I
  and   JOB_TYP ?=
  :EZESQL-HOST-VARS.EZESQL-HST-1:EZESQL-HOST-VARS.EZESQL-
  HST-1-I
  END-EXEC.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  The SQL processing logic was using the same temporary host
  variable for the same EGL variable, which was being
  referenced by the instantiation of the same record as two or
  more occurrences. Even though it really is the same
  variable, the logic was not checking to see if it was coming
  from a different occurrence and hence using the same
  temporary variable. The logic has now been fixed to
  determine and take into account the different records
  instantiated. This only fails when using non-sql records.
  

Problem conclusion

• Software updated. Fixtest available.
  

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