Re: Showcase Date Handling

Alas...would iDate enable me to add 1 to the year (the then clause
THEN YEAR ( DATE (

MYDATE, YYYYMMDD ) ) + 1)?

Thanks...

On Fri, Sep 16, 2011 at 2:02 PM, Alan Campin <alan0307d@xxxxxxxxx> wrote:

and you cannot use iDate?

When Month(<Library iDate In>/idate(mydate)) >= 10

So if your idate program is loaded into QGPL.

when month(qgpl.idate(MyDate)) >= 10

The only thing you need to do when using idate from outside the AS/400 is
qualify the function with the library you installed the function in.

On Fri, Sep 16, 2011 at 11:43 AM, Michael Ryan <michaelrtr@xxxxxxxxx>

wrote:

Anyone know how I would do this from Showcase:

GROUP BY
CASE
WHEN MONTH ( DATE ( MYDATE, YYYYMMDD ) ) >= 10 THEN YEAR ( DATE (
MYDATE, YYYYMMDD ) ) + 1
ELSE YEAR ( DATE ( MYDATE, YYYYMMDD ) )
END

in standard SQL? MYDATE is an 8.0 numeric field containing a date like
20110916.

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