Re: Get next Tuesday. Or the one after

[Luis Rodriguez <luisro58@xxxxxxxxx>]

Rob,

This is allowed for me (V5R3, I'm afraid):

 EXEC SQL Set (:Var1,  :Var2) = ('E', 00) ;

Regards,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries
--



On Thu, Sep 30, 2010 at 10:25 AM, <rob@xxxxxxxxx> wrote:

> Nice.  Does that work for multiple returns or should you use VALUES
> instead of SET for that?
>
>
> Rob Berendt
> --
> Group Dekko
> Dept 1600
> Mail to:  2505 Dekko Drive
>          Garrett, IN 46738
> Ship to:  Dock 108
>          6928N 400E
>          Kendallville, IN 46755
> http://www.dekko.com
>
>
>
>
>
> From:   Luis Rodriguez <luisro58@xxxxxxxxx>
> To:     Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
> Date:   09/30/2010 10:19 AM
> Subject:        Re: Get next Tuesday. Or the one after
> Sent by:        midrange-l-bounces@xxxxxxxxxxxx
>
>
>
> An alternative syntax for SQLRPGLE could be:
>
>         EXEC SQL SET :NumReg = week(current date) ;
>
> Regards,
>
> Luis Rodriguez
> IBM Certified Systems Expert — eServer i5 iSeries
> --
>
>
>
> On Thu, Sep 30, 2010 at 9:00 AM, <rob@xxxxxxxxx> wrote:
>
> > The use of sysdummy1 has been deprecated on supported versions of the
> > operating system.  I suggest you use VALUES instead of SELECT for
> > instances when you are tempted to use sysdummy1
> >
> > Replace:
> > select week(current date) from sysibm/sysdummy1
> > With:
> > values week(current date)
> > or in sql rpg
> > exec sql values week(current date) into :WeekNumber;
> >
> >
> > Rob Berendt
> > --
> > Group Dekko
> > Dept 1600
> > Mail to:  2505 Dekko Drive
> >          Garrett, IN 46738
> > Ship to:  Dock 108
> >          6928N 400E
> >          Kendallville, IN 46755
> > http://www.dekko.com
> >
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/midrange-l.
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.