IBM Support

PH57228: FORMATTED-CURRENT-DATE DOES NOT RETURN UTC TIME BUT RETURNS LOCAL TIME IF FRACTIONAL EXTENDED UTC TIME FORMAT IS USED

A fix is available

Subscribe

You can track all active APARs for this component.

 

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