|
For whatever reason, you also have to have senderID parms as well C $RECVDQ PLIST C PARM #RNAME 10 C PARM #RLIB 10 C PARM #RLEN 5 0 C PARM #RDATA 5000 C PARM 60 #RWAIT 5 0 C PARM 'EQ' #RORD 2 C PARM 15 #RKLEN 3 0 C PARM #RKEY 15 C PARM 44 #RSLEN 3 0 C PARM #RSENDERID Ken Slaugh (707) 795-1512 x118 Chouinard & Myhre, Inc. AS/400 Professional Administrator/MSE Client Access Specialist http://www.cm-inc.com/ S Ramesh <s.v.r@usa.net> To: RPG400-L@midrange.com Sent by: cc: owner-rpg400-l@mi Subject: Error in Keyed Data Queue Program drange.com 05/30/00 09:17 AM Please respond to RPG400-L Given below is the code for sending a receiving a value from a keyed data queue. I am able to send the value but when I am trying to retrieve the value back using QRCVDTAQ I am getting the the following error : Number of parameters, 8, entered for this API was not valid Application error. CPF3C36 Can anyone please let me know how to solve this problem. Are the parameters used correct ? Thanks, S.Ramesh ========================================================================== C PSNDQ PLIST C PARM DQ_NAME 10 C PARM DQ_LIB 10 C PARM DQ_LENGTH 5 0 C PARM DQ_DATA 12 C PARM DQ_KEY_LEN 3 0 C PARM DQ_KEY_DATA 6 * C PRCVQ PLIST C PARM DQ_NAME 10 C PARM DQ_LIB 10 C PARM DQ_LENGTH 5 0 C PARM DQ_DATA 12 C PARM DQ_WAIT 5 0 C PARM DQ_KEY_ORD 2 C PARM DQ_KEY_LEN 3 0 C PARM DQ_KEY_DATA 6 * C TIME TIME_DATE 12 0 * * send value to the data queue * C MOVEL 'ZKEDTAQ' DQ_NAME C MOVEL 'QGPL' DQ_LIB C MOVE 1000 DQ_LENGTH C MOVE TIME_DATE DQ_DATA C MOVE 6 DQ_KEY_LEN C MOVE 1 DQ_KEY_DATA C CALL 'QSNDDTAQ' PSNDQ * * receive value from the data queue * C MOVE 10 DQ_WAIT C MOVE *BLANKS DQ_DATA C MOVEL 'EQ' DQ_KEY_ORD C MOVE 6 DQ_KEY_LEN C MOVE 1 DQ_KEY_DATA C CALL 'QRCVDTAQ' PRCVQ * C DQ_DATA DSPLY * C SETON LR ========================================================================== ____________________________________________________________________ Get free email and a permanent address at http://www.netaddress.com/?N=1 +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
