Guardian Programmer's Guide

Table Of Contents
Writing a Server Program
Guardian Programmer’s Guide 421922-014
22 - 30
The Process-Order Server ($SER2)
STRING PARAM[0:529]; !parameter string
END;
INT MESSAGE^LEN; !length of Startup message
!Message received from requester. Contains order
!request information:
STRUCT .ORDER^REQUEST;
BEGIN
STRUCT NAME; !customer's name
BEGIN
STRING LAST[0:19];
STRING FIRST[0:19];
STRING INITIAL[0:1];
END;
STRING ADDRESS[0:47]; !customer's street address
STRING CITY[0:23]; !city name
STRING ZIP[0:7]; !customer's zip code
STRING CCN[0:15]; !customer's credit-card
! number
STRING PART^NUMBER[0:9]; !part number of item ordered
STRING PART^DESC[0:47]; !description of item ordered
INT QTY^ORDERED; !quantity of item ordered
END;
!Record to access orders file. Contains information
!about an order:
STRUCT .ORDER^RECORD;
BEGIN
STRING ORDER^NUMBER[0:27]; !28-digit order number
STRUCT NAME; !customer's name
BEGIN
STRING LAST[0:19];
STRING FIRST[0:19];
STRING INITIAL[0:1];
END;
STRING ADDRESS[0:47]; !customer's street address
STRING CITY[0:23]; !city name
STRING ZIP[0:7]; !customer's zip code
STRING CCN[0:15]; !customer's credit-card
! number
STRING PART^NUMBER[0:9]; !part number of item ordered
STRING PART^DESC[0:47]; !description of item ordered
INT QTY^ORDERED; !quantity of item ordered
INT DATE^ORDERED[0:2]; !date that the order was
! placed
INT DATE^SHIPPED[0:2]; !date order shipped to
! customer
STRING SHIPPING^STATUS[0:1]; !status of order