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 AppServer agent or a Pacific Application Server agent returns to a client.

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: Readable/Writeable

Applies to: SESSION system handle

The following AppServer code fragment generates a unique value as a client context identifier (CCID) and assigns it as the value returned to an AppServer 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 AppServer 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