RE: Passing values to Query/400 queries

On Tuesday, April 28, 1998 7:19 PM, Vernon Hamberg 
[SMTP:hambergv@goldengate.net] wrote:
> Do I remember someone asking about sending variable data to
> Query/400
> queries? I just read something in Query Management Programming that
> offers
> a way to do this.
>
> What you do is use a special syntax in the record selection part.
> This
> syntax is like the following:
>
>     :t01.varname
>
> You cannot run these so-called dependent queries (they're designed
> for
> merging in OfficeVision) with RUNQRY, but you *can* with STRQMQRY
> ALWQRYDFN(*ONLY). With this command you can send variable data to
> the
> query, using the VAR parameter of STRQMQRY. The variable name to 
use
> that
> corresponds to the above is
>
>     t01_varname
>
> You may need an ampersand (&) in front of the name. The VAR
> parameter is a
> list of name-value pairs.

By using RTVQMQRY one can extract the SQL statement from the QRY/400 
query.  Just say ALWQRYDFN(*YES).  Once you get the source, you can  
 add variables to it like so:

SELECT NAME,AD1,CITY FROM CUSTMAST ORDER BY CITY
becomes
SELECT NAME,AD1,CITY FROM CUSTMAST WHERE ZIP=&zip ORDER BY CITY

CRTQMQRY and then run with the STRQMQRY command ALWQRYDFN(*YES).  If 
you don't specify ZIP on the SETVAR parm, QMQRY will prompt you for 
it!  Try it; it's pretty cool.  By specifying ALWQRYDFN(*YES) you get 
to keep the formatting of the query while using your own SELECT 
statement.  You can have multiple variables, like WHERE ZIP=&zip AND 
NAME LIKE &name...


Buck Calabro
Commsoft, Albany, NY
mailto:mcalabro@commsoft.net

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---