PH40811: FORMATTED-DATE RETURNS THE SAME VALUE FOR JANUARY 1 AND DECEMBER 31ST OF THE SAME YEAR

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Wrong YEAR value is displayed when displaying date in
  YYYY-WWW-DD format
  

Local fix

• None. Apply PTF
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6.3 and later     *
  *                 releases running programs using the          *
  *                 FORMATTED-DATE intrinsic function to         *
  *                 display dates in week-day format             *
  *                 (YYYY-Www-D).                                *
  ****************************************************************
  * PROBLEM DESCRIPTION: The FORMATTED-DATE intrinsic function   *
  *                      returns the same value for January 1st  *
  *                      and December 31st of the same year when *
  *                       the requested output is in week-day    *
  *                       format (YYYY-Www-D).                   *
  ****************************************************************
  * RECOMMENDATION: Install provided PTF.                        *
  ****************************************************************
  There was a logic error in the runtime routine for
  FORMATTED-DATE intrinsic function when the user programmed the
  output to display in week-day format (YYYY-Www-D).
  
  COB0603T/K
  

Problem conclusion

• The logic in the runtime routine for FORMATTED-DATE intrinsic
  function has been corrected to return the correct date in
  week-day format (YYYY-Www-D) for January 1st and December 31st
  of the same year.
  

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

• IGZCER4  IGZCEV4  IGZCMGEN IGZCMGUE IGZLLIBV IGZXAPI  IGZXCA31
  IGZXCDA  IGZXD24  IGZXDMR  IGZXJNI2 IGZXLPIO IGZXLPKA IGZXLPKB
  IGZXLPKC IGZXLPKD IGZXLPKE IGZXLPKF IGZXLPKG IGZXPK2
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7B0 PSY UI77778

     UP21/10/30 P F110

• R7C0 PSY UI77779

     UP21/10/30 P F110

• R7D0 PSY UI77780

     UP21/10/30 P F110

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.