Re: OPNQRYF

[dennis.e.lovelady@xxxxxxxxxxxxx]

This should make the pgm happier:

OPNQRYF    FILE((CPP001)) QRYSLT('C1ADAT *GE ' *CAT +
                                 &FRDAT *CAT ' *AND C1ADAT *LE ' *CAT +
                                 &TODAT *CAT ' *AND C1SCAC *EQ "' *CAT +
                                 &SCAC *CAT '"') KEYFLD((C1CODE) (C1ADAT))

Dennis E. Lovelady





fkany@averittexpress.com
Sent by: midrange-l-admin@midrange.com
12/18/2002 04:59 PM
Please respond to midrange-l


        To:     midrange-l@midrange.com
        cc:
        Subject:        OPNQRYF

Hello,

Can anyone see what I'm doing wrong or missing out of OPNQRYF #2?

==================
OPNQRYF #1 works:
==================
OPNQRYF    FILE((CPP001)) QRYSLT('C1ADAT *GE ' *CAT +
                                 &FRDAT *CAT ' *AND C1ADAT *LE ' *CAT +
                                 &TODAT) KEYFLD((C1CODE) (C1ADAT))

===========================
OPNQRYF #2 DOES NOT work:
===========================
OPNQRYF    FILE((CPP001)) QRYSLT('C1ADAT *GE ' *CAT +
                                 &FRDAT *CAT ' *AND C1ADAT *LE ' *CAT +
                                 &TODAT *CAT ' *AND C1SCAC *EQ ' *CAT +
                                 &SCAC) KEYFLD((C1CODE) (C1ADAT))

Below is the error message from job dump:

"Field TOWE on QRYSLT pa QQQBLQDT
 parameter not found."

TOWE is the value of &SCAC.  &SCAC is parameter being passed into the
program.

TIA,

Frank

_______________________________________________
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.