Re: Data Queues

[boothm@xxxxxxxxxxxxxxxxx]

Here's some code I use that works:

0019.00       * DTAQ identification variables  
0020.00      D DtaQ            s             10    Inz('xx4030DQ')  
0021.00      D DtaQLib         s             10    Inz('*LIBL')  
0022.00      D DtaQLen         s              5  0 Inz(1024)  
0023.00      D DtaQData        S           1024  
0024.00  
0026.00      D DtaQDataDS      ds  
0027.00      D  xxCONO  
 
0042.00      C                   Movel     DtaQDataDS    DtaQData  
0043.00      C                   call      'QSNDDTAQ'  
0044.00      C                   parm                    DtaQ  
0045.00      C                   parm                    DtaQLib  
0046.00      C                   parm                    DtaQLen  
0047.00      C                   parm                    DtaQData  
 
Good luck with it.
_______________________
Booth Martin
booth@martinvt.com
http://www.MartinVT.com
_______________________




Jim Langston <jlangston@conexfreight.com>
Sent by: owner-rpg400-l@midrange.com
06/08/2000 06:37 PM
Please respond to RPG400-L

 
        To:     "RPG400-L@midrange.com" <RPG400-L@midrange.com>
        cc: 
        Subject:        Data Queues

I have a project that must be completed before next Tuesday that involves 
DDM Data Queues.
That is, the data queue resides on another AS/400 connected via SNADS. The 
Data Queues
have been set up (not hard at all) and now I need to write an RPG program 
on my side to send
data to this data queue.

Unfortunately, I have never dealt with data queues before so have 
absolutely no idea where to
start.  I have worked with data areas a bit, and was hoping data queues 
were somewhat
similar, but could not display the data queue data like I can with data 
areas (DSPDTA).

Can anyone send me a URL to go to?  Or a boiler plate program?  I need to 
get up and
running on this very quickly, and there are a number of aspects of this 
program I need to
write (add file trigger, data conversion and table lookup, write to data 
queue, find way to
receive acknoledgment, etc...).

Regards,

Jim Langston

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