Re: PROBLEM WITH OPNQRYF

[Booth Martin <booth@xxxxxxxxxxxx>]

So, what does that look like in debug?  I don't see the Select statement 
being defined before the opnqryf?  That is a tough way to solve the problem.

Bob O. wrote:
>    Ok, Here's the entire program in a nut shell with the new version of the
>    command.  I still get the CPF9899 error.
>
>     
>
>    QSYS/PGM
>
>    /* */
>
>    QSYS/DCL VAR(&DIV)  TYPE(*CHAR)  LEN(1)
>
>    QSYS/DCL VAR(&BOOK)  TYPE(*CHAR)  LEN(6)
>
>    /* */
>
>    QSYS/CALL PGM(DOR400/GL270A)
>
>    QSYS/RTVDTAARA DTAARA(*LDA  (9  6))  RTNVAR(&BOOK)
>
>    QSYS/RTVDTAARA DTAARA(*LDA  (15  1))  RTNVAR(&DIV)
>
>    /* */
>
>    QSYS/OVRDBF FILE(GLTRAN)  SHARE(*YES)
>
>    OPNQRYF  FILE((DOR400/GLTRAN))  +
>
>    QRYSLT(' +
>
>    GTACCT *EQ %VALUES(3120 3140 3150 3170) *AND +
>
>    GTBDTE *EQ '  *BCAT  &BOOK  *BCAT  ' *AND +
>
>    GTSOUR *EQ %VALUES("BI" "AR") *AND +
>
>    ' GTDIV *EQ  ' *BCAT &DIV '  )  +
>
>    KEYFLD((GTREF))
>
>    OPNQRYF  FILE((DOR400/GLTRAN))  +
>
>    QRYSLT(' +
>
>    GTACCT *EQ %VALUES(3120 3140 3150 3170) *AND +
>
>    GTBDTE *EQ '  *BCAT  &BOOK  *BCAT  ' *AND +
>
>    GTSOUR *EQ %VALUES("BI" "AR") *AND +
>
>    GTDIV *EQ  *BCAT &DIV '  )  +
>
>    KEYFLD((GTREF))
>
>    QSYS/CALL PGM(DOR400/PRINTER2CL)  PARM('D')
>
>    /* */
>
>    QSYS/CALL PGM(DOR400/GL270)
>
>    /* */
>
>    QSYS/CLOF OPNID(GLTRAN)
>
>    QSYS/DLTOVR FILE(GLTRAN)
>
>    /* */
>
>    DLTOVR  FILE(*ALL)  LVL(*JOB)
>
>    /* */
>
>    QSYS/ENDPGM
>
>      ----------------------------------------------------------------------
>
>      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.
>      >