Guardian Programmer's Guide

Table Of Contents
Communicating With a TACL Process
Guardian Programmer’s Guide 421922-014
8 - 18
Reading the Startup Sequence Without INITIALIZER
CASE RCV^BUF OF
BEGIN
-1 -> BEGIN
! Process Startup message
.
.
REPLY^CODE := 70;
END;
-2 -> BEGIN
! Process Assign message
.
.
REPLY^CODE := 0;
END;
-3 -> BEGIN
! Process Param message
.
.
REPLY^CODE := 0;
END;
! Process illegal messages
OTHERWISE->REPLY^CODE := 100;
END;
! Reply to last message received:
CALL REPLY(!buffer!,
!write^count!,
!count^written!,
!message^tag!,
REPLY^CODE);
! Read next message from $RECEIVE:
CALL READUPDATE(RCV^NUM,RCV^BUF,RCV^COUNT,COUNT^READ);
CALL FILE_GETINFO_(RCV^NUM,ERROR);
IF ERROR <> 6 THEN CALL PROCESS_STOP_;
END;
! Reply to Close message:
CALL REPLY(!buffer!,
!write^count!,
!count^written!,
!message^tag!,
0);
! Close $RECEIVE:
ERROR := FILE_CLOSE_(RCV^FNUM);
IF ERROR <> 0 THEN ...
END;