Re: PROBLEM WITH OPNQRYF

["rick baird" <rick.baird@xxxxxxxxx>]

*CAT is used to connect constants with any variable.

*BCAT inserts a blank between them (if your constants have the space
already, that's not needed).

*TCAT will truncate any spaces between the constant and the variable.

*AND GTDIV *EQ &DIV - is wrong - you must concat the constant:

'*AND GTDIV *EQ '
with
&DIV
with an *CAT -

like this:

'*AND GTDIV *EQ ' *CAT &DIV

On 8/18/06, Bob O. <otis_the_cat@xxxxxxxxxxx> wrote:
>    First off, I thought *CAT is used only for numeric variable.  &DIV is a
>    one character field as is the GTDIV field in the file.
>
>    Second, If I take out the lines with:
>
>    *AND GTDIV *EQ &DIV
>
>    the command runs fine.  As soon as I add the line, I get the CPF9899
>    error.
>
>    Third, how large can I make the &SEL variable to store the QRYSLT
>    statement?  The statement in the actual program is really much larger.  I
>    just stripped it down some for the forum.
>
>
>
>    Here is the actual command WITHOUT the line I added.  This one works fine.
>
>    QSYS/OPNQRYF FILE((DOR400/GLTRAN))  +
>    QRYSLT('GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
>       *AND GTACCT *EQ 3120 +
>       *AND GTSOUR *EQ "BI" +
>    *OR GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
>       *AND GTACCT *EQ 3140 +
>       *AND GTSOUR *EQ "BI" +
>    *OR GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
>       *AND GTACCT *EQ 3150 +
>       *AND GTSOUR *EQ "BI" +
>    *OR GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
>       *AND GTACCT *EQ 3170 +
>       *AND GTSOUR *EQ "BI" +
>    *OR GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
>       *AND GTACCT *EQ 3190 +
>       *AND GTSOUR *EQ "BI" +
>    *OR GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
>       *AND GTACCT *EQ 3300 +
>       *AND GTSOUR *EQ "BI" +
>    *OR GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
>       *AND GTACCT *EQ 3120 +
>       *AND GTSOUR *EQ "AR" +
>    *OR GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
>       *AND GTACCT *EQ 3140 +
>       *AND GTSOUR *EQ "AR" +
>    *OR GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
>       *AND GTACCT *EQ 3150 +
>       *AND GTSOUR *EQ "AR" +
>    *OR GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
>       *AND GTACCT *EQ 3170 +
>       *AND GTSOUR *EQ "AR" +
>    *OR GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
>       *AND GTACCT *EQ 3190 +
>       *AND GTSOUR *EQ "AR" +
>    *OR GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
>       *AND GTACCT *EQ 3300 +
>       *AND GTSOUR *EQ "AR" ')  +
>
>    KEYFLD((GTREF))
>
>
>
>      ----------------------------------------------------------------------
>
>      From:  "Bob O." <otis_the_cat@xxxxxxxxxxx>
>      Reply-To:  Midrange Systems Technical Discussion
>      <midrange-l@xxxxxxxxxxxx>
>      To:  midrange-l@xxxxxxxxxxxx
>      Subject:  PROBLEM WITH OPNQRYF
>      Date:  Fri, 18 Aug 2006 13:52:00 -0500
>      >    I can't seem to get this to work no matter what I do!!!
>      >
>      >    I keep getting the following message in the job log.
>      >
>      >    CPF9899
>      >    Missing operand on expression in QRYSLT parameter.
>      >
>      >
>      >    QSYS/OPNQRYF FILE((DOR400/GLTRAN))  QRYSLT('GTBDTE *EQ
>      '  *CAT  &BOOK
>      >    *CAT  ' +
>      >    *AND GTACCT *EQ 3120 +
>      >    *AND GTSOUR *EQ ''BI'' +
>      >    *AND GTDIV *EQ *DIV *OR +
>      >    GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
>      >    *AND GTACCT *EQ 3140 +
>      >    *AND GTSOUR *EQ ''BI'' +
>      >    *AND GTDIV *EQ &DIV *OR +
>      >    GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
>      >    *AND GTACCT *EQ 3150 +
>      >    *AND GTSOUR *EQ ''BI'' +
>      >    *AND GTDIV *EQ &DIV *OR +
>      >    GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
>      >    *AND GTACCT *EQ 3170 +
>      >    *AND GTSOUR *EQ ''BI'' +
>      >    *AND GTDIV *EQ *DIV ')  +
>      >    KEYFLD((GTREF))
>      >--
>      >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.
>      >
> --
> 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.