Re: OPNQRYF

["Charlie Massoglia" <cmassoglia@xxxxxxxxxxx>]

If I remember properly, you can only use *EQ with %RANGE, %VALUES, and
%WLDCRD.  Try the following:


 3800 - OPNQRYF FILE(PGNL601) QRYSLT('  FUND *NE "120"
 *AND FUND *NE "502" *AND NOT FUND *EQ %RANGE("700" "760")

This would be the equivalent of the following:

QRYSLT('FUND *NE "120" *AND FUND *NE "502" *AND (FUND *LT "700" *OR FUND *GT
"760"))

Charles L.Massoglia, President
Massoglia Technical Consulting, Inc.
cmassoglia@voyager.net
In MI 517-676-9700 or in NC 919-363-9395


----- Original Message -----
From: "Barnes, Edward V. (RPW)" <EVBarnes@reliefprinting.com>
To: <RPG400-L@midrange.com>
Sent: Friday, 25 May, 2001 17:37
Subject: RE: OPNQRYF


> 3800 - OPNQRYF FILE(PGNL601) QRYSLT('  FUND *NE "120"
> *AND FUND *NE "502" *AND FUND *NE  %RANGE("000" "999")
> This should work
>
> -----Original Message-----
> From: Ronald A. Alford [mailto:ralford@richmond.k12.va.us]
> Sent: Friday, May 25, 2001 1:17 PM
> To: RPG400-L@midrange.com
> Subject: OPNQRYF
>
>
>
> Please, does anybody know if it is possible to use a NOT EQUAL on an
> %RANGE built-in function in OPNQRYF.  I am
> constantly getting errors when trying to do this.  This is how the
> statement looks when it is coded:
>
>  3800 - OPNQRYF FILE(PGNL601) QRYSLT('  FUND *NE "120"
> *AND FUND *NE "502" *AND FUND *NE  %RANGE("700" "760")
>
>
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---
>

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---