Kbase P52104: How to test if the SonicMQ Broker is available before connec
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
17/02/2004 |
|
Status: Unverified
GOAL:
How to test if the SonicMQ Broker is available before connection
FIX:
DEFINE VARIABLE pubsubsession AS HANDLE.
DEFINE VARIABLE messageH AS HANDLE.
DEFINE VARIABLE cust-info AS CHARACTER.
DEF VAR i AS INT.
DEFINE VARIABLE jmsIsOk AS LOGICAL NO-UNDO INIT FALSE.
DEF VAR l-started AS LOGICAL INIT TRUE.
RUN jms/pubsubsession.p PERSISTENT SET pubsubsession ("-H pccburns2k -S 5162").
RUN setBrokerURL IN pubsubsession ("pccburns2k:2507").
RUN setNoErrorDisplay IN pubsubsession("yes").
RUN beginsession IN pubsubsession NO-ERROR.
IF ERROR-STATUS:ERROR = YES THEN DO:
MESSAGE "no broker available"
VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.
IF ERROR-STATUS:ERROR = NO THEN DO:
MESSAGE "I am connected"
VIEW-AS ALERT-BOX INFO BUTTONS OK.
RUN deletesession IN pubsubsession.
WAIT-FOR u1 OF THIS-PROCEDURE.
END.