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

  PI85886

• 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.