Guardian Programmer's Guide

Table Of Contents
Writing a Server Program
Guardian Programmer’s Guide 421922-014
22 - 35
The Process-Order Server ($SER2)
!---------------------------------------------------------
! Procedure to write a message on the terminal and check
! for any error. If there is an error, this procedure
! attempts to write a message about the error and then
! stops the program.
!---------------------------------------------------------
PROC WRITE^LINE(BUF,LEN);
STRING .BUF;
INT LEN;
BEGIN
CALL WRITEX(TERM^NUM,BUF,LEN);
IF <> THEN CALL FILE^ERRORS(TERM^NUM);
END;