RE: QM/400 Question Further explained

[Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>]

Here's an example from a CL I've just been working on.  

I think Buck covered the possibilities pretty well.  The other option, which
I use here, is substitution variables in the query source.  It's only a
variation on building the entire string.  You need four quotes in a row to
put on each side of a character variable.  I define a variable that I
concatenate with the other components as others have suggested.

Here's a sample:

0008.00              DCL        VAR(&FOURQUOTE) TYPE(*CHAR) VALUE('''')


0024.00              CHGVAR     VAR(&DATECOND) VALUE('BETWEEN' *BCAT +

0025.00                           &FOURQUOTE *CAT &BEGDAT *CAT &FOURQUOTE +

0026.00                           *BCAT 'AND' *BCAT &FOURQUOTE *CAT &ENDDAT
+     
0027.00                           *CAT &FOURQUOTE)

0028.00


&datecond is a string that I use as a setvar in the invocation of the query.
Here's the line from the query source which actually has a little more
complex where clause.  The ampersand just means it's a variable:
WHERE
DIGITS(ORDYR)||DIGITS(ORDMD) &DATECOND 

&datecond in the CL is substituted for &datecond in the query.

I don't have a good simple answer to *ALL.

> -----Original Message-----
> From: Dennis Munro [mailto:DMunro@badgerminingcorp.com]
> Sent: Tuesday, May 08, 2001 1:37 PM
> To: 'MIDRANGE-L@midrange.com'
> Subject: RE: QM/400 Question Further explained
> 
> 
> What I should further clarify is that the two variables I am 
> working with
> are Alpha & I am not sure of the dreaded quotes & how many?
> 
> I also said the variable goes on both sides of the BETWEEN & 
> that obviously
> is not correct.
> 
> Here are the actual statements from my query that I wish to 
> substitute with
> variables from a prompt screen.
> 
> <snip - Part of my QM/400 query)
> 
> AND (LWHS  BETWEEN '  '   AND '99')           
> AND (LCARR  BETWEEN '      '   AND '999999'))
> <snip>
> 
> Thanks - Dennis.
> 
> Dennis Munro
> 
> "I love deadlines.  I especially like the whooshing sound 
> they make as they
> go flying by."  Dilbert's Words Of Wisdom:
> 
> Badger Mining Corporation
> www.badgerminingcorp.com
> dmunro@badgerminingcorp.com
> (920) 361-2388
> 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---