A fix is available
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 number
PH34771
Reported component name
LE ENT COBOL LI
Reported component ID
568819812
Reported release
7C0
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2021-02-23
Closed date
2021-03-23
Last modified date
2021-04-02
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
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.
[{"Line of Business":{"code":"LOB17","label":"Mainframe TPS"},"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"7C0"}]
Document Information
Modified date:
03 April 2021