PI07965: Set initial or empty on a dynamic array of records is not working correctly in cobolgen

Rational Business Developer Fix Pack 2 (8.5.1.2) for 8.5.1

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 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