AW: query question

["HauserSSS" <Hauser@xxxxxxxxxxxxxxx>]

Hi,

>>it is alpha, but w/it being a monthly can this be done in Query to run
>>every month and use the current month?

I assume you mean Query/400!

to determine the current date as character representation (YYYY-MM-DD) in
Query/400 use the following definition:
CURDATEA    Char(Current(Date), ISO)

to select current year and month use the following definition
CURYEARMON  substr(curdate, 1, 4) !!
            substr(curdate, 6, 2)

assumed your date field is a character field in the format MMDDYYYY,
determine the year and month as follows:
CMPYEARMON  substr(MyDate), 5, 4) !!
            substr(MyDate), 1, 2)

Now it's easy to select all records with the current year and month:
CMPYEARMON        EQ     curyearmon

Mit freundlichen Gruessen / Best regards

Birgitta

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les Brown)

-----Ursprungliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von
steema@xxxxxxxxxxxxx
Gesendet: Donnerstag, 30. Marz 2006 22:18
An: RPG programming on the AS400 / iSeries
Betreff: Re: query question


it is alpha, but w/it being a monthly can this be done in Query to run
every month and use the current month?

> If the field is numeric, you need to first change it to character.
>
> In a query,  digits(mmddyy)
> In RPGLE   AlphaMMDDYY = %EditC(mmddyy:'X');
>
>
> Michael Schutte
> Work 614-492-7419
> email  michael_schutte@xxxxxxxxxxxx
>
>
>
>              steema@diskhaven.
>              com
>              Sent by:                                                   To
>              rpg400-l-bounces@         rpg400-l@xxxxxxxxxxxx
>              midrange.com                                               cc
>
>                                                                    Subject
>              03/30/2006 02:55          query question
>              PM
>
>
>              Please respond to
>               RPG programming
>               on the AS400 /
>                   iSeries
>              <rpg400-l@midrang
>                   e.com>
>
>
>
>
>
>
> Hi I forget how to parse out a piece of a field. I can use a query rather
> than RPG on one assignment but the date is mmddyy. I need to parse out the
> year and then the month. I tried looking in the archives to no avail.
> Thanks,
> Steve
> --
> 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.