Is it possible to get TIMESTAMP in cobol

vinod71082 · New User Joined: 05 Jul 2007 Posts: 10 Location: chennai

Is it possible to get TIMESTAMP in cobol without using DB2.

Thanks & Regards
Vinod kumar

dbzTHEdinosauer · Posted: Fri Aug 24, 2007 4:59 pm

shreevamsi · Posted: Fri Aug 24, 2007 5:00 pm

Hi,

If you wan to populate time stamp in a WS variable : look at this link
www.ibmmainframes.com/viewtopic.php?t=2402&highlight=currenttime

vinod71082 · New User Joined: 05 Jul 2007 Posts: 10 Location: chennai

hi,
shreevamsi ,i think u didn't understand my question.
timestamp consist of date-time with nano sec . tell me how to get the nano sec using cobol without using DB2.

dick scherrer · Posted: Fri Aug 24, 2007 9:06 pm

Hello,

If you look in the COBOL manual linked to via this site you may find something useful.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/handheld/Connected/BOOKS/igy3lr10/7.1.9?SHELF=&DT=20020920180651&CASE=

lcmontanez · New User Joined: 19 Jun 2007 Posts: 50 Location: Chicago

FYI.... You need to be using Enterprise cobol for function to work.

TG Murphy · Posted: Tue Sep 04, 2007 11:46 pm

The following Assembler macro can be used to generate a DB2-format timestamp.

TIME DEC,RATICKWA,LINKAGE=SYSTEM,
MF=(E,LIST1MAC),DATETYPE=YYYYMMDD

We call Assembler routines (one for batch, one for CICS) that issue this macro and return the DB2 style timestamp.

vasanthkumarhb · Posted: Wed Sep 26, 2007 2:59 pm

Hi TG Murphy, Could you plz Elaborate your answer, how actually This can be used in cobol program?

Thanks....
Vasanth......

dick scherrer · Posted: Wed Sep 26, 2007 8:20 pm

Hello,

An assembler subroutine is called from the COBOL program. The subroutine returns the date in db2 format.

The assembler routine is the macro definition TG posted plus the standard linkage - talk with someone in your organization with basic assembler skills to get the module(s) assembled.

achittu · New User Joined: 26 Feb 2007 Posts: 14 Location: chennai

I have the same requirement now ... is it possible to do this without using ASSEMBLER ?

Craq Giegerich · Posted: Thu Nov 22, 2007 12:17 am

TG Murphy · Posted: Thu Nov 22, 2007 11:23 pm

Craq,

Please tell me about the LE callable routine. What is the "other" site you are referring to?

If this LE routine lets us avoid the assembler then bonus...

TG Murphy · Posted: Thu Nov 22, 2007 11:34 pm

Vasanth,

Do you have someone in your organization that knows Assembler? There are very few of these people left.

I can send you the source code but you'll need someone who knows what to do with it...

Send me a PM to let me know...

dominickim · New User Joined: 28 Feb 2007 Posts: 65 Location: NS, CA

Cobol source from gsf-soft.com/Freeware/

dominickim · New User Joined: 28 Feb 2007 Posts: 65 Location: NS, CA

CVT map
publib.boulder.ibm.com/infocenter/zos/v1r9/index.jsp?topic=/com.ibm.zos.r9.iead100/iea2d180569.htm
and example to access MVS Control Block
supportline.microfocus.com/documentation/books/mx25sp1/cocblk.htm

Phrzby Phil · Posted: Fri Nov 23, 2007 7:36 am

If you just want the date/time, with the time resolution as precise as the ACCEPT TIME verb:

ACCEPT DATE
ACCEPT TIME
ACCEPT DATE again into a different variable

If both dates are =, then you've got it.

Otherwise, ACCEPT TIME again, as midnight occurred between the first two ACCEPTs.

Rudimentary, but is this OK?

Phrzby Phil · Posted: Fri Nov 23, 2007 7:44 am

Correction: Midnight may have occurred between the first two ACCEPTs, but certainly occurred between the two ACCEPT DATEs.

joepie meloenie · New User Joined: 28 Nov 2007 Posts: 4 Location: amstelveen

far too difficult....

Here an example to build a db2-look alike timestamp without using sql:

Phrzby Phil · Posted: Thu Nov 29, 2007 2:43 am

But this won't work under COBOL's that do not have FUNCTION.

joepie meloenie · New User Joined: 28 Nov 2007 Posts: 4 Location: amstelveen

so I guess you don't work on the mainframe.....

Also all modern cobol's do have that.....

but.. if you don't have it, of course you can work with accept.... but take care about the ghosthour trouble.... so.... be sure that the date does not change between the moment you accept the date, after that the time and after that verify that the date has not changed.....

http://www.ghost-transaction.com/

Phrzby Phil · Posted: Thu Nov 29, 2007 7:30 am

That is in fact exactly what my earlier code (with subsequent correction) does. Did you read it?

That some users of this website in fact are using COBOL II makes my suggested code, and later comment, relevant to this group of users.

Certainly the FUNCTION approach is preferred if you have it.

BTW - I have been using IBM 360 etc. series since 1966.

I don't claim to have the answer, but am willing to look for it and assume another person's approach is a good one in certain circumstances.

joepie meloenie · New User Joined: 28 Nov 2007 Posts: 4 Location: amstelveen

Congratulations. You are a Dino..... :-)

Perhaps you should point the cobol-2 users to Gilbert Saint-flour sources with for example cob2job that also provides micro-seconds.