A fix is available
APAR status
Closed as program error.
Error description
Correct Compiler to identify and disallow reference modification of SET ADDRESS OF identifier-5 as documented in the COBOL Language Reference Guide. The Language Reference documentation states that identifier-5 must not be reference-modified: SET ADDRESS OF identifier-5(1:parm-len) TO Format 5: SET statement for data-pointers .------------------------------. V | >>-SET----+-identifier-4-------------+-+------------------------ > '-ADDRESS OF--identifier-5-' >--TO--+-identifier-6-------------+----------------------------> < +-ADDRESS OF--identifier-7-+ +-NULL---------------------+ '-NULLS--------------------'
Local fix
Do not code identifier-5 with referenced modified.
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V6.1 compiling * * programs that contain SET ADDRESS OF * * identifier statements with reference * * modified operands. * * * **************************************************************** * PROBLEM DESCRIPTION: Missing diagnostic message: The * * compiler does not issue an error * * message when compiling a SET ADDRESS * * OF statement with an identifier that * * is reference modified. The COBOL * * Language Reference Manual states * * clearly that the SET ADDRESS OF * * identifier can not be reference * * modified. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** The compiler did not issue a diagnostic message when processing the statement SET ADDRESS OF identifier that is reference modified.
Problem conclusion
The compiler was modified to issue a severe error message when compiling a SET ADDRESS OF identifier statement when the identifier is reference modified.
Temporary fix
Comments
APAR Information
APAR number
PI63283
Reported component name
ENT COBOL FOR Z
Reported component ID
5655EC600
Reported release
610
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2016-05-30
Closed date
2016-06-15
Last modified date
2016-07-04
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGYCRCTL
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655EC600
Applicable component levels
R610 PSY UI38707
UP16/06/17 P F606
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":"BU048","label":"IBM Software"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"6.1","Edition":"","Line of Business":{"code":"LOB70","label":"Z TPS"}}]
Document Information
Modified date:
05 September 2024