MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » October 2004

RE: CPYF question



fixed

Pat, have you gotten this to actually work?  I've used double quotes before
in OPNQRYF's QRYSLT with good effect, but can't seem to use them in CPYF
like you've suggested.

db

> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx / Pat Barber
> Sent: Thursday, October 07, 2004 1:56 PM
>
> To get around all those very nasty '''''' and getting
> the combo to work, create the search string in a variable
> like this:
>
> dcl &sel *char len(22) value('*if txsuf *eq "xxxxx" ')
>
> more clp stuff
>
> chgvar var(%sst(&sel 16 5)) value(&var5)
>
> Then your statement looks like this:
>
>   CPYF  FROMFILE(VATTBL) TOFILE(*PRINT) +
>  >         INCREL((&sel)))






Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact