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 number
PM27353
Reported component name
RBD EGL FOR COB
Reported component ID
5724S5001
Reported release
751
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2010-11-23
Closed date
2011-05-06
Last modified date
2011-05-06
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
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSMQ79","label":"Rational Business Developer"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"7.5.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
06 May 2011