RE: Passing parm to query

Mike:

As others have noted, the answer is "Yes and no."

In Query/400, I think you'll create what's called a 'dependent query'. These 
were (apparently) intended for the use of OfficeVision in order to fill in form 
documents with values from Query/400 queries. Because of that, the 'dependent 
query' has no way of being executed except from within OV/400.

So, "yes and no", you can create such a query but you can't run it. You can, 
however, use it as the basis for creating a QM query and then run the QM query. 
Use the RTVQMQRY command to generate the QM query source and use CRTQMQRY to 
compile the source, or maybe STRQMQRY can use dependent queries directly (I 
don't recall ever trying it because I create queries in QM anyway).

As for your later question, QM separates queries from forms where Query/400 had 
them combined into single *QRYDFN objects. I've never needed to generate a QM 
form from a query; but the RTVQMFORM command has the basic ability to do so, 
then CRTQMFORM compiles it.

Because you can have both *QMQRY and *QMFORM objects, you have the added 
flexibility of combining those in different ways. You might have ten queries 
and use the same form to print them. Or you might have one query and print it 
through ten different forms. You don't need to specify a form -- you can use 
the system defaults.

After just a couple hours playing with both prompted and SQL QM queries, I was 
hooked at least a decade ago. Shortly after, I learned a few things about QM 
forms. I don't think I've even _wanted_ to use Query/400 for the past ten 
years. The prompted queries may be where end users will start being most 
comfortable.

Tom Liotta


midrange-l-request@xxxxxxxxxxxx wrote:

>   7. Passing parm to query (Condon, Mike)
>
>Is there a way to pass a parm to the "Select Records" section of a query
>& run in batch (example below):
>
> RUNQRY     QRY(GALP/IIQ90MP) OUTTYPE(*PRINTER) +  
>              OUTFORM(*DETAIL) PRTDFN(*NO) +       
>              PRTDEV(*PRINT) FORMSIZE(200 200) +   
>              OUTFILE(*RUNOPT *FIRST *RPLFILE)