TRANSFER Release D30 Documentation Supplement

GETCNT Example
1-28 118474—TRANSFER Release D30 Documentation Supplement
TRANSFER D30 Documentation Supplement
IF reset^counters THEN
CALL reset^counter^rec ( rec^type , rec^seq^num );
END;
END; ! for loop on class
print ( " " );
! Get the delivery counts
rec^type := 952;
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 delivery^count record for class %d" ,
@rec^seq^num );
END
ELSE
BEGIN
eprint( "** Error %d trying to read delivery^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 deliveries = %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: Deliveries %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