DEFINE VARIABLE hSession AS HANDLE NO-UNDO.
RUN jms/jmssession.p PERSISTENT SET hSession ("-SMQConnect"). RUN setConnectionURLs IN hSession ("Primary:2508,BackupServer:9876"). RUN setFaultTolerant IN hSession(TRUE). RUN beginSession IN hSession. |