RE: PROBLEM WITH OPNQRYF

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