RE: passsing parameters to query/400 -- MIDRANGE-L

It is possible to pass parameters to a Query/400 query.  The basic idea of
the solution is in the "Select Records" panel of the Query and in the
command used to execute the Query.

1.      In the "Select Records" panel:

                DATE      GE   :FROMDAT        (Note that the colon denotes
the Field Name as a parameter)

2.      After this is entered in the "Select Records" panel, you will be
presented with a " Specify Dependent Value Qualifiers" panel.  Key in a "1"
and key in the name of the Query.

3.      Exit and save the Query as normal.

4.      Finally run the Query with the STRQMQRY command and specify the
keyword ALWQRYDFN(*YES) and set the variables using the SETVAR keyword.  For
example:

        STRQMQRY QMQRY(yourlib/yourqry) ALWQRYDFN(*YES) +
            QMFORM(*QMQRY) SETVAR((FROMDAT 19991124))

        Note that if the parameter to be passed is alpha, you must enclose
the value in a set of triple quotes.  For example:

                SETVAR((STATE ''' FL''')

William K. Reger
Senior Project Manager
Levitz Furniture Corporation
Phone:  (561) 994-5114
E-mail:  breger@levitz.com <mailto:breger@levitz.com> 

                -----Original Message-----
                From:   nan pat [mailto:seedrp@hotmail.com]
                Sent:   Wednesday, January 12, 2000 1:28 AM
                To:     MIDRANGE-L@midrange.com
                Subject:        passsing parameters to query/400


                Hi every body,

                can any body tell me if there is any way ( I really wonder
!!!) by which we 
                can pass parameters to the querry/400.

                For instance ,I have some querrys which are run daily and
which needs the 
                date parameter for selection.

                Presently I have a batch job(CL pgm) where I'am Extracting
the data to a 
                different file(on date criterion) and running the query on
that file.This 
                atleast makes me free from running the querry manually.

                However , by this the footer or header of the report does
not change.

                I know it is too much of an expectations in disguise of
automisation but 
                this u wd understand that in the morining our edp department
is really a 
                mess since we have to take all this reports to be given to
Top Management.


                Daj


                ______________________________________________________
                Get Your Private, Free Email at http://www.hotmail.com

                +---
                | This is the Midrange System Mailing List!
                | To submit a new message, send your mail to
MIDRANGE-L@midrange.com.
                | To subscribe to this list send email to
MIDRANGE-L-SUB@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
                +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@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
+---