A fix is available
APAR status
Closed as program error.
Error description
Environment: z/OS Product name: IBM Rational Business Developer Program Version : 8.5.1.0 Description. Set initial or empty on a dynamic array of records is not working correctly in cobolgen. Example statement: tempClearingBanks[idx].clearingBankVpStdSupplied.text5 = 'TEST'; fails on the host with the error: An error occurred in program PCFE1071, function DOGETCLEARINGBANKS An error occurred in program PCFE1071 on statement number 421 Null value exception (TEMPCLEARI-340)
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: * **************************************************************** * PROBLEM DESCRIPTION: * **************************************************************** * RECOMMENDATION: * **************************************************************** When a variable (that is not part of a record) is a synamic array of a record, the set initial / empty statements generated by cobolgen simply created a null as the pointer, when it should have created a dynamic array if the definition for the variable indicated there were initial records. This would cause later egl code to throw a null value exception as the logic thought the array was existing, when it wasn't.
Problem conclusion
The software has been updated to create the dynamic array when a number of initial records has been specified.
Temporary fix
Comments
APAR Information
APAR number
PI07965
Reported component name
RATL BUS DEV
Reported component ID
5724S5000
Reported release
850
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2013-12-12
Closed date
2014-09-25
Last modified date
2014-09-25
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
R850 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.5","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
25 September 2014