Hi Bob,
You will getting ALL records if the status is 'B', and you will get only
your selected records if the status is 'P'. It's in your last *AND/*OR
statement.
Thanx,
Nick
Nick Radich
Sr. Programmer/Analyst
EPC Molding, Inc.
Direct (320) 679-6683
Toll free (800) 388-2155 ext. 6683
Fax (320) 679-4516
nick_radich@xxxxxxxxxxxxxx
"Robert Ostrowski" <Bob.Ostrowski@xxxxxxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
08/21/2009 11:32 AM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
To
<midrange-L@xxxxxxxxxxxx>
cc
Subject
OPNQRYF question
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
midrange.com
