APAR status
Closed as program error.
Error description
Rational Business Developer V7.5.1.2: The support for converseVar.eventKey is inconsistent. For example, the Java generation and Enterprise Generation Language (EGL) debugger supports the following syntax: while(converseVar.eventKey != "PF3") if(converseVar.eventKey == "PF3) while the COBOL runtime support requires these statements be coded as follows: while(converseVar.eventKey not PF3) if(converseVar.eventKey is PF3) The conditional statements supported in the EGL debugger do not work running the generated COBOL. Even if PF3 is pressed, the conditional check never evaluates to true. For the EGL COBOL support, the is and not operators must be used instead of the == != operators.
Local fix
Problem summary
The '==' operator does not seem to work when comparing the value "PF3" to consoleVar.eventKey in Cobol, but it does work when doing the same comparison in Java and Debug.
Problem conclusion
This is working as designed, and is based on the runtime values of PF3. On Java and Debug, the runtime value of PF3 is the string "PF3", while on Cobol the runtime value of PF3 is "03". If the statement using the == operator had been written as: if(converseVar.eventKey == "03") it would have worked for Cobol, but not for Java or Debug. This is the reason EGL provides the 'is' operator and the PF3 mnemonic, to hide runtime differences. When inspecting the value of the eventKey field, the is/not operators should be used instead of the ==/!= operators. This information will be added to the EGL documentation.
Temporary fix
Comments
APAR Information
APAR number
PK85165
Reported component name
RATL BUS DEV
Reported component ID
5724S5000
Reported release
751
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2009-04-22
Closed date
2009-11-09
Last modified date
2009-11-09
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
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:
09 November 2009