• Subject: Re: AS400 Query - Passing info from CL program?
  • From: "Dan Bale" <dbale@xxxxxxxxxxx>
  • Date: Tue, 23 Nov 1999 16:42:32 -0500



AAAAAAAAAAuuugggghhhhhhhhh!   Where the heck have I been?  Why isn't this
documented in the Query manual?  You should'a heard the head-banging when I
shared this response with the others in our office, which, several months ago,
undertook a _major_ project to convert user-written queries with hard-coded
selections to QM queries (both *QMQRY & *QMFORM objects).  It got so bad that I
ended up scrapping some of the conversions and wrote RPG/CL from scratch; much
faster to production.

Well, so, I guess, Thanks for the tip!  Next time..........

If I'm not the only one who didn't know about this (which I suppose _is_
possible), I think this would be an excellent tech tip in the trade rags.  Per,
go for it; it might net you $50!

BTW, this technique _does_ do a conversion to *QMQRY, it's just transparent.
This is important to know, because there are differences between WRKQRY output
and STRQMQRY *QMQRY output.  But it looks much cleaner than the conversions I
did in the past.  Oh, and character host variables have to be enclosed in triple
single quotes, i.e., SetVar((STATUS '''A'''))

Will sleep better tonight.......

- Dan Bale

Per Nielsen <perni@centrum.dk> wrote:

IBM har written a nice little paper about the subject "Passing Parameters
to a query"

Click the link below
http://as400service.rochester.ibm.com/s_dir/slkbase.NSF/$searchform?Open&vie
w=wall
In the search field write :

Passing Parameters to a Query/400 Query

The basic idea of the solution is in the select statement to write in the
Select part:

DATE      GE   :FROMDAT

// Yes the : has to be there

Save the query as normal i.e. a QRYDFN object.

Run the Query with STRQMQRY and ALWQRYDFN(*YES) and set the variables in
SETVAR

I.e. in the above case:

StrQmQry QmQRy(yourlib/yourqry) AlwQryDfn(*YES)
     QmForm(*QMQRY) SetVar((FROMDAT 19991122))

HTH
Per Nielsen





+---
| 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 thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.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 on our policy page. If you have questions about this, please contact [javascript protected email address].