Fixes are available
APAR status
Closed as program error.
Error description
For below EGL: function main() abc abc; abc.AH = x'C0'; abc.BH = x'C0'; char1 Char(1); char1 = abc.B; sysLib.writeStdout( 'char1: ' + char1 ); end Record abc 1 A CHAR(1); 2 AH hex(2); 1 B NUM(1); 2 BH HEX(2); end In EGL 8, the output is below: char1: { In EGL 6, the output is below: char1: 0
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: * **************************************************************** * PROBLEM DESCRIPTION: * **************************************************************** * RECOMMENDATION: * **************************************************************** When a value is assigned to a num, the sign is altered to ensure it is human-readable. In V6 however, this was also done when the num was moved to a char. This V6 code was not present in VAG or RBD V7 or V8 and was likely incorrect in V6. There is no problem with additionally doing this sign altering, other than 2 extra lines of code.
Problem conclusion
V8 has been updated to do this additional code.
Temporary fix
Comments
APAR Information
APAR number
PM65968
Reported component name
RATL BUS DEV
Reported component ID
5724S5000
Reported release
801
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2012-05-31
Closed date
2012-10-08
Last modified date
2012-10-08
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
R801 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":"8.0.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
08 October 2012