RE: Passing Parms to Query

Doesn't look like there's anything wrong.  This is a "feature" designed for
Office Vision mail merges and is actually documented (steathily) in the
Query400 manual.  You can supply any name you want for the file.  Save the
query and run it as a QMQRY as in the example below.  You won't be able to
run it with RUNQRY.  If you use it in batch, you'll have to deal with
apostrophes in the SETVAR parm.


> -----Original Message-----
> From: jpcarr@TREDEGAR.COM [mailto:jpcarr@TREDEGAR.COM]
> Sent: Tuesday, September 12, 2000 7:02 AM
> To: RPG400-L@midrange.com
> Subject: Passing Parms to Query
> 
> 
> 
> Ok,   I'm missing something.     How (one more time)  do you 
> pass parms to
> a query.
> I read and tried the below from the archives.    What does 
> the query specs
> have to look like?
> 
> I have this;
> ------------------------
>                                 Select Records
> Type comparisons, press Enter.  Specify OR to start each new group.
>   Tests:  EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...
> AND/OR  Field             Test   Value (Field, Number, 
> 'Characters', or
> ...)
>         RMMPRDN           EQ     :PRDN
> 
> -----------------------
> and this;
> -----------------------
>                       Specify Dependent Value Qualifiers
>  Type choices, press Enter.
>    Qualifier type . . . .   2              1=Query, 2=File
>    Query or file  . . . .   CCPFRMM        Name, F4 for list of files
>      Library  . . . . . .     TILIPD       Name, *LIBL, F4 for list
>    For choice 2=File:
>      File member  . . . .   *FIRST         Name, *FIRST, F4 for list
> ----------
> 
> Whats wrong??
> John Carr
> -------------------------------
> 
> 
> 
> Passing Parameters to a Query/400 Query
> The basic idea of the solution is in the select statement to 
> write in the
> Select part:
> DATE GE :FROMDAT
> // Yes the : has to be there
> Save the query as normal i.e. a QRYDFN object.
> Run the Query with STRQMQRY and ALWQRYDFN(*YES) and set the 
> variables in
> SETVAR
> I.e. in the above case:
> StrQmQry QmQRy(yourlib/yourqry) AlwQryDfn(*YES)
> QmForm(*QMQRY) SetVar((FROMDAT 19991122))
> 
> Per Nielsen
> 
> 
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to 
> RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: 
> david@midrange.com
> +---
> 
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---