• Subject: Re: AS400 Query - Passing info from CL program?
  • From: Pete Massiello <pmassiello@xxxxxxxxxxxxxxxx>
  • Date: Wed, 24 Nov 1999 16:50:26 -0500
  • Organization: OS Solutions International

I have kept out of this for a while, wanting to see what people were going to
come up with. The thread kept going back and forth, pluses and minuses for using
Query, STRQM, and SQL.  We have a product called ShowMe/400 that allows you to
pass parameters, in fact after you generate the query, you can convert it into
fully documented RPG and DDS, thus allowing you to do much more than you ever
thought you could.  If you want an easy way to do this, contact me off-line, and
I can send you a demo.

    Pete Massiello

Joel Fritz wrote:

> > -----Original Message-----
> > From: Alan Campin [mailto:Alan.Campin@CaseLogic.com]
> > Sent: Wednesday, November 24, 1999 11:28 AM
> > To: 'MIDRANGE-L@midrange.com'
> > Subject: RE: AS400 Query - Passing info from CL program?
> >
> >
> > Are you confusing the WRKQRY product (Query/400) with STRQM
> > (AS/400 Query
> > Manager)? You would have AS/400 Query Manager only if you
> > bought the SQL
> > package. Query/400 does not support any form of parameters.
> >
>
> It does and it doesn't.  If you follow instructions below, you can pass
> parameters to a query400 query.   It's not as useful as it might seem
> because as soon as you run it as a query management query, you've entered
> the realm of qmforms and have to deal with the print formatting differences
> between qrydfn and qmqry not to mention the differences in summary output to
> a file.
>
> I find it useful, but I work in a shop that doesn't have the full SQL
> package and I'm not an SQL expert.  It's quicker than retrieving the query
> source, changing the selection criteria to accept parms, and then creating
> the query.
>
> /*           BIG Snip                                         */
>
> > >
> > > 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/$searc
> hform?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
> +---

--
Pete Massiello
OS Solutions International
Phone: (203)-744-7854  Ext 11.
http://www.os-solutions.com
mailto:pmassiello@os-solutions.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 thread ...

Follow-Ups:
Replies:

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].