|
midrange.com
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/
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.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 on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
