Re: %timestamp ??

Good thoughts...probably the right tack. I just get a bit frustrated with
embedded SQL in V5R3 and earlier...seems to be a bit of a struggle
sometimes. Of course, I've been doing a fair amount of DRDA stuff to a UDB
database, so maybe that's just that frustration coming through.


On 11/21/06, Takken, Cor <cor.takken@xxxxxxxxxxxxx> wrote:

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.

--
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.