Re: OPNQRYF QRYSLT Question...

["peter marr" <pmarr@xxxxxxxxxxxxx>]

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