Re: OPNQRYF question

[Jim Essinger <dilbernator@xxxxxxxxx>]

Bob,

Does not *OR start a new selection? You will get the proper selection for
those P records, but it ignores all the previous selection information, and
selects all the 'B' records.

Try and enclose like (ESSTUS *EQ 'P' *OR ESSTUS *EQ 'B') .  Then the select
should evaluate whether the code is P or B, and then all the other applies.

Jim

On Fri, Aug 21, 2009 at 9: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.