midrange.com code scratchpad
Name:
Syslog message queue monitor
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
06/05/2009 10:40:11 pm
IP:
Logged
Description:
Watches a message queue and send along the messages
Code:
  1. PGM PARM(&P_MSGQ)                                                  
  2.                                                                    
  3. DCL &P_MSGQ *CHAR 10                                               
  4. DCL &MSG *CHAR 1000                                                
  5. DCL &MSGSL *CHAR 1000                                              
  6. DCL &MSGID *CHAR 7                                                 
  7. DCL &ENDSTS *CHAR 1                                                
  8.                                                                    
  9. LOOP:                                                              
  10.              RCVMSG     MSGQ(&P_MSGQ) WAIT(20) RMV(*NO) MSG(&MSG) +
  11.                           MSGID(&MSGID)                            
  12.                                                                    
  13. IF (&MSGID *EQ '       ') (DO)                                     
  14.    RTVJOBA    ENDSTS(&ENDSTS)                                      
  15.    IF (&ENDSTS *EQ '1') (RETURN)                                   
  16.    GOTO LOOP                       
  17. ENDDO                                                        
  18.                                                              
  19. CHGVAR     VAR(&MSGSL) VALUE(&P_MSGQ |< ' ' || &MSGID +     
  20.            || ' ' || &MSG)                                  
  21.                                                              
  22. SYSLOG     RMTSYS(EX1) FACILITY(19) SEVERITY(6) MSG(&MSGSL) 
  23.                                                              
  24. GOTO LOOP                                                    
  25.                                                              
  26. ENDPGM 
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css