TRANSFER Release D30 Documentation Supplement

GETCNT Example
1-26 118474—TRANSFER Release D30 Documentation Supplement
TRANSFER D30 Documentation Supplement
GETCNT Example
The following is an example of GETCNT used to extract count information.
! Definition MCI-SUBMIT-COUNT-INFO created on 05/03/93 at 09:26
STRUCT MCI^SUBMIT^COUNT^INFO^DEF (*);
BEGIN
! Profile Rec-Type = 951
! Rec-seq-num 1 = 1st, 2 = 2nd and 3 = 3rd Class
FIXED RESET^TIMESTAMP;
FIXED LAST^UPDATE^TIMESTAMP;
INT(32) MESSAGE^COUNT;
FILLER 28;
END;
! Definition MCI-MESSAGE-COUNT-INFO created on 05/03/93 at 09:26
STRUCT MCI^MESSAGE^COUNT^INFO^DEF (*);
BEGIN
! Profile Rec-Type = 952 = Local Deliveries !
953 = Sends to remote nodes ! 954 =
Received from remote nodes ! Rec-seq-num 1 =
1st, 2 = 2nd and 3 = 3rd Class
FIXED RESET^TIMESTAMP;
FIXED LAST^UPDATE^TIMESTAMP;
INT(32) TOTAL^MESSAGE^COUNT;
STRUCT NODE[0:255];
BEGIN
INT(32) MESSAGE^COUNT;
END;
FILLER 28;
END;
STRUCT .MCI^message^count^info ( MCI^message^count^info^def
);
INT .MCI^submit^count^info ( MCI^submit^count^info^def )
SUBPROC reset^counter^rec ( rt , rn );
INT rt, rn;
BEGIN
IF rt = 951 THEN
data^len := $LEN ( MCI^submit^count^info )
ELSE
data^len := $LEN ( MCI^message^count^info );
MCI^message^count^info ':=' 0 & MCI^message^count^info FOR
(data^len + 1 )/2 -1 WORDS;
CALL timestamp ( ts1 );
MCI^message^count^info.reset^timestamp := fts1;
MCI^message^count^info.last^update^timestamp := fts1;
IF ( error := write^profile^rec ( rt , rn ,
MCI^message^count^info, -1 , depot^flag ,
data^len ) ) THEN
BEGIN
eprint ( "** Error %d trying to reset profile rec %d,