A fix is available
APAR status
Closed as program error.
Error description
The following messages are received during WHEN processing of an 'Evaluate Function': IGYPG5125-U The compilation was terminated due to a compiler error in phase id: "IGYCPGEN". IGYPG5201-U Internal compiler error code "PTEXT-07" occurred.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Users of COBOL Enterprise COBOL V6.1 * * compiling programs that contain an EVALUATE * * statement with a reference-modified * * alphanumeric function and a subscripted * * reference within the body of the EVALUATE * * statement. * * * **************************************************************** * PROBLEM DESCRIPTION: Compiler ABORT: The compiler ABORTs * * with the following messages: * * IGYPG5125-U The compilation was * * terminated due to a compiler error in * * phase id: "IGYCPGEN". IGYPG5201-U * * Internal compiler error code * * "PTEXT-07" occurred. * * * * The following example illustrates * * the problem: * * Evaluate Function Upper-case(parm- * * string(1:parm-len)) * * When 'DOR1' * * DISPLAY 'DOR1' * * When 'DOR2' * * DISPLAY 'DOR2' * * When 'DOR3' * * DISPLAY 'DOR3' * * When 'JM1' * * DISPLAY 'JM1' * * DISPLAY HWTH-HTTPHEADER-VALUE * * (1) * * When 'JM2' * * DISPLAY 'JM2' * * When * * other * * DISPLAY 'OTHER' * * End-Evaluate * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** When an EVALUATE subject is a reference modified alphanumeric function, the temporary that contains the result is being effected by the subscripted temporary that is created for a subscripted reference in the EVALUATE statement.
Problem conclusion
The compiler was modified to separate the mechanism of saving the reference-modified function temporary of an EVALUATE subject from the generalized reference-modification and subscripting mechanism.
Temporary fix
Comments
APAR Information
APAR number
PI86007
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
2017-08-16
Closed date
2017-08-18
Last modified date
2018-08-21
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGYCINIT
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655EC600
Applicable component levels
R610 PSY UI49694
UP17/08/25 P F708
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