Guardian Programmer's Guide

Table Of Contents
Writing a Requester Program
Guardian Programmer’s Guide 421922-014
21 - 18
Coding the Requester Program
The Code for the Sample Requester Program
The rest of this section lists the code for the sample requester program.
?INSPECT, SYMBOLS, NOCODE
!NOLIST, SOURCE $SYSTEM.ZSYSDEFS.ZSYSTAL
?NOLIST, SOURCE $TOOLS.ZTOOLD04.ZSYSTAL
?LIST
!---------------
!Literals:
!---------------
LITERAL MAXFLEN = ZSYS^VAL^LEN^FILENAME;
LITERAL BUFSIZE = 512;
!----------------
!Data structures
!----------------
!Startup message data structure:
STRUCT .START^UP^MESSAGE; !Startup message to send to
BEGIN ! server
INT MSG^CODE; !-1 for Start-Up message
STRUCT DEFAULT; !default file name
BEGIN
INT VOLUME[0:3];
INT SUBVOL[0:3];
END;
STRUCT INFILE; !INFILE name
BEGIN
INT VOLUME[0:3];
INT SUBVOL[0:3];
INT FILENAME[0:3];
END;
STRUCT OUTFILE; !OUTFILE name
BEGIN
INT VOLUME[0:3];
INT SUBVOL[0:3];
INT FILENAME[0:3];
END;
STRING PARAM[0:529]; !parameter string
END;
INT MESSAGE^LEN; !length of Startup message