Try OpenEdge Now
skip to main content
Application Migration and Development Guide
Application Development with PAS for OpenEdge : Programming ABL Client Applications : Disconnecting from a PAS for OpenEdge instance : Disconnecting a session-free client
 
Disconnecting a session-free client
The following example shows how a session-free client can disconnect from a PAS for OE instance:
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.
When the DISCONNECT( ) method executes, the client application disconnects from the PAS for OpenEdge instance referenced by the hInventory handle. When the disconnection request completes, you can send no more remote requests using the disconnected server handle.