CURRENT-RESPONSE-INFO attribute

An object reference to a Progress.Lang.OERequestInfo class that allows you to set the response to a current request that an application server session returns to a client.

Note: When using the Progress Application Server (PAS) for OpenEdge, this attribute is valid on both the client and server sides.

Data type: Progress.Lang.OERequestInfo class

Access: Readable/Writeable

Applies to: SESSION system handle

The following application server code fragment generates a unique value as a client context identifier (CCID) and assigns it as the value returned to an application server client in response to the current request:

DEFINE VARIABLE ccid AS CHARACTER NO-UNDO.
ccid = SUBSTRING(BASE64-ENCODE (GENERATE-UUID), 1, 22).
ASSIGN
  SESSION:CURRENT-RESPONSE-INFO:ClientContextId = ccid.

The bold code in the following fragment sets the client principal returned to an application server client:

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-RESPONSE-INFO attribute

See also