RE: PROBLEM WITH OPNQRYF

[Nick_Radich@xxxxxxxxxxxxxx]

Bob,

The last       GTDIV *EQ  *BCAT &DIV '  )  +

should read    GTDIV *EQ '  *BCAT &DIV)

HTH,

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



"Bob O." <otis_the_cat@xxxxxxxxxxx> 
Sent by: midrange-l-bounces+nick_radich=epcmolding.com@xxxxxxxxxxxx
08/18/06 03:07 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
midrange-l@xxxxxxxxxxxx
cc

Subject
RE: PROBLEM WITH OPNQRYF






   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.
     >