Fixes are available
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 number
PM50318
Reported component name
RATL BUS DEV
Reported component ID
5724S5000
Reported release
751
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2011-10-18
Closed date
2012-03-15
Last modified date
2012-03-15
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
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSMQ79","label":"Rational Business Developer"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"7.5.1","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
28 October 2021