JES2 JOB log output: ------------------- +Assembler calling LE/370 returns: 23:40:34 (Local Time) +Assembler (non-LE) returns: 23:40:40 (via TIME SVC option - DEC option) +Assembler (non-LE) returns: 05:40:40 (via STCK) +Assembler (non-LE) returns: 23:40:40 (after STCK is converted via CVT TimeZone) +C/C++ returns: 23:41:30 via strftime/%T +LE/COBOL returns: 23:41:36 +PL/I returns: 23:41:40 +PL/I returns: 23:41:47 +CLIST returns: 23:41:48 userid: IBMUSER +REXX returns: 23:41:50 userid: IBMUSER +ISPF returns: 23:41:54.14 userid: IBMUSER Note: This system doesn't have FORTRAN compiler, SAS or EasyTrieve but I found a system that did that they got the expected local time. Execution output to file: ------------------------ Assembler calling LE/370 -------------------------- Calling CEELOCT (Local) returns: 20000221234034938 - Time Formated: 23:40:34 Calling CEEGMTO returns: hours=FFFFFFFA min=00000000 sec=C454600000000000 Environment information: - Date Assembled...........2000-02-21 - Assembler version........1.3.0 Assembler (Non-LE) -------------------------------- TIME macro returns: 23404095 - Formatted: 23:40:40 (local) STCK returned: B3A2C561 434F5F00 for local time STCK - STCKCON macro returns: 0540409541010000 - Formatted: 05:40:40 (local) STCK converted to: B3A274E9 E5CF5F00 for GMT time STCK - STCKCON macro returns: 2340409541010000 - Formatted: 23:40:40 (GMT) STCKE returned: xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx for local time STCKE - STCKCON macro returns: xxxxxxxxyyyyyyyy - Formatted: hh:mm:ss (local) Environment information: - Date Assembled...........2000-02-21 - Assembler version........1.3.0 C/C++ --------------------------------------------- strftime via option %T returns: 23:41:30 localtime() and asctime() returns: Mon Feb 21 23:41:30 2000 IDate::today() w/asString('%c') returns: 00/02/21 00:00:00 IDate::today() w/asString('%H:%M:%S') returns: 00:00:00 0 Environment information: - Date Compiled............Feb 21 2000 - Time Compiled............23:41:08 - Compiler.................22060 PVRRM LE/COBOL ------------------------------------------ "ACCEPT Time" returns: 23413670 - Formated: 23:41:36 HHMMSSTH - - - Environment information: - Date Compiled............20000221 yyyymmdd 1PL/I ---------------------------------------------- DATETIME() returns: 20000221234140982 yyyymmddhhmmssttt Date----Time----- Formated time is 23:41:40 1PL/I ---------------------------------------------- DATETIME() returns: 20000221234147041 yyyymmddhhmmssttt Date----Time----- Formated time is 23:41:47 1READY TIMECLST /* Invoke the TIMECLST CLIST */ CLIST---------------------------------------------- &SYSTIME returns: 23:41:48 hh:mm:ss READY END 1READY TIMEREXX /* Invoke the TIMEREXX rexx exec */ REXX ---------------------------------------------- TIME() returns: 23:41:50 TIME(C) returns: 11:41pm TIME(L) returns: 23:41:50.396693 Environment information: - SYSTSOE..................2060 READY END 1ISPF (Batch Rexx exec) ---------------------------- System variable ZTIME returns: 23:41 System variable ZTIMEL returns: 23:41:54.14 Environment information: - ZENVIR...................ISPF 4.5MVS BATCH IBMUSER.IBMUSERG.JOB00321.D0000158.? was preallocated (no free was done). READY END