Re: %timestamp ?? -- RPG400-L

You don't need tu change the source type, just put the SQL statement into a
procedure...

----- Original Message ----- 
From: "Michael Ryan" <michaelrtr@xxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Tuesday, November 21, 2006 3:23 PM
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.