RE: %timestamp ??

You could also create a utility program (or put it in a service program) the 
code to return the full timestamp in an SQLRPGLE then just have your RPG call 
the program or module.  You'll likely have to return the timestamp in a 
character variable in order to capture the full timestamp then in your RPG 
convert the string to a true timestamp (unless you are storing the "timestamp" 
as numeric or character) but you get the idea of what to do.  This will remove 
the need to change all your RPGLE to SQLRPGLE. 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On 
Behalf Of Michael Ryan
Sent: Tuesday, November 21, 2006 8:24 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: %timestamp ??

I have a general style type question, and I may be off base...please correct
me if I am.

I agree that it's a cool thing to have all 6 microseconds filled in. But to
do that, now I need to make my program SQLRPGLE rather than RPGLE, correct?
And now editing doesn't work as well in WDSc. And unless I'm at V5R4, I have
to use fixed format for the SQL statements (yes, I know the goodness of
subroutines).

I wish I didn't have to make my program SQLRPGLE to use embedded SQL. Does
WDSc work better with free format SQL in V5R4, at least in terms of the
temporary file and the event logging?

On 11/21/06, Johnny Johnson <jjohnson@xxxxxxxxxxxx> wrote:

I've asked for two years if there was a way to get all six digits filled
in
the timestamp, and alas I have found it.  I've needed this on several
occasions.
Birgitta...You are my hero.






             "HauserBirgitta"
             <Hauser@SSS-Softw
             are.de>                                                    To
             Sent by:                  "RPG programming on the AS400 /
             rpg400-l-bounces@         iSeries" <rpg400-l@xxxxxxxxxxxx>
             midrange.com                                               cc

                                                                   Subject
             11/20/2006 11:53          Re: %timestamp ??
             PM


             Please respond to
              RPG programming
              on the AS400 /
                  iSeries
             <rpg400-l@midrang
                  e.com>






Hi,

the RPG built-in-function %TimeStamp() only fills and uses only the first
3

digits of the microseconds. If you need all six digits, you should use the
SQL special value CURRENT_TIMESTAMP.

C/EXEC SQL   Set :MyTimeStamp = Current_TimeStamp
C/End-Exec

Mit freunlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)




----- Original Message -----
From: "Barbara Morris" <bmorris@xxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Tuesday, November 21, 2006 04:09
Subject: Re: %timestamp ??

Jim Wiant wrote in MIDRANGE-L Tue, 21 Nov 2006:

I usually use MyTimeStamp = %DATE + %TIME and that gives me the current
time (doesn't get the milliseconds though)

Hi Jim, much safer to use MytimeStamp = %TIMESTAMP.

If you also need the matching date and time, you could then do
  MyDate = %DATE(MyTimeStamp);
  MyTime = %TIME(MyTimeStamp);

Doing %DATE and %TIME separately, you might do the %DATE one side of
midnight and the %TIME the other side of midnight, giving you 24 hours
too early, say
  2006-10-20-00.00.01
rather than either
  2006-10-20-23.59.59
  2006-10-21-00.00.01

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.




--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.