Guardian Programmer's Guide

Table Of Contents
Writing a Server Program
Guardian Programmer’s Guide 421922-014
22 - 44
The Process-Order Server ($SER2)
!------------------------------------------------------------
! Procedure to save the Startup message.
!------------------------------------------------------------
PROC START^IT(RUCB,START^DATA,MESSAGE,LENGTH,
MATCH) VARIABLE;
INT .RUCB,
.START^DATA,
.MESSAGE,
LENGTH,
MATCH;
BEGIN
! Copy the Startup message into the START^UP^MESSAGE
! structure and save the message length:
START^UP^MESSAGE.MSG^CODE ':=' MESSAGE[0] FOR LENGTH/2;
MESSAGE^LEN := LENGTH;
END;