× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

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

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

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.