Guardian Programmer's Guide

Table Of Contents
Writing a Command-Interpreter Monitor ($CMON)
Guardian Programmer’s Guide 421922-014
23 - 60
Sample $CMON Program
ELSE
! Otherwise, accept request only if originating from
! operator group.
BEGIN
IF REQUESTING^GROUPID = 255 THEN
ADDUSER^REPLY.REPLYCODE := 0
ELSE
BEGIN
ADDUSER^REPLY.REPLYCODE := 1;
ADDUSER^REPLY.REPLYTEXT ':=' "Must be operator";
END;
END;
! Send reply to TACL process:
CALL REPLYX(ADDUSER^REPLY,$LEN(ADDUSER^REPLY));
END;