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


This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 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].