A fix is available
APAR status
Closed as program error.
Error description
For items in a group after a variable length group, the SYSADATA field described as Parent displacement: Byte offset from immediate parent of the item being defined. is zero, even though this is a well defined and static value.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V5.2 compiling * * with the ADATA compiler option and using * * the Symbol record of the SYSADATA output * * file. * * * **************************************************************** * PROBLEM DESCRIPTION: Incorrect compiler output: SYSADATA * * symbol record field not set: The * * parent displacement field in a * * SYSADATA symbol record is not set for * * a variably-located data item. The * * field is always zero. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** The parent displacement in a SYSADATA symbol record of a variably-located data item was always set to zero.
Problem conclusion
The compiler was changed to set correctly the parent displacement of a variably-located data item in the SYSADATA symbol record.
Temporary fix
Comments
APAR Information
APAR number
PI73551
Reported component name
ENT COBOL FOR Z
Reported component ID
5655W3200
Reported release
520
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2016-12-09
Closed date
2017-01-18
Last modified date
2017-02-07
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
PI76173
Modules/Macros
IGYCRCTL
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655W3200
Applicable component levels
R520 PSY UI44042
UP17/01/27 P F701
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":"520","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":"520","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
07 February 2017