Guardian Programmer's Guide

Table Of Contents
Writing a Server Program
Guardian Programmer’s Guide 421922-014
22 - 32
The Process-Order Server ($SER2)
!------------------------
!Other global variables:
!------------------------
STRING .S^PTR; !pointer to end of string
INT TERM^NUM; !file number for terminal
INT .BUFFER[0:BUFSIZE/2 - 1];!I/O buffer
STRING .SBUFFER := @BUFFER[0] '<<' 1; !string pointer to I/O
! buffer
INT REPLY^LEN; !length of reply buffer
INT REPLY^ERROR; !error value returned to
! requester
INT ORD^FNUM; !file number for orders file
INT INV^FNUM; !file number for inventory
! file
INT RECV^NUM; !file number for $RECEIVE file
INT .RECEIVE^INFO[0:16]; !returned by
! FILE_GETRECEIVEINFO_
?NOLIST
?SOURCE
$SYSTEM.SYSTEM.EXTDECS0(INITIALIZER,FILE_OPEN_,FILE_GETINFO_,
? PROCESS_STOP_,FILE_GETRECEIVEINFO_,
? KEYPOSITION,DNUMOUT,WRITEX,NUMOUT,
? OLDFILENAME_TO_FILENAME_,TIMESTAMP,
? REPLYX,READUPDATELOCKX,
? WRITEUPDATEUNLOCKX,UNLOCKREC,
? INTERPRETTIMESTAMP,JULIANTIMESTAMP,
? READUPDATEX)
?LIST