TRANSFER Release D30 Documentation Supplement

TRANSFER D30 Documentation Supplement
TRANSFER Release D30 Documentation Supplement—118474 1-29
GETCNT Example
print ( " " );
! Get the Twork counts
rec^type := 953;
FOR rec^seq^num := 1 TO 3 DO
BEGIN
IF ( error := read^profile^rec ( rec^type , rec^seq^num ,
MCI^message^count^info,
$LEN ( MCI^message^count^info ) ,
skip^exact, depot^flag , data^len ) ) THEN
BEGIN
IF error = -4001 THEN ! not there
BEGIN
print ("No Send^count record for class %d",
@rec^seq^num );
END
ELSE
BEGIN
eprint ( "** Error %d trying to read Send^count
record for class %d",
@rec^seq^num );
END;
END
ELSE ! got a record, list results
BEGIN
have^counts := true;
fts1 := MCI^message^count^info.reset^timestamp;
fts2 := MCI^message^count^info.last^update^timestamp;
IF list^counters THEN
BEGIN
print( "Class %d: %ts5 %ts9 to %ts5 %ts9
Total sends = %dl10",
@rec^seq^num , @ts1, @ts1, @ts2, @ts2,
@MCI^message^count^info.total^message^count );
FOR i := 0 TO 255 DO
BEGIN
IF MCI^message^count^info.node[i].message^count
<> 0D THEN
print ( " Node %d3 %t8: Sends %dl10",
@i, @node^table[i].byte,
@MCI^message^count^info.
node[i].message^count );
END;
END;
CALL add^MCI^info;
IF reset^counters THEN
CALL reset^counter^rec ( rec^type , rec^seq^num );
END;
END; ! for loop on class
print ( " " );
! Get the receive counts
rec^type := 954;
FOR rec^seq^num := 1 TO 3 DO
BEGIN