RE: PROBLEM WITH OPNQRYF

["Carel Teijgeler" <coteijgeler@xxxxxxxxx>]

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