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

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 AMODE 64 *
  *                 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:

  UI74573 UI74576

Modules/Macros

• CELQSG04 CELQV004 IGZQAPI  IGZQCDA  IGZQINPL
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7B0 PSY UI74573

     UP21/03/30 P F103

• R7C0 PSY UI74576

     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.