RE: OPENQRYF question

[MWalter@xxxxxxxxxxxxxxx]

How about something like this:
dcl var(&qryslt) type(*char) len(100)
dcl var(&arg) type(*char) len(10)
dcl var(&inch) type(*char) len(1) value('"')

chgvar var(&qryslt) value('(fld *eq "' *tcat &arg *cat &inch *tcat '")')
opnqryf file(file)
 qryslt(&qryslt)...



Mark


Mark Walter
Sr. Programmer/Analyst
Hanover Wire Cloth a div of CCX, Inc.
mwalter@hanoverwire.com
http://www.hanoverwire.com
717.637.3795 Ext.3040



                    "Smith, Nelson"
                    <NSmith@lincare.c        To:     "'rpg400-l@midrange.com'" 
<rpg400-l@midrange.com>
                    om>                      cc:
                    Sent by:                 Subject:     RE: OPENQRYF question
                    rpg400-l-admin@mi
                    drange.com


                    09/10/2002 02:10
                    PM
                    Please respond to
                    rpg400-l






Speaking of Opnqryf, does anyone know how to handle an embedded inch or
quote mark (") in the qryslt parmeter?  Like to search for the text string:
5".

> -----Original Message-----
> From:         rob@dekko.com [SMTP:rob@dekko.com]
> Sent:         Tuesday, September 10, 2002 12:15 PM
> To:           rpg400-l@midrange.com
> Subject:           Re: OPENQRYF question
>
> This is a multipart message in MIME format.
> --
> [ Picked text/plain from multipart/alternative ]
> Benjamin,
>
> While I would prefer imbedded SQL, I did just receive an email announcing
> a sale on a book which might help you with your OPNQRYF needs.
> Sale ends September 17.
>
http://echo.bluehornet.com/hostedemail/email.htm?h=f8b64946ebc86a5e23e1605
> a2943210c&CID=39251969
>
> Rob Berendt
> --
> "They that can give up essential liberty to obtain a little temporary
> safety deserve neither liberty nor safety."
> Benjamin Franklin
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.


************************************************************************************************************************************************************************************************************

This message originates from Lincare Holdings Inc. It contains information
which maybe confidential or privileged and is intended only for the
individual or entity named above.
It is prohibited for anyone else to disclose, copy, distribute or use the
contents of this message.
All personal messages express views solely of the sender, which are not to
be attributed to Lincare Holdings Inc., and may not be copied or
distributed without this disclaimer.
If you received this message in error, please notify us immediately at
MailAdmin@lincare.com or (800) 284-2006.
************************************************************************************************************************************************************************************************************


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.