OSI/TS Management Programming Manual

Sample Programs
056786 Tandem Computers Incorporated C–3
?PAGE
! ***********************************************************
! * start^up *
! ***********************************************************
! This procedure reads the startup message in $RECEIVE.
PROC start^up;
BEGIN
STRUCT startup^msg;
BEGIN
STRUCT default;
BEGIN
INT vol[0:3];
INT subvol[0:3];
END;
STRUCT infile;
BEGIN
INT vol[0:3];
INT subvol[0:3];
INT name[0:3];
END;
STRUCT outfile;
BEGIN
INT vol[0:3];
INT subvol[0:3];
INT name[0:3];
END;
STRUCT parameter;
BEGIN
STRING bytes[0:40];
END;
END;
INT receive^name[0:11] := ["$RECEIVE", 8 * [" "]];
INT rcv^num;
INT count^read;
CALL open(receive^name, rcv^num);
IF <> THEN
CALL debug;
CALL read(rcv^num, startup^msg, $LEN(startup^msg),
count^read);
IF <> THEN
CALL debug;
CALL close(rcv^num);
END;
! ***********************************************************
! * open^scp *
! ***********************************************************