************************************************************
 *                                                           
 *  To compile:                                              
 *                                                           
 *         CRTBNDRPG PGM(XXX/DQSERVER) SRCFILE(XXX/QRPGLESRC)
 *                          - or -                           
 *                    Option 14 from PDM                     
 *                                                           
 ************************************************************
D Que             s             10    Inz('CLNTSVRQ')        
D Lib             s             10    Inz('*LIBL')           
D Len             s              5  0 Inz(50)                
D Wait            s              5  0 Inz(-1)                
D Data            ds            50                           
D   MessageType                  2                           
D   Real_Data                   48                           
                                                      
C                   DoU       *InLr                   
                                                      
C                   Call      'QRCVDTAQ'              
C                   Parm                    Que       
C                   Parm                    Lib       
C                   Parm                    Len       
C                   Parm                    Data      
C                   Parm                    Wait      
                                                      
C                   Select                            
                                                      
C                   When      MessageType = 'OH'      
C                   Call      'SOMEPGM'               
C                   Parm                    Real_Data 
                                                      
C                   When      MessageType = '99'      
C                   Leave                              
                                                       
 * Other WHEN logic to accept data from other clients could go here. 
                                                       
C                   EndSl                              
                                                       
C                   EndDo                              
                                                       
C                   Eval      *InLr = *On