Guardian Programmer's Guide

Writing a Command-Interpreter Monitor ($CMON)
Guardian Programmer’s Guide — 421922-014
23 - 48
Sample $CMON Program
CALL REPLYX(LOGOFF^REPLY,$LEN(LOGOFF^REPLY));
END;
!------------------------------------------------------------
! Procedure for processing an Illegal^logon^msg message.
! This message is always accepted, even during the shutdown
! phase. This procedure simply returns blank display text to
! the TACL process.
!------------------------------------------------------------
PROC PROCESS^ILLEGAL^LOGON^MSG;
BEGIN
STRUCT .ILLEGAL^LOGON^REPLY; !structure for reply
BEGIN
INT REPLYCODE;
STRING REPLYTEXT[0:63];
END;
! Blank the reply buffer. There is no need to set the reply
! code because the TACL process ignores it:
ILLEGAL^LOGON^REPLY.REPLYTEXT[0] ':=' " ";
ILLEGAL^LOGON^REPLY.REPLYTEXT[1] ':='
ILLEGAL^LOGON^REPLY.REPLYTEXT[0] FOR 63;
! Send the reply to the TACL process:
CALL REPLYX(ILLEGAL^LOGON^REPLY,
$LEN(ILLEGAL^LOGON^REPLY));
END;