Guardian Programmer's Guide

Table Of Contents
Writing a Requester Program
Guardian Programmer’s Guide 421922-014
21 - 21
Coding the Requester Program
!Message returned by $SER3. It contains the order record
!the corresponds to the order number sent in the request
!to $SER3:
STRUCT .ORDER^REC;
BEGIN
STRING ORDER^NUMBER[0:27];!order number
STRUCT NAME; !name of customer
BEGIN
STRING LAST[0:19];
STRING FIRST[0:19];
STRING INITIAL[0:1];
END;
STRING ADDRESS[0:47]; !address of customer
STRING CITY[0:23]; !city
STRING ZIP[0:7]; !customer's zip code
STRING CCN[0:15]; !customer's credit card number
STRING PART^NUMBER[0:9]; !part number for part ordered
STRING PART^DESC[0:47]; !description of part ordered
INT QTY^ORDERED; !quantity ordered
INT DATE^ORDERED[0:2];!date when customer placed order
INT DATE^SHIPPED[0:2];!date when shipped to customer
STRING SHIPPING^STATUS[0:1];!status of order; shipped,
END; ! not shipped...
!-----------------------
!Other global variables:
!-----------------------
STRING PART^NUMBER[0:9]; !10-digit part number
INT SERV1^NUM; !file number for $SER1
INT SERV2^NUM; !file number for $SER2
INT SERV3^NUM; !file number for $SER3
INT DATE^AND^TIME[0:6]; !converted 48-bit time stamp
INT TERM^NUM; !file number for home terminal
STRING .SBUFFER[0:BUFSIZE]; !I/O buffer
STRING .S^PTR; !string pointer
?NOLIST
?SOURCE $SYSTEM.SYSTEM.EXTDECS0(FILE_OPEN_,FILE_CLOSE_,
? PROCESS_CREATE_,PROCESS_GETPAIRINFO_,
? PROCESS_STOP_,FILE_GETINFO_,CONTIME,
?
NUMIN,INITIALIZER,OLDFILENAME_TO_FILENAME_,
? DNUMOUT,WRITEX,WRITEREADX)
?LIST