MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » June 2004

Re: Passing params to a Query



fixed

First, you need to define your Query/400.  On the SELECT RECORDS Screen, 
you need to use a colon (:) to qualify the fields as follows: 
 
                                Select Records  
  Type comparisons, press Enter.  Specify OR to start each new group.   
  Tests:  EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...  
  
AND/OR  Field             Test   Value (Field, Number, 'Characters', or 
...) 
        DATE1             EQ     :USERDATE1 
 AND    DATE2             EQ     :USERDATE2 
 

A second screen will pop-up:  (You can specify any file in use by the 
query)

                     Specify Dependent Value Qualifiers 
 
Type choices, press Enter. 
 
  Qualifier type . . . .   2              1=Query, 2=File 
 
  Query or file  . . . .   UNCFORDS       Name, F4 for list of files 
    Library  . . . . . .     PRODLIB      Name, *LIBL, F4 for list 
 
  For choice 2=File: 
    File member  . . . .   *FIRST         Name, *FIRST, F4 for list 
 
Second, on a CL, use STRQMQRY command to run the query as follows:

STRQMQRY 
QMQRY(Library_Name/QRYDFN_Name) ALWQRYDFN(*YES) 
SETVAR((DATE1 &SCRDATE1) (DATE2 &SCRDATE2)) 

        NOTE: Work fields must be type *CHAR, no matter that the field is a 
number 
on the query.


Hope this helps,

Peter Vidal
PALL Aeropower Corporation
SR Programmer Analyst
5775 Rio Vista Drive
Clearwater, FL 33760-3137
(727)539-8448
www.pall.com

"My religion consists of a humble admiration of the illimitable superior 
spirit who reveals himself in the slight details we are able to perceive 
with our frail and feeble mind."
Albert Einstein





Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact