Guardian Programmer's Guide

Table Of Contents
Creating and Managing Processes
Guardian Programmer’s Guide 421922-014
16 - 44
Sending and Receiving the Startup Message
? NOLIST
? SOURCE $SYSTEM.SYSTEM.EXTDECS0(INITIALIZER,FILE_OPEN_,
? PROCESS_STOP_,OLDFILENAME_TO_FILENAME_)
? LIST
!------------------------------------------------------------
! Procedure to save the Startup message in a global
! structure.
!------------------------------------------------------------
PROC START^IT(RUCB,START^DATA,MESSAGE,LENGTH,MATCH) VARIABLE;
INT .RUCB,.START^DATA,.MESSAGE,LENGTH,MATCH;
BEGIN
CI^STARTUP.MSGCODE ':=' MESSAGE FOR LENGTH/2;
MESSAGE^LEN := LENGTH;
END;