Guardian Programmer's Guide

Table Of Contents
Communicating With Magnetic Tape
Guardian Programmer’s Guide 421922-014
12 - 107
Accessing an Unlabeled Tape File: An Example
!------------------------------------------------------------
! Procedure to save Startup message in a global structure.
!------------------------------------------------------------
PROC SAVE^STARTUP^MESSAGE(RUCB,START^DATA,MESSAGE,
LENGTH, MATCH) VARIABLE;
INT .RUCB;
INT .START^DATA;
INT .MESSAGE;
INT LENGTH;
INT MATCH;
BEGIN
! Copy the Startup message into the CI^STARTUP structure:
CI^STARTUP.MSGCODE ':=' MESSAGE[0] FOR LENGTH/2;
END;