Re: OPNQRYF QRYSLT Question...

[Chuck Lewis <CLEWIS@xxxxxxxxxx>]

THANKS Peter !!

That did it and I TOTALLY agree with the CHGVAR deal !!! I dug through my hard
copy archives of "slick stuff" I have done and found an example of how I USED to
do this stuff <BG>. YEARS ago (1988 !!!!) and I can remember changing to the
CHGVAR for that VERY reason !!!

One problem though - it only picked E01 records not E02's or E03's. These are
Character fields. Does %RANGE work with this ?

Thanks !

Chuck

peter marr wrote:

> Hi Chuck,
> I have always found it easier to read and maintain this type of
> problem by assigning complex string to another variable. eg. in
> your case....
>
> DCL        VAR(&SELECT)  TYPE(*CHAR) LEN(75)
> CHGVAR     &SELECT ('BLDN07 *EQ %RANGE(' *TCAT &START
> *TCAT ' ' *TCAT &END *TCAT ')' )
> OPNQRYF    FILE((&FILE)) QRYSLT(&SELECT)
> That way, you don't need to worry too much about doubling up on
> quotes. However, in your example, there is a space missing
> between the &START *TCAT and '" "'. ie. &START *TCAT'" "' -
> *TCAT '" "'.
> Good luck.
>
> Date sent:              Mon, 12 Jul 1999 20:54:24 -0500
> From:                   Chuck Lewis <CLEWIS@IQUEST.NET>
> To:                     MIDRANGE-L@midrange.com
> Subject:                Re: OPNQRYF QRYSLT Question...
> Send reply to:          MIDRANGE-L@midrange.com
>
> > Hi Eric !
> >
> > While reading the Online Book examples I saw the %RANGE and remember
> > THINKING I should check that out but got sidetracked with what I was
> > already doing (tunnel vision) <G>...
> >
> > OK, so here is what I have:
> >
> > OPNQRYF  FILE((WFBLBLSP)) QRYSLT('BLDN07=%RANGE("' *TCAT &START *TCAT'" "'
> > *TCAT &END *TCAT '")')
> >
> > and I get:
> >
> > Character ''' not valid following string '*TCAT     '.
> >
> > Hate to be a pest but what am I missing ?
> >
> > Thanks !
> >
> > Chuck
> >
> >
> > eric.delong@pmsi-services.com wrote:
> >
> > >      I think you might want to try:
> > >      ('BLDN07=%RANGE("' *tcat &START *tcat'" "' *tcat &END *tcat '")')
> > >
> > >      eric.delong@pmsi-services.com
> > >
> > > ______________________________ Reply Separator
> > > _________________________________ Subject: OPNQRYF QRYSLT Question...
> > > Author:  <MIDRANGE-L@midrange.com > at INET_WACO Date:    7/12/99 2:29
> > > PM
> > >
> > > Hi Folks,
> > >
> > > Been a LONG time since I've used OPNQRY. Used to do all sorts of tricky
> > > things with it including KILLER searches. Only problem is, all examples
> > > are gone (old job) and I'm in DUH mode. Tried online books (IBM) and
> > > can't seem to find exactly what I need.
> > >
> > > Here goes...
> > >
> > > Need to be able to pass 2 parameters to a CL which will do OPNQRY on a
> > > file. The parameters are both 3 characters. The field I'm checking is a
> > > Bin Label location field and is BLDN07 (not that this matters to you)
> > > and the fields I'm passing are a starting Bin Location (&START) and an
> > > Ending Bin Location (&END).
> > >
> > > For example, I am wanting to run Bin Labels for locations E02 - E10.
> > >
> > > If I have the QRYSLT defined as:
> > >
> > > QRYSLT('BLDN07 *GE *BCAT &START)
> > >
> > > It takes that fine. When I go to add a *AND BLDN07 *LE &END) it goes
> > > nuts...
> > >
> > > What am I missing ? I seem to remember using the " in these strings...
> > >
> > > TIA !!
> > >
> > > Chuck
> > >
> > > +---
> > > | 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
> > > +---
> >
> >
> > +---
> > | 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 +---
> >
> >
>
> Regards
> Peter
>
> +---
> | 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
+---