Re: PROBLEM WITH OPNQRYF

Carel,

only if GTBDTE is a character variable.  &BOOK must be a character to
be concatonated, but GTBDTE doesn't necessarily need to be.

On 8/18/06, Carel Teijgeler <coteijgeler@xxxxxxxxx> wrote:

Do

GTBDTE *EQ "` *CAT  &BOOK  *TCAT  `" *AND +

&BOOK should also be doublequoted, as it is a CHAR variable.

Some other remarks±
Why do you include the library name for each statement?
Why two OPNQRYFs? You can use POSDBF *START

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 18-8-2006 at 15:07 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.
>
>   PGM
>
>   DCL VAR(&DIV)  TYPE(*CHAR)  LEN(1)
>   DCL VAR(&BOOK)  TYPE(*CHAR)  LEN(6)
>
>   CALL PGM(DOR400/GL270A)
>
>   RTVDTAARA DTAARA(*LDA  (9  6))  RTNVAR(&BOOK)
>   RTVDTAARA DTAARA(*LDA  (15  1))  RTNVAR(&DIV)
>
>   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))
>
>   CALL PGM(DOR400/PRINTER2CL)  PARM('D')
>   CALL PGM(DOR400/GL270)
>
>   CLOF OPNID(GLTRAN)
>
>   DLTOVR FILE(GLTRAN)
>
>   DLTOVR  FILE(*ALL)  LVL(*JOB)
>
>   ENDPGM
>





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