Performance Explorer で表示されるようにするため、各測定値には少なくとも次の 3 つのプロジェクト属性が必要です。
プロジェクト属性の指定に従って、プロジェクトはリアルタイムに Performance Explorer で表示できる 2 つの測定値をエクスポートします。
TMon トランザクションで MonitorInc および MonitorIncFloat を検索します。これは、Performance Explorer に最後のスナップショットが提供される場所です。
use "bdlMonitor.bdh"
const
nMeasure1 := 1;
nMeasure2 := 2;
dclrand
rRand : RndExpN (1..10000: 100.000000);
rRandf : RndExpF (5.500000);
var
fScale : float;
dcluser
user
VMon
transactions
TInit : begin;
TMon : 1;
TEnd : end;
dcltrans
transaction TInit
begin
fScale := AttributeGetDouble("scale");
end TInit;
transaction TMon
var
n : number;
f : float;
begin
n := rRand;
MonitorInc(1, n);
f := rRandf;
f := f * fScale;
MonitorIncFloat(2, f);
end TMon;