Guardian Programmer's Guide

Table Of Contents
Writing a Server Program
Guardian Programmer’s Guide 421922-014
22 - 40
The Process-Order Server ($SER2)
! Write the order record to the orders file:
CALL WRITEX(ORD^FNUM,ORDER^RECORD,$LEN(ORDER^RECORD));
IF <> THEN
BEGIN
CALL FILE_GETINFO_(ORD^FNUM,REPLY^ERROR);
RETURN;
END;
! Complete the order reply:
ORDER^REPLY.ORDER^NUMBER ':='
ORDER^RECORD.ORDER^NUMBER FOR 28;
SBUFFER[0] ':=' ORDER^REPLY FOR $LEN(ORDER^REPLY);
REPLY^LEN := $LEN(ORDER^REPLY);
REPLY^ERROR := 0;
END;