Error in Keyed Data Queue Program

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
+---