APAR status
Closed as program error.
Error description
In EGL I defined one variable type NUMERIC with value 1234: numNumeric num(7) = 1234; Then I add some value (let's say 90,000) to this variable assign ing the result to a variable type CHAR: resNumeric char(7) = 90000 + numNumeric; When running this thru EGL Debugger, the result is 91234 (that's fine) but running the EGL cobol generated on CICSZOS runtime, the resu lt is 91234.0 (decimal with zero fill, that's weird).
Local fix
Problem summary
A new temporary variable is allocated with the type of the numeric binary expression and the calculation is done. Then the result from the temporary variable is used to do the concatenate. This allows the process to properly concatenate the value based on the expression's real numeric type.
Problem conclusion
Software updated in 7512
Temporary fix
Comments
APAR Information
APAR number
PK82044
Reported component name
RBD EGL FOR COB
Reported component ID
5724S5001
Reported release
750
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2009-03-06
Closed date
2009-04-13
Last modified date
2009-04-13
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
R750 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","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
13 April 2009