Please help with an error in OPNQRYF select statement:
Here is the error in the joblog:
CALL PGM(NOR200C2) PARM(100319.00000 100320.00000)
6312 - OPNQRYF FILE((F4111)) QRYSLT('ILTRDJ *EQ %RANGE(&BEGD &ENDD)')
Argument on QRYSLT parameter starts with &.
Error occurred during processing of command.
Function check. CPF9899 unmonitored by NOR200C2 at statement 6312,
instruction X'0010'.
CPF9899 received by NOR200C2 at 6312. (C D I R)
Here is the code:
PGM PARM(&BDAT &EDAT)
/********************************************************************/
/* Declare Variables. */
/********************************************************************/
DCL VAR(&BDAT) TYPE(*DEC) LEN(15 5)
DCL VAR(&EDAT) TYPE(*DEC) LEN(15 5)
DCL VAR(&BEGD) TYPE(*DEC) LEN(6 0)
DCL VAR(&ENDD) TYPE(*DEC) LEN(6 0)
/* DCL VAR(&RTNLIB) TYPE(*CHAR) LEN(10) */
CHGVAR VAR(&BEGD) VALUE(&BDAT)
CHGVAR VAR(&ENDD) VALUE(&EDAT)
/********************************************************************/
/* Create OPNQRYF. */
/********************************************************************/
/* Create Open Query File and Call P5547VEN */
OPNQRYF FILE((F4111)) QRYSLT('ILTRDJ *EQ %RANGE(&BEGD
&ENDD)')
CPYFRMQRYF FROMOPNID(F4111) TOFILE(NOR200F9) MBROPT(*REPLACE)
CLOF OPNID(F4111)
Paul M. Dugas Jr.
EDI Programmer/Analyst
Pameco Corp
1000 Center Place
Norcross, GA 30093
770/798-0700 phone(ext3401)
208/439-1660 efax
800/764-9307pager
[EMAIL PROTECTED]
www.pameco.com
=======================================================================
To contact the list owner: mailto:[EMAIL PROTECTED]
Archives at http://www.mail-archive.com/edi-l%40listserv.ucop.edu/