RE: %timestamp ??

You would only have to create one single service program, containing a single 
module (which, admittedly is SQLRPGLE) exporting a timestamp. That way you can 
leave all your programs as RPGLE.

Just an idea,

Cor 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx 
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Ryan
Sent: dinsdag 21 november 2006 15:24
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.

--
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 e-mail and any attachment is for authorised use by the intended 
recipient(s) only. It may contain proprietary material, confidential 
information and/or be subject to legal privilege. It should not be copied, 
disclosed to, retained or used by, any other party. If you are not an intended 
recipient then please promptly delete this e-mail and any attachment and all 
copies and inform the sender. Thank you.