PH25373: COBOL NOT HONORING PRINTER CONTROL CHAR USING ADV

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Cobol not honoring printer control char using ADV
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V5 and later       *
  *                 releases running programs that use DISPLAY   *
  *                 statements with the WITH NO ADVANCING        *
  *                 phrase, and its output are sent to a         *
  *                 sequential dataset or to a member of a PDS.  *
  ****************************************************************
  * PROBLEM DESCRIPTION: The "+" ASA printer control character   *
  *                      of the DISPLAY statement is missing     *
  *                      when there are other DISPLAY statements *
  *                      in the program using the WITH NO        *
  *                      ADVANCING phrase. The erroneous         *
  *                      DISPLAY may or may not have the WITH    *
  *                      ADVANCING phrase specified.             *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  The internal state of the COBOL runtime DISPLAY routine becomes
  incorrect after processing a WITH NO ADVANCING phrase. This
  causes the current and subsequent DISPLAY statements in the
  program get incorrect ASA printer control characters.
  
  COB0501T/K COB0502T/K COB0601T/K COB0602T/K COB0603T/K
  

Problem conclusion

• The logic of the COBOL runtime has been fixed to output the ASA
  printer control character 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:

Modules/Macros

• IGZ3OPT  IGZ4OPT  IGZCEV4  IGZLLIBV IGZXAPI  IGZXCDA  IGZXD24
  IGZXDMR  IGZXLPIO IGZXLPKA IGZXLPKB IGZXLPKC IGZXLPKD IGZXLPKE
  IGZXLPKF IGZXLPKG IGZXOPT  IGZXPK2
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7A0 PSY UI70070

     UP20/06/23 P F006

• R7B0 PSY UI70075

     UP20/06/23 P F006

• R7C0 PSY UI70076

     UP20/06/23 P F006

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.