Try OpenEdge Now
skip to main content
ABL Reference
Handle Attributes and Methods Reference : CURRENT-RESPONSE-INFO attribute
 

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 Progress Application Server agent returns to a client.
Note: When using the Progress Application Serverr, 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).

See also

GetClientPrincipal( ) method (Progress.Lang.OERequestInfo), CURRENT-REQUEST-INFO attribute, LOCAL-VERSION-INFO attribute, REQUEST-INFO attribute, RESPONSE-INFO attribute, SetClientPrincipal( ) method