IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Capturing Time in Millisecond level in CICS


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
ashimprodhan

New User


Joined: 08 Dec 2006
Posts: 12
Location: Kolkata

PostPosted: Wed Feb 11, 2009 11:11 am
Reply with quote

Hi Team,

I am using C~CICS, How can I retrieve the time in millisecond level in C language. Please give some examples/ inbuilt functions.

Regrads,

Ashim
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Wed Feb 11, 2009 3:40 pm
Reply with quote

Code:
EXEC CICS ASKTIME ABSTIME(field)

EXEC CICS FORMATTIME ABSTIME(field)
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Thu Feb 12, 2009 12:58 am
Reply with quote

I think Ashim is seeking the C equivalent of the CICS functions.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu Feb 12, 2009 3:07 am
Reply with quote

In C, use EXEC CICS ASKTIME ABSTIME(field) to return the 8-byte unsigned character variable field. Call a COBOL or Assembler subroutine that takes this packed decimal field and unpacks it into a 15-byte unsigned character field (which is PIC 9(15) in COBOL). The EXEC CICS FORMATTIME formats the hours, minutes, and seconds. The returned value from the subroutine call provides the milliseconds. However, be aware that the milliseconds are rounded to the nearest 10 (i.e., hundredths of a second) by CICS.
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


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

PostPosted: Thu Feb 12, 2009 3:37 am
Reply with quote

If your C~CICS program is LE enabled, then issue a call to the LE Callable Service routine "CEELOCT", which will return the current-date as an 8-byte value of CCYYMMDD and the current-time as a 9-Byte value of HHMMSSTHM, with the last 3-Bytes representing tenths, hundreths and milliseconds.

Regards,
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts How to load to DB2 with column level ... DB2 6
No new posts To get the the current time DFSORT/ICETOOL 13
No new posts RC query -Time column CA Products 3
No new posts Capturing Job Execution Information All Other Mainframe Topics 3
Search our Forums:

Back to Top