The idea is to extend the visibility of object variables beyond object scope and allow exposing a specific object variable to other objects. This will be very useful for sharing labels or text constants between objects.

For example:

Codeunit 123 Exposer

{

var

PubText:public Text;

}

Codeunit 124 ExposeAccess

{

procedure test()

var

Exp:Codeunit "Exposer";

begin

Exp.PubText := 'sample value';

end;

}