PI90562: IGYPG5125-U IN PHASE ID: "IGYCPGEN"; IGYPG5201-U ERROR CODE "PTEXT-07"

Obtain the fix for this APAR.

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.2         *
  *                 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 is sysrouted FROM one or more of the following:

  PI85886

• APAR is sysrouted TO one or more of the following:

Modules/Macros

• IGY8RWTU IGYCASMB IGYCCBE  IGYCCCRT IGYCCICS IGYCCSRV IGYCDGEN
  IGYCDIAG IGYCDMAP IGYCEN$0 IGYCEN$1 IGYCEN$2 IGYCEN$3 IGYCEN$4
  IGYCEN$5 IGYCEN$8 IGYCEN$D IGYCEN$R IGYCFGEN IGYCFREE IGYCINIT
  IGYCJA$0 IGYCJA$1 IGYCJA$2 IGYCJA$3 IGYCJA$4 IGYCJA$5 IGYCJA$8
  IGYCJA$D IGYCJA$R IGYCLIBH IGYCLIBO IGYCLIBR IGYCLSTR IGYCLVL0
  IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOB2  IGYCOPI
  IGYCOSCN IGYCPGEN IGYCRCTL IGYCRDPR IGYCRDSC IGYCREAL IGYCRWT
  IGYCSCAN IGYCSIMD IGYCUE$0 IGYCUE$1 IGYCUE$2 IGYCUE$3 IGYCUE$4
  IGYCUE$5 IGYCUE$8 IGYCUE$D IGYCUE$R IGYCXREF IGYDRV   IGYEQCWI
  IGYMSGE  IGYMSGK  IGYMSGT  IGYQCBE  IGYSIDEK IGYZQDRV
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R620 PSY UP

     A

• R621 PSY UP

     A

• R622 PSY UI62021

     UP19/03/29 P F903

• R62H PSY UP

     A

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.