PH47372: ADD NEW FEATURE "PERFORM ... UNTIL EXIT" FROM COBOL 2014 STANDARD

Obtain the fix for this APAR.

APAR status

• Closed as new function.

Error description

• Add new feature "PERFORM ... UNTIL EXIT" from COBOL 2014
  Standard
  ADDITIONAL SYMPTOMS:
  Add new feature "PERFORM ... UNTIL EXIT" from COBOL 2014
  Standard
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6.3 who would     *
  *                 like to use the new feature of COBOL V6.4,   *
  *                 PERFORM ... UNTIL EXIT.                      *
  ****************************************************************
  * PROBLEM DESCRIPTION: PERFORM ... UNTIL EXIT was added to     *
  *                      COBOL V6.4, but not yet to COBOL V6.3   *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  The 2014 COBOL Standard added a new feature of PERFORM with
  UNTIL where users could specify EXIT as the 'condition'.
  If the until-phrase with the EXIT reserved word is specified,
  execution proceeds exactly as if the same PERFORM statement
  were coded with condition-1 specified, except that condition-1
  never evaluates as true.
  Note:  When UNTIL EXIT is specified, it is the programmers
  responsibility to ensure that an escape from the PERFORM
  loop will be reached. For an inline PERFORM, this can be
  done by an EXIT PERFORM (but not EXIT PERFORM CYCLE)
  statement. For an out-of-line PERFORM this can be done by
  a GOBACK or STOP statement. The programmer must take care
  that the escape statement that they use does actually
  escape the PERFORM loop. Several statements might appear
  to do so, but dont actually escape the loop.
  For example, an EXIT PARAGRAPH (from a performed paragraph)
  or an EXIT SECTION (from a performed section) do not escape
  a PERFORM with the UNTIL EXIT phrase.
  The UNTIL EXIT phrase must not be specified with the TEST
  BEFORE or TEST AFTER phrase nor with the PERFORM with
  VARYING phrase.
  

Problem conclusion

Temporary fix

Comments

• This APAR adds the new syntax PERFORM ... UNTIL EXIT to COBOL
  V6.3 according to the rules in the 2014 COBOL Standard.
  

APAR Information

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

• 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 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
  IGYQCB   IGYQCBE  IGYQCBG  IGYQSPLT IGYTCARA IGYTSALE IGYZQEN6
  IGYZQENU IGYZQJP6 IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R630 PSY UI81630

     UP22/07/29 P F207

• R631 PSY UI81631

     UP22/07/29 P F207

• R632 PSY UI81632

     UP22/07/29 P F207

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.