I don't even see *NL in there. Rob Berendt ================== "They that can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety." Benjamin Franklin Richard Reeve <email@example.com To: firstname.lastname@example.org m> cc: Sent by: Fax to: midrange-l-admin@mi Subject: OPNQRYF problem drange.com 12/03/2001 10:48 AM Please respond to midrange-l 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-Lemail@example.com Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.