Fixes are available
APAR status
Closed as program error.
Error description
An egl program, which formats messages to be displayed to the end user doesn't work in generated Cobol. The purpose of the program is to embed a list of valid input values to a message string. For example, when the values list "A,E,H,J,K,L,M,N,O,P,R,S,T,U,V,Y " is embedded into a message string the output string is incorrectly formatted. VGLib.copybytes was corrupting the result of the copy if both the source and the target arguments are the same array element
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: * * Users that use the system copybytes function passing an * * argument that is an element of an array. * **************************************************************** * PROBLEM DESCRIPTION: * * When an element of an array was passed to the copybytes * * function, the code generated caused the original element to * * be replaced after the changes were made. This made the * * appearance of nothing happening to the element. The cause of * * this is because the system definition for the parameter is * * inout, which causes the generator to replace the element. * * Code has been added to the copybytes function to detect this * * and prevent the additional replacement from occurring. Other * * system functions do not have this problem. * **************************************************************** * RECOMMENDATION: * ****************************************************************
Problem conclusion
The logic has been updated to prevent the replacement of the array element after the changes have been made.
Temporary fix
Comments
APAR Information
APAR number
PI47480
Reported component name
RATL BUS DEV
Reported component ID
5724S5000
Reported release
911
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2015-08-24
Closed date
2016-04-05
Last modified date
2016-04-05
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
R901 PSY
UP
R911 PSY
UP
R950 PSY
UP
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSMQ79","label":"Rational Business Developer"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"9.1.1","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
17 October 2021