PH34381: Intrinsic function TEST-FORMATTED-DATETIME should recognize a zero in the day field as invalid input

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Dates like 2021-01-00 are not recognized as having an invalid
  day.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6.3 with programs *
  *                 that use the TEST-FORMATTED-DATETIME         *
  *                 intrinsic function.                          *
  ****************************************************************
  * PROBLEM DESCRIPTION: Intrinsic function                      *
  *                      TEST-FORMATTED-DATETIME                 *
  *                      does not recognize a zero in the day    *
  *                      field as invalid input.                 *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  Intrinsic function TEST-FORMATTED-DATETIME does not recognize a
  zero in the day field as invalid input. For example, if the
  following input is provided TEST-FORMATTED-DATETIME('YYYYMMDD',
  '20210300'), it should return a value of 8, indicating the 8th
  character is erroneous. Prior to the fix, call to this function
  with the above input returns 0 indicating the date value is
  valid when it is not.
  
  COB0603T/K
  

Problem conclusion

• The TEST-FORMATTED-DATETIME processing in the COBOL Runtime has
  been corrected. With the correction, calls to function
  TEST-FORMATTED-DATETIME with inputs that contain
  date values with a zero in the day field no longer return a 0
  value.
  

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

• IGZBALCT IGZCER4  IGZCEV4  IGZCMGEN IGZCMGUE IGZEDCCT IGZIBMCT
  IGZIGZCT IGZLLIBV IGZXAPI  IGZXCDA  IGZXD24  IGZXDMR  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 UI74556

     UP21/03/30 P F103

• R7C0 PSY UI74561

     UP21/03/30 P F103

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.