APAR status
Closed as program error.
Error description
Environment: Windows XP Product name: IBM? Rational? Business Developer Program Version : 8.0.1.1 Problem Description. When debugging a function that have a record as a parameter the default is expected to be 'inout' while the behaviour at debug mode seems to be only 'in' but at runtime it is 'inout' Steps To reproduce Example: record MyRecord type BasicRecord 5 val1 char(8); end program VG07A type BasicProgram {} function main() rec MyRecord; rec.val1='ABCDEF'; test(rec); syslib.writeStdout(rec.val1); end function test(c char) c = 'Hi'; end end While debugging the rec.val1 is not changed after calling the test function
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: * **************************************************************** * PROBLEM DESCRIPTION: * **************************************************************** * RECOMMENDATION: * **************************************************************** When passing in a structured record to a function whose parameter is an INOUT CHAR, the record argument was treated as IN instead of INOUT. This was not a problem for other argument/parameter type combinations.
Problem conclusion
A structured record argument being passed into an INOUT CHAR function parameter is now treated as INOUT.
Temporary fix
Comments
APAR Information
APAR number
PM43425
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
2011-07-11
Closed date
2011-07-28
Last modified date
2011-07-28
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:
28 July 2011