PM50318: Unexpected results from vglib.concatenate in generatd Cobol

Rational Business Developer Fix Pack 3 (8.0.1.3) for 8.0.1
Rational Business Developer Fix Pack 8 (7.5.1.8) for 7.5.1

APAR status

• Closed as program error.

Error description

• User generated a Cobol program from EGL using RBD 7.5.1.7
  
  
  The vglib.concatenate function poduced unexpected
  results.
  
  Example:
  QC4B1R.LG_ZONE_A = ' ';
  syslib.writeStdout('QC4B1R.LG_ZONE_A 1' + QC4B1R.LG_ZONE_A);
  VgLib.concatenate(QC4B1R.LG_ZONE_A,QC4B1R.MENTION[70][1 : len]);
  syslib.writeStdout('QC4B1R.LG_ZONE_A 2' + QC4B1R.LG_ZONE_A);
  
  
  It should concatenate QC4B1R.MENTION[70][1 : len] in
  QC4B1R.LG_ZONE_A
  
  Instead, it concatenates QC4B1R.MENTION[70][1 : len] twice in
  QC4B1R.LG_ZONE_A
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  The problem is when a structured record that is an array is
  being used in a call to a system function along with a
  substring. This is the only scenario that it fails in. The
  logic would process the parameter twice, because of the
  logic to process the array access. This caused a second
  occurrence of the generator order to be added, which
  confused the logic.
  

Problem conclusion

• The software has been updated and a fixtest is available.
  

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

• R751 PSN

     UP