Application Development with PAS for OpenEdge

Disconnecting a session-managed client

Save PDF

Disconnecting a session-managed client

Save PDF

Last Updated: January 27, 2016
1 minute read

OpenEdge
Version 13.0
Documentation

The following example shows how a session-managed client can disconnect from a PAS for OpenEdge instance:

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

DEFINE VARIABLE hAppSrv AS HANDLE  NO-UNDO.
DEFINE VARIABLE lReturn AS LOGICAL NO-UNDO.

CREATE SERVER hAppSrv.
lReturn = hAppSrv:CONNECT(" -URL http://slater:OuterLimits64@zeus:8810/inventory/apsv", 
                          "SMITH", "StarShip90").
IF NOT lReturn THEN DO:
  DELETE OBJECT hAppSrv NO-ERROR.
  RETURN ERROR "Failed to connect to Inventory on zeus".
END.
IF ERROR-STATUS:ERROR THEN DO:
  lReturn = hAppSrv:DISCONNECT().
  DELETE OBJECT hAppSrv NO-ERROR.
  RETURN ERROR RETURN-VALUE.
END.
. . .
lReturn = hAppSrv:DISCONNECT().
DELETE OBJECT hAppSrv NO-ERROR.

When the DISCONNECT( ) method executes, the client application disconnects from the PAS for OpenEdge instance referenced by the hAppSrv handle. When the disconnection request completes, you can send no more remote requests using the disconnected server handle.