TRANSFER Release D30 Documentation Supplement

TRANSFER D30 Documentation Supplement
TRANSFER Release D30 Documentation Supplement—118474 1-27
GETCNT Example
%d",
@error , @rt, @rn );
END;
END; ! reset^counter^rec
SUBPROC add^MCI^info;
BEGIN
! Customize and write out information to file
END; ! add^MCI^info
! Get the submit counts
rec^type := 951;
FOR rec^seq^num := 1 TO 3 DO
BEGIN
! MCI^submit^count^info overlays MCI^Message^count^info
! but is shorter.
! Zero out so extra words are zeros
MCI^message^count^info ':=' 0 & MCI^message^count^info
FOR
( $LEN ( MCI^message^count^info ) + 1 )/2 -1 WORDS;
IF ( error := read^profile^rec ( rec^type , rec^seq^num ,
MCI^submit^count^info,
$LEN ( MCI^submit^count^info ) ,
skip^exact, depot^flag , data^len ) )
THEN
BEGIN
IF error = -4001 THEN ! not there
BEGIN
print ( "No submit^count record for class %d" ,
@rec^seq^num );
END
ELSE
BEGIN
eprint ("** Error %d trying to read submit^count
record for class %d",
@rec^seq^num );
END;
END
ELSE ! got a record, list results
BEGIN
have^counts := true;
fts1 := MCI^submit^count^info.reset^timestamp;
fts2 := MCI^submit^count^info.last^update^timestamp;
IF list^counters THEN
eprint ("Class %d: %ts5 %ts9 to %ts5 %ts9
Submits = %dl10",
@rec^seq^num , @ts1, @ts1, @ts2, @ts2,
@MCI^submit^count^info.message^count );
CALL add^MCI^info;