RE: QMQRY single vs double quotes/num vs char -- MIDRANGE-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

<snip>
Calling the query manager interactively works:

STRQMQRY QMQRY(TRSFDD/TX_OVRPQ1X) ALWQRYDFN(*YES) SETVAR((INNEG 24.90)
(INPOS 24.90) (INPARCEL '''B018001304'''))

But am having difficulty with the parms in a CL

DCL VAR(&PARCEL) TYPE(*CHAR) LEN(10)
DCL VAR(&INPARCEL) TYPE(*CHAR) LEN(12)

DCL VAR(&APOST) TYPE(*CHAR) LEN(1) VALUE('''')
CHGVAR VAR(&INNeg) VALUE(&APOST *CAT &NegAmt +
*CAT &APOST)
CHGVAR VAR(&INPos ) VALUE(&APOST *CAT &PosAmt *CAT +
&APOST)
CHGVAR VAR(&INParcel ) VALUE(&APOST *CAT &Parcel *CAT +
&APOST)
</snip>

This is what I have used. As far as I know, all numeric values must be
converted to Chars.

DCL VAR(&SEVERITY) TYPE(*DEC) LEN(2 0) /* +
Message Severity equal to or above +
extract. */

DCL VAR(&QUOTE) TYPE(*CHAR) LEN(1) VALUE('''')
DCL VAR(&SEV_CHR) TYPE(*CHAR) LEN(2)

CHGVAR VAR(&SEV_CHR) VALUE(&SEVERITY)

STRQMQRY QMQRY(XV0001_Q01) OUTPUT(*PRINT) +
QMFORM(XV0001_Q01) DATETIME(*NO) +
PAGNBR(*NO) SETVAR((JOBNAM (&QUOTE || +
&JOBNAME || &QUOTE)) (USRNAM (&QUOTE || +
&USERNAME || &QUOTE)) (JOBNUM (&QUOTE || +
&JOBNUMBER || &QUOTE)) (SEVERITY (&QUOTE +
|| &SEV_CHR || &QUOTE)))

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.