Re: Does anyone have an easy example for using data queues???

here is a piece of code :
* Lecture DataQueue .......................................................................... d LireDataQueue pr ExtPgm('QRCVDTAQ') d p_DtqNam Const like( DtqNam ) d p_DtqLib Const like( DtqLib ) d p_DtqLen Const like( DtqLen ) d p_DtqDta Const like( DtqDta ) d p_DtqWait Const like( DtqWait)
*
* data queue ............................................................
D DtqNam s 10 Inz('OUTQ_BIG') D DtqLib s 10 Inz('OUTILS') D DtqLen s 5p 0 D DtqKeyL s 3p 0 D DtqSndL s 3p 0 D DtqKeyD s 10 D DtqWait s 5p 0
*
D DtqDta ds d Dta_typ 10 d Dta_fil 2 d Dta_Jobnam 10 d Dta_Jobusr 10 d Dta_Jobnum 6 d Dta_Splnam 10 d Dta_Splnum 10i 0 d Dta_Outq 10 d Dta_OutqLib 10
/free
DtqWait = -1 ; DtqNam = 'OUTQ_BIG' ; DtqLib = 'OUTILS' ;
Dow 1 = 1 ; LireDataQueue ( DtqNam : DtqLib : DtqLen : DtQdta : DtqWait ) ;
// Un spoule à traiter If DtqLen <> 0 And Dta_Typ = '*SPOOL' ;
Endif ; Enddo ; *Inlr = *on ; /end-free


Holden Tommy a écrit :

My co-worker want to check out data queues and I don't have a copy of
one so I thought I'd see if one of you had a simple data queue
program....

Thanks,
Tommy Holden