ASAP 2.7 Extension Manual

Implementing the ASAP Extension in an Application
HP NonStop ASAP Extension Manual—425265-004
4-18
ASAP_UPDATELIST_ Procedure
if (error:= ASAP_REGISTER_(…
.
.
.
call begintransaction(….
.
.
.
call endtransaction(….. !completed a trans
data^item := 0; !set to trans counter
value := 1f; !for 1 completed trans
if updates then !call update proc
if(error := ASAP_UPDATE_ ( seg^offset
,!error^detail!
,data^item
,value )) <> 0 then call report^error;
Example 2 – Response Time
int(32) seg^offset;
int error, data^item;
string domain^name[0:63];
fixed value ,t1 ,t2;
.
.
.
if (error := ASAP_REGISTER_…
call receiveupdate(…
t1 := juliantimestamp;
.
.
.
call reply(…
t2 := juliantimestamp;
data^item :=2; !set to resp time
value := (t2 – t1); !calculate microseconds
if updates then
if (error := ASAP_UPDATE_ ( seg^offset
,!error^detrail!
,data^item
,value )) <> 0 then call report^error;
Example 3 – Process State
int(32) seg^offset;
int error, data^item, state;
string domain^name[0:63];
fixed value;
.
.
.
if (error := ASAP_REGISTER_…
.