Re: PROBLEM WITH OPNQRYF

["rick baird" <rick.baird@xxxxxxxxx>]

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.