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;