CURRENT-REQUEST-INFO attribute

An object reference to a Progreses.Lang.OERequestInfo class that provides information about the current client request sent to and executing on an AppServer agent or a Pacific Application Server agent.

Note: When using the Pacific Application Server, this attribute is valid on both the client and server sides. However, this is not true for an AppServer. if you access this attribute from an ABL client connected to an AppServer, it returns the Unknown value (?).

Data type: Progress.Lang.OERequestInfo class

Access: Read-only

Applies to: SESSION system handle

The following AppServer code fragment retrieves the client context identifier (CCID) that has been sent with a current request from an AppServer client:

DEFINE VARIABLE ccid AS CHARACTER NO-UNDO.
ASSIGN
  ccid = SESSION:CURRENT-REQUEST-INFO:ClientContextId.

The bold code in the following fragment assigns a copy of the client principal in the current session:

DEFINE VARIABLE hCPIn   AS HANDLE.
DEFINE VARIABLE hCPOut  AS HANDLE.

hCPIn = SESSION:CURRENT-REQUEST-INFO:GetClientPrincipal().
SECURITY-POLICY:SET-CLIENT(hCPIn).
hCPOut = SECURITY-POLICY:GET-CLIENT().
SESSION:CURRENT-RESPONSE-INFO:SetClientPrincipal(hCPOut).

CURRENT-REQUEST-INFO attribute

See also