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:
- PGM PARM(&P_MSGQ)
-
- DCL &P_MSGQ *CHAR 10
- DCL &MSG *CHAR 1000
- DCL &MSGSL *CHAR 1000
- DCL &MSGID *CHAR 7
- DCL &ENDSTS *CHAR 1
-
- LOOP:
- RCVMSG MSGQ(&P_MSGQ) WAIT(20) RMV(*NO) MSG(&MSG) +
- MSGID(&MSGID)
-
- IF (&MSGID *EQ ' ') (DO)
- RTVJOBA ENDSTS(&ENDSTS)
- IF (&ENDSTS *EQ '1') (RETURN)
- GOTO LOOP
- ENDDO
-
- CHGVAR VAR(&MSGSL) VALUE(&P_MSGQ |< ' ' || &MSGID +
- || ' ' || &MSG)
-
- SYSLOG RMTSYS(EX1) FACILITY(19) SEVERITY(6) MSG(&MSGSL)
-
- GOTO LOOP
-
- ENDPGM
|
|
|