RE: OPNQRYF problem

["Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx>]

A guess (and definitely just a guess) is that *NL stands for "newline" and
that this error means the SQL parser hit the end of the line unexpectedly.

>                           QRYSLT('LSTCHG *GE "' *CAT
>                &BEGUPD + *CAT '" *AND LSTCHG *LE "'
>                *CAT + &ENDUPD *CAT '" *AND RECTYP
>                = "M" ')

I'm not sure how this is SUPPOSED to look, but the "+" should always and
only be at the end of the line when attempting to concatenate a string
together.  Your line should probably be something like:

   QRYSLT('LSTCHG *GE "' *CAT &BEGUPD +
          *CAT '" *AND LSTCHG *LE "' *CAT +
          &ENDUPD *CAT '" *AND RECTYP = "M" ')

One other notes: You might want to create a variable called &QRYSLT.  That
way, you can concatenate to your heart's content, and then breakpoint the
program prior to the OPNQRYF and review the contents of the &QRYSLT
variable.  If it's okay, then you can execute the OPNQRYF.  This technique
has saved me hours and hours of debugging time.

Joe

> -----Original Message-----
> From: midrange-l-admin@midrange.com
> [mailto:midrange-l-admin@midrange.com]On Behalf Of Richard Reeve
> Sent: Monday, December 03, 2001 9:49 AM
> To: midrange-l@midrange.com
> Subject: OPNQRYF problem
>
>
> All,
>
>      I am attempting an open query in a CL.  It
> compiles fine, but when I run the CL I get the
> following message/joblog;
>
>  Operand for *NL function not valid.
>
>  Error occurred during processing of command.
>
>  Function check. CPF9899 unmonitored by MEHLD04J at
> statement 800,
>    instruction X'002C'.
>
>  CPF9899 received by MEHLD04J at 800. (C D I R)
>
>  CPF9899 received by MEHLD04J at 800. (C D I R)
>
>
> the CL is as follows;
>  BEGIN:         PGM
>
>   DCL        VAR(&BEGUPD    ) TYPE(*CHAR) LEN(07)
>
>   DCL        VAR(&ENDUPD    ) TYPE(*CHAR) LEN(07)
>
>   DCLF       FILE(EXHMAS)
>
>   RTVDTAARA  DTAARA(BACKBRIDGE (51 7)) RTNVAR(&BEGUPD)
>
>   RTVDTAARA  DTAARA(BACKBRIDGE (58 7)) RTNVAR(&ENDUPD)
>
>   OVRDBF     FILE(EXHMAS) TOFILE(EXHMAS) SHARE(*YES)
>
>   OPNQRYF    FILE((EXHMAS)) FORMAT(EXHMAS REXHMAS) +
>
>                           QRYSLT('LSTCHG *GE "' *CAT
>                &BEGUPD + *CAT '" *AND LSTCHG *LE "'
>                *CAT + &ENDUPD *CAT '" *AND RECTYP
>                = "M" ')
>
>
>              CALL PGM(MEHLD04I)
>  END:        ENDPGM