A fix is available
APAR status
Closed as program error.
Error description
After UI25594, use of the INITIALIZE statement with a target data item that is a group that contains tables results in changes to data items in the tables that should be left unaffected by the INITIALIZE operation. USERS AFFECTED: Users of Enterprise COBOL V5.1 compiling and running programs that have INITIALIZE statements with a target data item that is a group that contains tables (OCCURS). If the table contains FILLER, USAGE INDEX, USAGE POINTER, SAGE FUNCTION-POINTER, USAGE PROCEDURE-POINTER, USAGE OBJECT-REFERENCE data items, or if the INITIALIZE statement has a REPLACING phrase which does not specify all data categories represented by data items in the table, then such data items can be incorrectly modified by the INITIALIZE statement. PROBLEM DESCRIPTION: Incorrect output. The above INITIALIZE statements would change more fields than they were supposed to. The fields that should not have been changed (i.e., FILLERUSAGE INDEX, USAGE POINTER, USAGE FUNCTION-POINTER, USAGE PROCEDURE-POINTER, and USAGE OBJECT-REFERENCE fields) may be set to arbitrary values instead of maintaining the values they possessed prior to the INITIALIZE statement being executed.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V5.1 compiling * * and running programs that have INITIALIZE * * statements with a target data item that is a * * group that contains tables (OCCURS). * * If the table contains FILLER, USAGE INDEX, * * USAGE POINTER,USAGE FUNCTION-POINTER, USAGE * * PROCEDURE-POINTER,USAGE OBJECT-REFERENCE * * data items, or if the INITIALIZE statement * * has a REPLACING phrase which does not * * specify all data categories represented by * * data items in the table, then such data * * items can be incorrectly modified by the * * INITIALIZE statement. * * * **************************************************************** * PROBLEM DESCRIPTION: Incorrect output. The above * * INITIALIZE statements would change more * * fields than they were supposed * * to. The fields that should not have * * been changed (i.e., FILLER, USAGE * * INDEX, USAGE POINTER, USAGE * * FUNCTION-POINTER, USAGE * * PROCEDURE-POINTER, and USAGE * * OBJECT-REFERENCE fields) may be set to * * arbitrary values instead of maintaining * * the values they possessed prior to the * * INITIALIZE statement being executed. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** INITIALIZE statement processing was enhanced in a previous PTF to improve performance but this introduced a problem whereby certain categories of data that were not supposed to be modified during INITIALIZE processing could be inadvertently modified.
Problem conclusion
The compiler was updated so that the improved performance of INITIALIZE is preserved but the categories of data that should not be modified by INITIALIZE now maintain their pre-INITIALIZE values during INITIALIZE processing.
Temporary fix
Comments
APAR Information
APAR number
PI50882
Reported component name
ENT COBOL FOR Z
Reported component ID
5655W3200
Reported release
510
Status
CLOSED PER
PE
YesPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2015-10-20
Closed date
2015-10-30
Last modified date
2015-12-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
PI50960 UI32598 UI32599
Modules/Macros
IGYEJA$0 IGYEJA$1 IGYEJA$3 IGYEJA$5 IGYFFIB IGYFFIB1 IGYGCNTL IGYKCNTL IGYKSTAT IGYLLIBO IGYNDATA IGYPINIT IGYPINI2 IGYPINSP IGYPSRVE IGYPTEXT IGYPTMGT IGYQPR15 IGYSCNTL IGYSITEM IGYWCNTL IGYWSYM
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655W3200
Applicable component levels
Fix is available
Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"5.1","Edition":"","Line of Business":{"code":"LOB17","label":"Mainframe TPS"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"5.1","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
02 December 2015