TRANSFER Release D30 Documentation Supplement

GETCNT Example
1-30 118474—TRANSFER Release D30 Documentation Supplement
TRANSFER D30 Documentation Supplement
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 Receive^count record for class %d" ,
@rec^seq^num );
END
ELSE
BEGIN
eprint ("** Error %d trying to read Receive^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 receives = %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: Receives %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