F
Fuelfire
Guest
I read this article and suggested that a number of parameters such as the channel name is already defined in the AMQCLCHL.TAB. I decided to regenerate .bindings file without specifying CCDTURL: DEF CF(RemoteCF) + QMGR(UNIQM) + TRAN(CLIENT) + CHAN(SWIFTMQ.SVRCONN) + HOST(vplmq12) + PORT(1422) Then I compiled and packed my class. I restarted AdminService and run this program: /* *************************** 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 -DirectConnect"). /* Set user credentials. */ RUN setBrokerURL IN ptpsession ("RemoteCF"). RUN setUser IN ptpsession (INPUT "swiftmq"). RUN setPassword IN ptpsession (INPUT "swiftmq"). /* 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". My message was sent successfully! In the documentation and in other examples, the name of the queue manager is transferred to the procedure setBrokerURL. In my case, everything works, if I pass the name of the connection factory. This is normal?
Continue reading...
Continue reading...