A fix is available
APAR status
Closed as program error.
Error description
When the ('YYYYMMDDThhmmss.sssssssssZ') parameter is used, the function formatted-current-date is returning the LPAR system time and not UTC time.
Local fix
BYPASS/CIRCUMVENTION: None RECOVERY ACTION: Apply PTF
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL 6.3 and later * * releases running programs which use * * intrinsic function FORMATTED-CURRENT-DATE * * with input containing a basic UTC time * * format with fractional-seconds, for * * example, hhmmss.ssssZ. * **************************************************************** * PROBLEM DESCRIPTION: Intrinsic function * * FORMATTED-CURRENT-DATE produces current * * local time instead of current UTC time * * when the input contains a basic UTC * * time format with fractional-seconds. * **************************************************************** * RECOMMENDATION: Install the provided PTF. * **************************************************************** When a basic UTC time format with fractional-seconds is specified as part of the input to intrinsic function FORMATTED-CURRENT-DATE, the COBOL Runtime does not convert the current local time to current UTC time. COB0603T/K COB0604T/K
Problem conclusion
The COBOL Runtime logic for processing FORMATTED-CURRENT-DATE was corrected to convert current local time to current UTC time when the input contains a basic UTC time format with fractional-seconds.
Temporary fix
Comments
APAR Information
APAR number
PH57228
Reported component name
ENT COBOL FOR Z
Reported component ID
5655EC600
Reported release
7E0
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2023-09-28
Closed date
2023-10-23
Last modified date
2023-11-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI94124 UI94125 UI94126
Modules/Macros
CEESG004 CELQSG04 CELQV004 IGZ1OPT IGZ2OPT IGZ3OPT IGZ4OPT IGZ5OPT IGZ6OPT IGZACALL IGZBALCT IGZCER4 IGZCEV4 IGZCJNI2 IGZCMGEN IGZCMGUE IGZEDCCT IGZIBMCT IGZIGZCT IGZLLIBV IGZQAPI IGZQCA64 IGZQCDA IGZQINPL IGZQJNI2 IGZWUXOI IGZX2BIN IGZX2HEX IGZX2LW IGZX2LW8 IGZX2LWU IGZX2UP IGZX2UP8 IGZX2UPU IGZXACP IGZXACS IGZXACS1 IGZXACS2 IGZXAIO IGZXALOC IGZXANE IGZXANE1 IGZXANE2 IGZXAPI IGZXAPS IGZXBIO IGZXBS61 IGZXBSP IGZXBSP1 IGZXBSP2 IGZXBSP3 IGZXBSP4 IGZXBSP5 IGZXBST IGZXBST1 IGZXBST2 IGZXBST3 IGZXBST4 IGZXBST5 IGZXBU1L IGZXBU1P IGZXBU1R IGZXBU1S IGZXBU1V IGZXBU1W IGZXBU2L IGZXBU2P IGZXBU2R IGZXBU2S IGZXBU2V IGZXBU2W IGZXBUI4 IGZXCA31 IGZXCANC IGZXCDA IGZXCDT IGZXCFGU IGZXCFIG IGZXCKP IGZXCLDB IGZXCLKA IGZXCLN IGZXCLS IGZXCMDT IGZXCMSG IGZXCRST IGZXD24 IGZXD2F IGZXDACS IGZXDASN IGZXDATE IGZXDATN IGZXDAYS IGZXDCAL IGZXDCOS IGZXDCS2 IGZXDCSU IGZXDEA IGZXDED IGZXDER IGZXDIVZ IGZXDLG1 IGZXDLOG IGZXDMOD IGZXDMR IGZXDMSG IGZXDPOW IGZXDPW1 IGZXDSIN IGZXDSP IGZXDSQT IGZXDTAN IGZXDYWK IGZXE2E IGZXE2EN IGZXE2H IGZXE2N IGZXE2N2 IGZXEXT IGZXF2D IGZXF2D1 IGZXF2I IGZXFAC IGZXFBIN IGZXFCAL IGZXFCDT IGZXFDT IGZXFDTM IGZXFHEX IGZXFPC1 IGZXFPW IGZXFREE IGZXFRST IGZXFTM IGZXFWSA IGZXGDR0 IGZXGDR1 IGZXGDR2 IGZXGFI IGZXGMTO IGZXGTST IGZXH2E IGZXIDB IGZXIFDT IGZXII2 IGZXINSP IGZXJGF IGZXJNI2 IGZXJPI IGZXLCLS IGZXLOCT IGZXLOPN IGZXLPIO IGZXLPKA IGZXLPKB IGZXLPKC IGZXLPKD IGZXLPKE IGZXLPKF IGZXLPKG IGZXMED IGZXMEDQ IGZXMFIG IGZXMSG IGZXMVU8 IGZXNE2N IGZXNE3N IGZXNMV IGZXNMVC IGZXNMVF IGZXNMVQ IGZXNVCQ IGZXNVFQ IGZXOPT IGZXPK2 IGZXPPL IGZXPR2 IGZXPRC IGZXPRS IGZXPRV IGZXPRVQ IGZXQACS IGZXQASN IGZXQATN IGZXQCLS IGZXQCOS IGZXQLG1 IGZXQLOG IGZXQMOD IGZXQOPN IGZXQPOW IGZXQPW1 IGZXQSIN IGZXQSQT IGZXQTAN IGZXQXPQ IGZXRAND IGZXRAS1 IGZXRAS2 IGZXRAS4 IGZXRAS5 IGZXRAS6 IGZXRAS7 IGZXRAS8 IGZXRAS9 IGZXRES1 IGZXRES2 IGZXRES3 IGZXRES4 IGZXRES5 IGZXRES6 IGZXRES7 IGZXRES8 IGZXRES9 IGZXREV IGZXREVT IGZXREVU IGZXRT1 IGZXRTN IGZXSCC1 IGZXSCC2 IGZXSCH IGZXSFFT IGZXSGL IGZXSM0 IGZXSM1 IGZXSM2 IGZXSM3 IGZXSM4 IGZXSM5 IGZXSM6 IGZXSMSG IGZXSPA IGZXSPMT IGZXSRT IGZXSRV IGZXSTD IGZXSTDQ IGZXSTG IGZXSXPQ IGZXTDTM IGZXTMSG IGZXTNMV IGZXTNVC IGZXTNVF
Fix information
Fixed component name
LE ENT COBOL LI
Fixed component ID
568819812
Applicable component levels
R7C0 PSY UI94124
UP23/11/01 P F310
R7D0 PSY UI94125
UP23/11/01 P F310
R7E0 PSY UI94126
UP23/11/01 P F310
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.
[{"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":"7E0","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
02 November 2023