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:firstname.lastname@example.org] Inviato: luned́ 3 dicembre 2001 16.49 A: email@example.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-Lfirstname.lastname@example.org 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.