PH15374: At OPT(>0) a paragraph exit branches to itself, creating an infinite loop

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• The LIST option output will show something like:
  
      000289  PARA-EXIT: EQU     *
      000289             J       PARA-EXIT
  

Local fix

• Use OPT(0)
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL compiling programs *
  *                 at OPT(1|2) with paragraphs PERFORMed        *
  *                 multiple times where the conditions for      *
  *                 every PERFORM statement for that paragraph   *
  *                 first check a condition with multiple true   *
  *                 values and then check a condition that is    *
  *                 always false, so the PERFORM never gets      *
  *                 executed.                                    *
  ****************************************************************
  * PROBLEM DESCRIPTION: Program loops endlessly.                *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  When removing the condition that was always false, the optimizer
  corrupted its internal status, incorrectly making the PERFORM
  statement be treated as unreachable. The optimizer redirected
  the end of the PERFORM to itself, creating an endless loop.
  

Problem conclusion

• The compiler was changed to correct its internal status so that
  the PERFORM statement remained reachable, causing the program
  to execute correctly.
  

Temporary fix

Comments

APAR Information

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

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

  PH16559

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 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  IGYZQDRV IGYZQENU IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R620 PSY UI65366

     UP19/09/21 P F909

• R621 PSY UI65367

     UP19/09/21 P F909

• R622 PSY UI65368

     UP19/09/21 P F909

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.