RE: pass parms to qry400

[Tsopelas Anastasios <ATsopelas@xxxxxxxxxxx>]

                QMQRY (Query Management Query) is the "native" way.
1.      Create your query the usual way putting a value in the selection 
2.      Use rtvqmqry specifying your query name for qmqry parm to get the
source of your query
3.      Edit the source you just retrieved replacing the literal value you
had with a variable (&item)
4.      Use crtqmqry cmd to create your  *qmqry object
5.      In your cl use STRQMQRY QMQRY(xxxxx) SETVAR((ITEM 123))

                The source after the retrieve will look like this
                IF DBITEM IS THE FIELD IN ITEMFILE AND ITEM IS YOUR PARM:
                SELECT

                  ALL       ACMCR, ACMC1, ACMC2,                
                  FROM      lib/ITEMFILE T01

                  WHERE     DBITEM = &ITEM


                If you operate with character fields be very careful with
the use of quotes .
                HTH

                T.T 
                -----Original Message-----
                From:   JGracetri@aol.com [mailto:JGracetri@aol.com]
                Sent:   Thursday, June 29, 2000 4:31 PM
                To:     MIDRANGE-L@midrange.com
                Subject:        pass parms to qry400

                 
                Does anyone know if you can do the following.
                cl pgm
                dcl &item
                dclf screen
                rcvf screen 
                runqry xxxxx parm &item
                end pgm
                I do not want the user to have access to the select on qry
itself.
                thank you jeff G.

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