Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to retrieve system timestamp?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
dejunzhu

Active User


Joined: 08 May 2008
Posts: 390
Location: China

PostPosted: Fri Aug 24, 2012 6:28 am    Post subject: How to retrieve system timestamp?
Reply with quote

Provided there is no DB2 installed, I want to retrieve 26bytes system timestamp in cobol program, how to do it ?

we all know that if DB2 is avaible, we can issue below statement to retrieve it.
Code:
SELECT CURRENT TIMESTAMP FROM SYSIBM.SYSDUMMY1
.

I know CICS statement can do this , but its precision does not meet my requirement. the system timestamp should have the same precison with that retrieved by DB2.
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7913
Location: Bellevue, IA

PostPosted: Fri Aug 24, 2012 7:28 am    Post subject:
Reply with quote

First question: just how precise does your time value need to be? LE callable service goes to thousandths of a second. If you need more precision than that, you are pretty much going to have to code up an assembler routine to grab the time, since neither COBOL nor LE will get you better precision.
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Fri Aug 24, 2012 7:47 am    Post subject: Reply to: How to retrieve system timestamp?
Reply with quote

In Assembler/Batch, you can retrieve a date/time stamp using a sub-program which issues the MVS "TIME" Macro (LINKAGE=SYSTEM) and returns a 10-byte hex-format, one of which is X'CCYYMMDDHHMMSSTHMIJU'. You can then convert this to either packed-decimal or display-numeric.

The "MIJU" portion of this value represents "Milliseconds", "Ten Thousandths", "Hundred Thousandths" and "Microseconds", respectively.

Also in Assembler/Batch, you could use the MVS "STCKCONV" Macro to convert a current or previous "STCK" to several different formats.

The MVS "TIME" Macro or "STCKCONV" Macro should not be used in CICS.

The LE Callable Service routine "CEELOCT" (can be used in both Batch and CICS) returns a 17-byte display-numeric format of C'CCYYMMDDHHMMSSTHM'.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Aug 24, 2012 7:58 am    Post subject:
Reply with quote

Hello,

Quote:
Provided there is no DB2 installed,
I suspect db2 is on the system. . .

Quote:
the system timestamp should have the same precison with that retrieved by DB2.
Why does someone believe that a non-db2 process needs the same "time value" that is returned by db2
Back to top
View user's profile Send private message
ridgewalker58

New User


Joined: 26 Sep 2008
Posts: 51
Location: New York

PostPosted: Fri Sep 07, 2012 8:53 pm    Post subject: Use CICS ASKTIME to give you the milliseconds part
Reply with quote

The CICS command ASKTIME is usually coupled with the FORMATTIME
command to obtain Date and Time (HHMMSS). Prior to issuing the FORMATTIME -- Simply take the LAST 4 digits of the result of the ASKTIME and us it as your millisecond value. Append this to the result of your FORMATTIME


ASKTIME

ABSTIME(data-area)
specifies the data area for the time, in packed decimal, since 00:00 on 1 January 1900 (in milliseconds rounded to the nearest hundredth of a second).
You can use FORMATTIME to change the data into other familiar formats.



Examples

For example, after execution of:



________________________________________________________________________
| |
| EXEC CICS ASKTIME ABSTIME(utime) |
| |
|________________________________________________________________________|


"utime" contains a value similar in format to 002837962864820.
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Fri Sep 07, 2012 11:04 pm    Post subject:
Reply with quote

a DB2 timestamp has the following format 2012-10-02-10.31.48.000001

in a Cobol program you can do the following which will give you the same
but without the dash and periods.
Code:

05 WS-DATE-CURRENT.
  10 WS-DATE-CUR-CCYY.
    15 WS-DATE-CUR-CC         PIC 9(02) VALUE ZEROES.
    15 WS-DATE-CUR-YY         PIC 9(02) VALUE ZEROES.
  10 WS-DATE-CUR-MM           PIC 9(02) VALUE ZEROES.
  10 WS-DATE-CUR-DD           PIC 9(02) VALUE ZEROES.
  10 WS-TIME-CUR-HH           PIC 9(02) VALUE ZEROES.
  10 WS-TIME-CUR-MM           PIC 9(02) VALUE ZEROES.
  10 WS-TIME-CUR-SS           PIC 9(02) VALUE ZEROES.
  10 WS-TIME-CUR-MS           PIC 9(02) VALUE ZEROES.
  10 WS-TIME-LOC-ID           PIC X(01) VALUE SPACES.
  10 WS-TIME-GMT-HR           PIC 9(02) VALUE ZEROES.
  10 WS-TIME-GMT-MM           PIC 9(02) VALUE ZEROES.

MOVE FUNCTION CURRENT-DATE TO WS-DATE-CURRENT
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Fri Sep 07, 2012 11:08 pm    Post subject:
Reply with quote

No, that will not give the same result. The resolution of CURRENT-DATE is only to the centi-second, and the returned string includes the offset of WULT from GMT.

As Mr. Scherrer says, I'd want to know why the application needs the time with microsecond resolution. A reason of "Because that's the requirement" should engender the reply "It's also the requirement that I have a competent team lead".
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Fri Sep 07, 2012 11:11 pm    Post subject:
Reply with quote

and what makes you thing that it will not give the same results.????
the last 3 field the use will just not use, and if they need the dashes and periods the just need to string this into a field that matches the DB2 timestamp layout.
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Fri Sep 07, 2012 11:18 pm    Post subject:
Reply with quote

As you see, I expanded on my objections whilst you were typing your rebuttal.

dejunzhu insists on microsecond resolution. I don't know why he thinks he needs it, but this thread is essentially about ways to get the resolution without using DB2. CURRENT-DATE does not give it to him.
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Fri Sep 07, 2012 11:20 pm    Post subject:
Reply with quote

yes, you are correct in that regards
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Fri Sep 07, 2012 11:33 pm    Post subject:
Reply with quote

banks are the only business that worries
about things happening at the microsecond level
(even though they happen at the sub-nanosecond level).

you know the banker motto:
never pass-up a chance to overdraft.
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Sun Sep 09, 2012 3:26 am    Post subject: Reply to: How to retrieve system timestamp?
Reply with quote

Dejunzhu,

After researching this topic, using the MVS "TIME" Macro, with LINKAGE=SYSTEM, is OK to use in CICS as it uses Cross-Memory Services as opposed to an SVC (LINKAGE=SVC is an SVC 11). With Cross-Memory Services, the usage is a consistent synchronous link, without an interrupt as opposed to the SVC, which will generate an interrupt and can only return a Julian-Date of P'0CYYDDD' and a Time of X'HHMMSSTH', in R1 and R0, respectively.

In the sub-program (must be CICS/Assembler), which is accessed via a LINK-API, the PPT execution key must be CICS and the 16-Bytes of storage used for the Macro, must be GETMAINed using CICSKEY. This GETMAIN is necessary, so that a S0C4 is not raised if "Storage Protection" is active in the SIT. Note that the default KEY for CICS/Assembler Dynamic-Storage (DSECT DFHEISTG) is USER (Key 9), even though the PPT execution key is defined as CICS (Key 8). It is advisable that you issue a FREEMAIN of the 16-byte area before returning to the LINKING program.

Using this Macro, you can then build a TOD stamp and return it to the LINKING program in the commarea as a PIC X(20) VALUE 'CCYYMMDDHHMMSSTHMIJU' as a substitute for the DB2 TOD. Just add edit-characters and you're done.

Code:

03  WS-COMMAREA-TOD PIC X(20).
03  WS-TOD-PATTERN  PIC XXXXBXXBXXBXX.XX.XX.XXXXXX.

MOVE WS-COMMAREA-TOD TO WS-TOD-PATTERN.
MOVE '-'             TO WS-TOD-PATTERN (5:1).
MOVE '-'             TO WS-TOD-PATTERN (8:1).
MOVE '-'             TO WS-TOD-PATTERN (11:1).

The decimals/periods will remain untouched as they are an accepted edit-character in the pattern, but you need to change the 'B' (space) to hyphens.

You'll now have a matching DB2 TOD, as CCYY-MM-DD-HH.MM.SS.THMIJU and so, you're good to go, no muss, no fuss. icon_cool.gif

HTH....
Back to top
View user's profile Send private message
dejunzhu

Active User


Joined: 08 May 2008
Posts: 390
Location: China

PostPosted: Sun Sep 09, 2012 7:24 am    Post subject:
Reply with quote

thank you all.

The main concern of using 'SELECT CURRENT TIMESTAMP FROM SYSIBM.SYSDUMMY1' is the performance. As we know, this SQL
statments costs quite a lot of DB2 resource.

But as an alternative, by calling a subprogram, I suppose the performance is no better than using SQL.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Sun Sep 09, 2012 8:12 am    Post subject:
Reply with quote

your attention is drawn to the last comment of this thread:
http://www.dbforums.com/db2/1627530-select-current-timestamp.html
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Sun Sep 09, 2012 8:17 am    Post subject: Reply to: How to retrieve system timestamp?
Reply with quote

I think we were all under the impression (at least, I was) that you needed a DB2-Like Date/Timestamp because your environment was not DB2? icon_eek.gif

I guess you fooled us again and I'm not very pleased icon_mad.gif

For future posts, please explain your issue a little better. Otherwise, you run the risk of alienating yourself icon_rolleyes.gif
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Sun Sep 09, 2012 10:19 am    Post subject:
Reply with quote

Hi Bill,

Sorry for your frustration. Many of us have been dealing with this kind of question and subsequent dialog from TS for years now and what is most disconserting is they have not improved over time - no matter which part of the forum . . . icon_sad.gif

Quote:
The main concern of using 'SELECT CURRENT TIMESTAMP FROM SYSIBM.SYSDUMMY1' is the performance. As we know, this SQL
statments costs quite a lot of DB2 resource.
What utter nonsense. . . We Do Not know this and neither do you. . . Think about it - there is not even any i/o. Before posting somethng like this, you should have run some timing tests and posted the results showing that this one query actually requires "a lot of db2 resources".

I suspect that unless you issue millions and millions of these in a very short time-frame, it will be difficult to actually measure . . .

We can only hope that a really good group of testers are involved with meticulous function testing and high volume testing to have a chance of this not doing something very destructive with the client's customer's money - this being a banking system if we understand correctly.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Sun Sep 09, 2012 12:06 pm    Post subject: Reply to: How to retrieve system timestamp?
Reply with quote

Quote:
Otherwise, you run the risk of alienating yourself

he already did icon_cool.gif just look at his post history

is there any reason to waste everybody' s time with useless speculation on a foggy requirement ???

first the TS tells than there is no DB2 installed/available
then the TS is concerned about performance

Quote:
Quo usque tandem abutere, Catilina, patientia nostra? quam diu etiam furor iste tuus nos eludet? quem ad finem sese effrenata iactabit audacia?

from the original latin as per
http://www.thelatinlibrary.com/cicero/cat1.shtml

Quote:
How long, O Catiline, will you abuse our patience? And for how long will that madness of yours mock us? To what end will your unbridled audacity hurl itself?

from wikipedia translation ( under fair use clause )

almost time to get rid of the dead wood and ban the gentleman icon_evil.gif
Back to top
View user's profile Send private message
razesh84

New User


Joined: 05 Apr 2010
Posts: 41
Location: Kolkata,India

PostPosted: Mon Sep 10, 2012 2:05 am    Post subject:
Reply with quote

Hi dejunzhu,

If performance is the issue then you can use the below query for the same result

SET :WS-TIMESTAMP = CURRENT TIMESTAMP

I ran both set & select query 10million times under DBv10 but didnt find any difference in CPU but 2-3 years back when we're migrated to v8 from v7 our performance team made it mandatory to not use SYSDUMMY1 or any other dummy-table for such operation.

The reason they gave was 'Since it looks like just another query DB2 optimizer tries to explain this too.thereby not taking full utilization of DB2 registers.'

Note : At that time I was just a fresher & didn't have guts to go against their recommendations.If you feel its performance issue you can test both queries & publish the result.All I want to say that the same thing was also said to me.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Sep 10, 2012 2:17 am    Post subject:
Reply with quote

Hello,

Did you test this before posting? (rhetorical question - obviously it was not tested to meet the required date format).

Please make sure that when you post a suggestion, you have made sure it can do what has been requested. You suggestoin was specifically mentioned as NOT probiding what was wanted.

Thank you, though, for mentioning the results of timing tests - most of us were reasonably sure that the cost would be nearly non-existent icon_smile.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts Check System time(Minute) Using TIME1... balaji81_k DFSORT/ICETOOL 5 Fri Nov 11, 2016 10:53 am
No new posts Get system time in micro second or cl... lind sh CICS 11 Mon Sep 05, 2016 11:14 pm
No new posts Add system date inside of a PS file a... pramitdas DFSORT/ICETOOL 5 Sun Aug 28, 2016 12:06 am
No new posts Need to retrieve Julian_date Suganya87 DB2 4 Wed Aug 17, 2016 7:27 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us