Time in Miliseconds

[Matzi]

Hello,

I'm searching for a function or program routine, which
returns time in miliseconds or microseconds.
The programs are running on a B2000-Host (Fujitsu; not IBM or CICS; no UNIX).
The Function CURRENT-DATE resolves to hundredths of a second, and unfortunately no finer.

Thank you very much

Matzi

 

[mikrom]

With CURRENT-DATE you get only hundreds of seconds.
But if you are working with SQL-database, you can retrieve it from it.

I'm working with DB2, so I'm using in COBOL embedded SQL - something like this:

...
       WORKING-STORAGE SECTION.
      * copy SQLCA
           EXEC SQL
             INCLUDE SQLCA
           END-EXEC.

       01 ZW-FELDER.
      *   DATE, TIME and TIMESTAMP datatypes
          05 ZW-TIMESTAMP             FORMAT OF TIMESTAMP.  

...
       PROCEDURE DIVISION.
...
       AKT-DATUM-ZEIT-ERMITTELN.
      *    Selecting 26-character DB2-TimeStamp
           EXEC SQL
             SET :ZW-TIMESTAMP = CURRENT TIMESTAMP
           END-EXEC
      *    or alternatively
      *    EXEC SQL
      *      SELECT CURRENT TIMESTAMP INTO :ZW-TIMESTAMP
      *      FROM SYSIBM/SYSDUMMY1
      *    END-EXEC

...

This delivers me a current timestamp in this format

ZW-TIMESTAMP = '2011-12-16-11.44.05.671308'

from which I can extract the time needed.

 

[Matzi]

Hello mikrom,

thank you very much.
That is the solution.

Only the SQL-function is different, because we work with ORACLE :

SELECT SYSTIMESTAMP INTO :ZW-TIMESTAMP FROM DUAL

Matzi

 

[mikrom]

Hi Matzi,

IMHO, using SQL timestamp is the simplest way to go, however in my practice I never needed thousands of seconds: the hundreds delivered by the COBOL intinsic function CURRENT-DATE were adequate.

I have experience only with DB/2: I thought that CURRENT TIMESTAMP is SQL standard and wondered how an SQL-function can consist of 2 words. Now I know that it isn't standard, when Oracle has SYSTIMESTAMP function for it.

 

[PHV]

The ANSI SQL standard is the LOCALTIMESTAMP function.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[jmanj]

In the old days I used to create DATETIME routines which get the differences between two dates(for aging-trial balances), get days of the week or months, etc. The routines are basically used for cobol machines that does not have intrinsic functions like Tandem. It's just a simple trick of converting date/time into microseconds.