× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: Error in Keyed Data Queue Program
  • From: Ken.Slaugh@xxxxxxxxxx
  • Date: Tue, 30 May 2000 11:04:06 -0700


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


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.