Problem:

Web Enterprise Server client returns 02000 error and Enterprise Server console reports a RTS 173 error for an MQSeries API call.

Resolution:

Below is an example of MQSeries Client installed on the Micro Focus Enterprise server and the Web Service is using MQSeries calls from INT code. Procedure pointer to the correct DLL allows entry points to be located.

       01  POINTER-WS.

           05 MQ-POINTER       PROCEDURE-POINTER.

       PROCEDURE DIVISION.

       P0.

           SET MQ-POINTER TO ENTRY 'MQICCB32'.

           IF MQ-POINTER = NULL

               DISPLAY 'POINTER ERROR'

               GOBACK.