DEFINE VARIABLE hInventory AS HANDLE NO-UNDO.
DEFINE VARIABLE lReturn AS LOGICAL NO-UNDO. CREATE SERVER hInventory. lReturn = hInventory:CONNECT("-URL http://slater:OuterLimits64@zeus:8810/inventory/apsv -sessionModel Session-free"). IF NOT lReturn THEN DO: DELETE OBJECT hInventory NO-ERROR. RETURN ERROR "Failed to connect to Inventory on zeus". END. IF ERROR-STATUS:ERROR THEN DO: lReturn = hInventory:DISCONNECT(). DELETE OBJECT hInventory NO-ERROR. RETURN ERROR RETURN-VALUE. END. . . . lReturn = hInventory:DISCONNECT(). DELETE OBJECT hInventory NO-ERROR. |