RE: pass parms to qry400

[Eric Kempter <NOERICK.NORCAL@xxxxxxxxxxxxx>]

Runqry, F4 will show the parameters available to you via the Runqry command.  
You will need to use opnqryf to do what you want.

Type choices, press Enter.                                                      
   
                                                                              
Query  . . . . . . . . . . . . .                                        Name, 
*NONE                  
  Library  . . . . . . . . . . .                *LIBL           Name, *LIBL, 
*CURLIB         
Query file:                                                                     
             
  File . . . . . . . . . . . . .                                        Name, 
*SAME                  
    Library  . . . . . . . . . .                *LIBL           Name, *RUNOPT, 
*LIBL, *CURLIB
  Member . . . . . . . . . . . .                *FIRST                  Name, 
*RUNOPT, *FIRST, *LAST 
                  + for more values                                             
             
Report output type . . . . . . .                *RUNOPT                 
*RUNOPT, *DISPLAY...         
Output form  . . . . . . . . . .                *RUNOPT                 
*RUNOPT, *DETAIL, *SUMMARY   
Record selection . . . . . . . .                *NO                     *NO, 
*YES                    

-----Original Message-----
From:   JGracetri@aol.com [SMTP:JGracetri@aol.com]
Sent:   Thursday, June 29, 2000 6:31 AM
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.
| 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
+---