A fix is available
APAR status
Closed as program error.
Error description
When using one of the Zulu formats like "hhmmssZ" to format local time as the equivalent UTC time, FUNCTION FORMATTED-TIME adds the argument-3 UTC offset to the local time instead of subtracting it. (Unlike TZ usage, the UTC offset is positive east of the prime meridian, and negative west of it.)
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL 6.3 and later * * releases running AMODE 64 programs that use * * the FORMATTED-TIME intrinsic function. * **************************************************************** * PROBLEM DESCRIPTION: FORMATTED-TIME with a UTC offset value * * (argument-3) calculates UTC time * * incorrectly. * **************************************************************** * RECOMMENDATION: Install the provided PTF. * **************************************************************** There is a logic error in the FORMATTED-TIME with a UTF offset value (argument-3) when calculating the UTC time. It currently adds the UTC offset to a time. The UTC offset should be subtracted. COB0603T/K
Problem conclusion
The error in the COBOL runtime library FORMATTED-TIME routine has been corrected.
Temporary fix
Comments
APAR Information
APAR number
PH42233
Reported component name
LE ENT COBOL LI
Reported component ID
568819812
Reported release
7D0
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2021-11-19
Closed date
2021-12-09
Last modified date
2022-01-04
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI78477 UI78481 UI78482
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 UI78477
UP21/12/15 P F112
R7C0 PSY UI78481
UP21/12/15 P F112
R7D0 PSY UI78482
UP21/12/15 P F112
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":"LOB35","label":"Mainframe SW"},"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":"7D0"}]
Document Information
Modified date:
05 January 2022