Guardian Programmer's Guide

Table Of Contents
Writing a Command-Interpreter Monitor ($CMON)
Guardian Programmer’s Guide 421922-014
23 - 30
Setting the Logon Display Text at Run Time
In the $CMON process:
CALL READUPDATEX(RECV^NUM,SBUFFER,RCOUNT,BYTES^READ);
IF BUFFER[0] = 50 THEN
BEGIN
! Find out if sender is in group 255:
CALL FILE_GETRECEIVEINFO_(INFO);
P^HANDLE ':=' INFO[6] FOR 10;
ERROR := PROCESS_GETINFO_(P^HANDLE,
!file^name:maxlen!,
!file^name^len!,
!priority!,
!moms^processhandle!,
!hometerm:maxlen!,
!hometerm^len!,
!process^time!,
!caid!,
PAID);
IF PAID.<0:7> = 255 THEN
! If sender is in group 255, process request
BEGIN
LOGON^MSG ':=' SBUFFER[2] FOR (BYTES^READ - 2);
LOGON^MSG^LEN := BYTES^READ - 2;
END;
CALL REPLYX;
END;