Guardian Programmer's Guide

Table Of Contents
Writing a Server Program
Guardian Programmer’s Guide 421922-014
22 - 14
The Part-Query Server ($SER1)
!Message received from requester. Contains a part number:
STRUCT PART^REQUEST;
BEGIN
STRING PART^NUMBER[0:9]; !10-digit part number
END;
!Message returned to requester. Contains part record
!information obtained from the inventory file:
STRUCT .PART^REC;
BEGIN
STRING PART^NUMBER[0:9]; !10-digit part number
STRING PART^DESC[0:47]; !description of part
STRING SUPPLIER[0:23]; !name of part supplier
INT QUANTITY^ON^HAND; !how many of this part on
! hand
INT UNIT^PRICE; !cost of one part in dollars
INT ORDER^PLACED[0:2]; !date when part last ordered
! from supplier
INT SHIPMENT^DUE[0:2]; !date shipment due from
INT QUANTITY^ORDERED; !how many ordered from
END; ! supplier
!Data structure for the opener table:
STRUCT .OPENER^TABLE; !information about who has
BEGIN ! the server open
INT CURRENT^COUNT; !how many requesters have
! this server open
STRUCT OCB[1:MAX^OPENERS]; !one entry for each opener
BEGIN
!Process handle of an opener:
INT PROCESS^HANDLE[0:9]; !process handle of opener
INT RESERVED^HANDLE[0:9]; !reserved, filled with -1
INT FILE^NUMBER; !file number used by opener
END;
END;