Re: Data Queues

[Jim Langston <jlangston@xxxxxxxxxxxxxxxx>]

Thank you, Booth and Jodi and other people who responded.

This worked exactly as advertised, and is implemented.  Was quite
an interesting project, and even though I am still working on some of
the finer points of my data, the transfer is going quite well.

From a Trigger triggered on *Insert to an external data queue to a
remote system.  Ain't the AS/400 grand?

Regards,

Jim Langston

boothm@earth.Goddard.edu wrote:

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

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