Paul:
I think maybe you have posted this to the wrong list server....
But, do an Dump when you get the error so I can see the variable values.
Also, before you do an OPNQRYF, don't you need to do an OVRDBF command and
specify SHARE(*YES) to share the open data path?
cjg
Carl J. Galgano
EDI Consulting Services, Inc.
540 Powder Springs Street, Suite C19
Marietta, GA 30064
(770) 422-2995 - voice
(419) 730-8212 - fax
mailto:[EMAIL PROTECTED]
http://www.ediconsulting.com
AS400 EDI, Networking, E-Commerce and Communications Consulting and
Implementation
http://www.icecreamovernight.com
Premium Ice Cream Brands shipped Overnight
"You ain't gonna learn what you don't want to know" - rw
-----Original Message-----
From: Electronic Data Interchange Issues
[mailto:[EMAIL PROTECTED]]On Behalf Of Dugas, Paul-Exch
Sent: Tuesday, November 21, 2000 2:28 PM
To: [EMAIL PROTECTED]
Subject: OPNQRYF Error
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/
=======================================================================
To contact the list owner: mailto:[EMAIL PROTECTED]
Archives at http://www.mail-archive.com/edi-l%40listserv.ucop.edu/