MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » October 2004

Re: CPYF question



fixed

I very seldom use cpyf for much but use the exact same
method in opnqry quite often....

I'll write a little clp later today and see what's up
with this. That method has always worked quite well.

Paul Nelson is reporting errors using the method, soooo
I'm not as sure as I was earlier.

I'll run a test today sometime...


Dan Bale wrote:

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


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.








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