RE: Opnqryf with Many Selections

We use a command and CLP, define two work fields in the CLP, &QRYSLT and &AND.  
Do a bunch of IF's
like this:

If (&Agent *ne *Blanks) Then(Do)
Chgvar &QrySlt (&QrySlt *Bcat &And *Bcat 'FileAgent *Eq "' *Cat &Agent *Cat '"')
Chgvar &And '*And'
EndIf

List all of your fields the same way.  If it's the first field selected, the 
&And variable will be
blank.

Leave out the " for numeric fields, etc.

Just check for a *Blank &QRYSLT Variable before running the OPNQRYF.

Art Tostaine, Jr.
CCA, Inc.
Jackson, NJ 08527


-----Original Message-----
From: owner-midrange-l@midrange.com
[mailto:owner-midrange-l@midrange.com]On Behalf Of Pat Barber
Sent: Friday, July 21, 2000 10:17 AM
To: MIDRANGE-L@midrange.com
Subject: Opnqryf with Many Selections


I don't remember how many times I have been asked to do this,
and I have never seen an reasonable way to handle it.

I need to prompt for 7 paramters in a selection screen.

Any or all of the parms can be entered, with the end result
being a collection of "and" conditions.

The parms look like somthing along these lines:

Agent     xxxxx
coverage  xxx
state     xx
inforce   (y/n)
underwriter xxx
company     xxx
payee       xxx

As many of you know, opnqryf can get pretty strange looking with
a bunch of "and" conditions. To make matters worse, "each" parm
can be optional(no selection= print all). I have done this a couple
of different ways using CLP and even RPG but I just wondered what
other folks have come up with. I have never been happy with my
methods.
+---
| 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
+---