| 
 | 
(Posting a day late due to SMTP errors:
  550 5.0.0 Mail delivery temporarily blocked due to excessive traffic
  554 <midrange-l@xxxxxxxxxxxx>... Service unavailable
Apparently midrange.com gets hit pretty good at night sometimes.)
midrange-l-request@xxxxxxxxxxxx wrote:
>   5. Re: Passing in a date into STRQMQRY (Vern Hamberg)
>
>STRQMQRY QMQRY(ROUTINES/SYSDOWNQM1) SETVAR((PROMPTDATE '''2003-05-01'''))
>
>BTW, in CL with STRQMQRY, I usually have a variable
>
>DCL &APOST *CHAR 1 ''''
I've started DCL'ing a similar variable but I use it slightly differently. My 
QM query would look something like this:
    WHERE     DTDATE >= DATE(&q&PROMPTDATE&q)
and I call it like:
 ==> STRQMQRY QMQRY(ROUTINES/SYSDOWNQM1)
     SETVAR((PROMPTDATE '2003-05-01') ('q' &APOST))
This lets me put <&q> in as many places as needed within the query statement 
and only handle it once in the CL. No need to count doubled quoted quotes and I 
can make adjustments in the QM query without recompiling the CL It's worked 
very well so far.
Tom Liotta
-- 
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertechgroup.com
__________________________________________________________________
McAfee VirusScan Online from the Netscape Network.
Comprehensive protection for your entire computer. Get your free trial today!
http://channels.netscape.com/ns/computing/mcafee/index.jsp?promo=393397
Get AOL Instant Messenger 5.1 free of charge.  Download Now!
http://aim.aol.com/aimnew/Aim/register.adp?promo=380455
__________________________________________________________________
McAfee VirusScan Online from the Netscape Network.
Comprehensive protection for your entire computer. Get your free trial today!
http://channels.netscape.com/ns/computing/mcafee/index.jsp?promo=393397
Get AOL Instant Messenger 5.1 free of charge.  Download Now!
http://aim.aol.com/aimnew/Aim/register.adp?promo=380455
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.