Re: query question

Yes, you can do that.

In Query 400...

Open your query.  In the Select record section.  Grab the field you want to
compare, and then say EQ to   :Month.   There is a COLON before month.
Press ENTER.  It will ask you to save to Query or File, CHOOSE QUERY.  and
enter the name of the query.

Then you can use  STRQMQRY instead of RUNQRY, to pass the parm.  The
keyword is SETVAR, I think.

Michael Schutte
Work 614-492-7419
email  michael_schutte@xxxxxxxxxxxx


                                                                           
             steema@diskhaven.                                             
             com                                                           
             Sent by:                                                   To 
             rpg400-l-bounces@         "RPG programming on the AS400 /     
             midrange.com              iSeries" <rpg400-l@xxxxxxxxxxxx>    
                                                                        cc 
                                                                           
             03/30/2006 03:18                                      Subject 
             PM                        Re: query question                  
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




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.