PH15203: Diagnose when a GOBACK statement is incorrectly used in an INPUT or OUTPUT procedure to end a SORT or MERGE

Obtain the fix for this APAR.

APAR status

• Closed as new function.

Error description

• In COBOL v5+ the noted usage fails to produce diagnostic
  
  IGZ0012S There was an invalid attempt to end a sort or merge.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V5 and later       *
  *                 releases running programs that use SORT      *
  *                 statement with input or output procedure.    *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: When a COBOL subprogram is executing    *
  *                      SORT with input/output procedure, it    *
  *                      is invalid to have GOBACK statements    *
  *                      within the input/output procedure to    *
  *                      return from the subprogram. This would  *
  *                      interfere with normal SORT processing.  *
  *                      The program would abend, but the COBOL  *
  *                      runtime SORT routine may not be able    *
  *                      to diagnose the invalid usage.          *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  The GOBACK statement within SORT input/output procedure tries to
  terminate SORT processing before it is fully complete. The
  subprogram's forced return may leave the stack in an invalid
  state. The user program would abend, but the COBOL runtime may
  not have sufficient information from the stack to detect the
  condition. Therefore it may not be able to emit a diagnostic
  message.
  

Problem conclusion

Temporary fix

Comments

• Additional logic has been added to the COBOL runtime to recover
  from the damaged stack whenever possible, so that diagnostic
  message IGZ0012 can be emitted to indicate incomplete SORT
  processing.
  This is an enhancement on diagnostic processing, and does not
  affect correct programs.
  

APAR Information

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

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

Modules/Macros

• CELQSG04 CELQV004 HLE77A0J IGZBALCT IGZCEV4  IGZCMGEN IGZCMGJA
  IGZCMGUE IGZEDCCT IGZIBMCT IGZIGZCT IGZLLIBV IGZQCDA  IGZQINPL
  IGZX2LW8 IGZX2UP8 IGZXAPI  IGZXBSP4 IGZXBST4 IGZXCDA  IGZXCFGU
  IGZXD24  IGZXDEA  IGZXDED  IGZXDER  IGZXDMR  IGZXLPIO IGZXLPKA
  IGZXLPKB IGZXLPKC IGZXLPKD IGZXLPKE IGZXLPKF IGZXLPKG IGZXMVU8
  IGZXPK2
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7A0 PSY UI65064

     UP19/09/06 P F909

• R7B0 PSY UI65062

     UP19/09/06 P F909

• R7BJ PSY UI65063

     UP19/09/06 P F909

• R7C0 PSY UI65058

     UP19/09/06 P F909

• R7CJ PSY UI65059

     UP19/09/06 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.