Re: R: OPNQRYF problem

[Richard Reeve <richreeve@xxxxxxxxx>]

No, I had a few mis-placed quotes. The correct qryslt
statement looks like this;

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

Thanks for the speedy responses.  Boy, this list sure
does make life easier.

Rich
--- Finucci Domenico <Domenico.Finucci@Fiditalia.it>
wrote:
> Good morning, Richard.
> Does your file have two formats  with same fields ?
> Sincerely
> Domenico Finucci
> Fiditalia , Milano, 02- 4301-2494
>
>
> -----Messaggio originale-----
> Da: Richard Reeve [mailto:richreeve@yahoo.com]
> Inviato: lunedì 3 dicembre 2001 16.49
> A: midrange-l@midrange.com
> Oggetto: 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
>
> Any ideas about what I am doing wrong?
>
>
> =====
>
>
> __________________________________________________
> Do You Yahoo!?
> Buy the perfect holiday gifts at Yahoo! Shopping.
> http://shopping.yahoo.com
> _______________________________________________
> This is the Midrange Systems Technical Discussion
> (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit:
>
http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/midrange-l.
> _______________________________________________
> This is the Midrange Systems Technical Discussion
> (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit:
>
http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/midrange-l.
>


=====


__________________________________________________
Do You Yahoo!?
Buy the perfect holiday gifts at Yahoo! Shopping.
http://shopping.yahoo.com