F
Fuelfire
Guest
Ok. To make sure that the programs for working with the MQ work correctly, I created a program on the server (this is the database server, the PAS is running here, here SonicMQ1 is launched) and launched it. /* *************************** Main Block *************************** */ DEFINE VARIABLE QueueManager AS CHAR NO-UNDO. DEFINE VARIABLE QueueName AS CHAR NO-UNDO. DEFINE VARIABLE CMessage AS CHAR NO-UNDO. ASSIGN QueueManager = "UNIQM" QueueName = "TEST.Q" CMessage = "Hello from DepoNet!!!". DEFINE VARIABLE ptpsession AS HANDLE. DEFINE VARIABLE messageH AS HANDLE. DEFINE VARIABLE lDebug AS LOGICAL. /* Creates a session object. */ RUN jms/jmssession.p PERSISTENT SET ptpsession ("-H localhost -S 3620 -AppService AD.sonicMQ1"). /* Set user credentials. */ RUN setBrokerURL IN ptpsession (INPUT QueueManager). /* Connect to the broker. */ RUN beginSession IN ptpsession. /* Create a text message */ RUN createTextMessage IN ptpsession (OUTPUT messageH). RUN setText IN messageH (CMessage). /* Publish the message on the "REQUEST" topic */ RUN sendToQueue IN ptpsession (QueueName, messageH, ?, ?, ?). RUN deleteMessage IN messageH. RUN deleteSession IN ptpsession. MESSAGE "SENT!" VIEW-AS ALERT-BOX. RETURN "0". I get the following: What's wrong?
Continue reading...
Continue reading...