Re: OPNQRYF question

I think you would get all the ones with all that criteria that are P's, and
all the B's. If that the output you're getting? I think the OR is causing
all B's to be included.

One word...SQL. Of course, that's not a word, but still.

And along the SQL line, when that hacker got busted for stealing 130 million
CC and debit card numbers, some earnest reporter on the radio said the
hacker used "a sophisticated technique called SQUL injection". God love the
U has to follow Q lesson she learned in school.

On Fri, Aug 21, 2009 at 11:49 AM, Robert Ostrowski <
Bob.Ostrowski@xxxxxxxxxxxxxxxx> wrote:

I can't figure out why this won't work...

Before I changed the OPNQRYF:

QSYS/OPNQRYF FILE((*CURLIB/ESTFIL)) QRYSLT('ESDIV *EQ "' +
*CAT &DIV *CAT '" *AND ESBTYP *EQ '' '' +
*AND ESSLMN *GE ' *CAT &SLMN1 *CAT ' *AND +
ESSLMN *LE ' *CAT &SLMN2 *CAT ' *AND +
ESDDTE *GE ' *CAT &FROM1 *CAT ' *AND +
ESDDTE *LE ' *CAT &TO1 *CAT ' *AND ESSTUS +
*EQ "' *CAT &STAT *CAT '" ') +
KEYFLD((ESDIV *ASCEND) (ESSLMN) (ESDDTE +
*DESCEND) (ESEST#))



After my change:

QSYS/IF COND((&STAT *EQ 'P') *OR (&STAT *EQ 'B')) THEN(DO)
QSYS/OPNQRYF FILE((*CURLIB/ESTFIL)) QRYSLT('ESDIV *EQ "' +
*CAT &DIV *CAT '" *AND ESBTYP *EQ '' '' +
*AND ESSLMN *GE ' *CAT &SLMN1 *CAT ' *AND +
ESSLMN *LE ' *CAT &SLMN2 *CAT ' *AND +
ESDDTE *GE ' *CAT &FROM1 *CAT ' *AND +
ESDDTE *LE ' *CAT &TO1 *CAT ' *AND ESSTUS +
*EQ "' *CAT 'P' *CAT '" *OR ESSTUS +
*EQ "' *CAT 'B' *CAT '" ') +
KEYFLD((ESDIV *ASCEND) (ESSLMN) (ESDDTE +
*DESCEND) (ESEST#))
ENDDO


If the &STAT variable is P or B, they want to see on the report where
the ESSTUS field
Is P (Pending) or B (Bidding).

If I end up getting EVERYTHING in the file when there should only be a
few records.






Bob Ostrowski | Senior Programmer/Analyst
TRAINOR GLASS COMPANY | National - IT
11901 S. Austin Ave. | Alsip, IL 60803
T 708.293.4218 | F 708.293.6218
bob.ostrowski@xxxxxxxxxxxxxxxx
<mailto:firstname.lastname@xxxxxxxxxxxxxxxx> | www.trainorglass.com
<http://www.trainorglass.com>

Project Management On-Line <http://webapps.trainorglass.com/> | View
your project's progress and communicate with your project manager

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