RE: RPGIV: re:OPENQRYF

["Smith, Nelson" <NSmith@xxxxxxxxxxx>]

What about the ones right after the *CT?  Are those three singles also?

My real problem is that the search string (which contains the inch mark) is
being entered in a screen program by users and passed as a parm to the
opnqryf CL program.  Example search text is: 5".    I then have to cat it up
for the qryslt parm.  I'm trying to avoid having to try to pick out the inch
character from the incoming parm, but I may have to.

> -----Original Message-----
> From: MWalter@hanoverwire.com [SMTP:MWalter@hanoverwire.com]
> Sent: Tuesday, September 10, 2002 4:19 PM
> To:   rpg400-l@midrange.com
> Subject:      RPGIV: re:OPENQRYF
>
>
> I tinkered with this and got this to work.
>
> pgm parm(&arg)
> dcl var(&arg) type(*char) Len(10)
> dcl var(&inch) type(*char) len(1) value('"')
> dcl var(&qryslt) type(*Char) len(100)
>
> chgvar var(&qryslt) +
>  value('(itdsc *ct ''' *tcat &arg *tcat &inch *bcat ''')')
> ovrdbf file(itemasa) share(*yes)
> opnqryf file(itemasa) +
>  qryslt(&qryslt)
> cpyfrmqryf fromopnid(itemasa) tofile(*PRINT)
> rclrsc
> endpgm
>
> Notice that the closing quotes in the query select paramaters are 3
> singles
> (''') not a double and single ("').
>
>
> Thanks,
>
> 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
>
>
> ------------------------ Yahoo! Groups Sponsor ---------------------~-->
> 4 DVDs Free +s&p Join Now
> http://us.click.yahoo.com/pt6YBB/NXiEAA/MVfIAA/saFolB/TM
> ---------------------------------------------------------------------~->
>
> Bob Cozzi's iSeries Web Development Seminars
>  -- September 26, 2002 Ft. Lauderdale, FL
>  -- October 3, 2002 Phoenix/Scottsdale, AZ
> Sign up now at: http://www.rpgiv.com/seminars
> ----------------------------------------------------
> To unsubscribe from this list send an email to:
> mailto:rpgiv-unsubscribe@yahoogroups.com
> ----------------------------------------------------
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
>
>
>
> _______________________________________________
> 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.
************************************************************************************************************************************************************************************************************