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

[Richard ECUYER <recuyer@xxxxxxx>]

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