OSI/TS Management Programming Manual

Sample Programs
056786 Tandem Computers Incorporated C–13
! Get terminal name and open terminal.
CALL MYTERM(term^name);
CALL OPEN(term^name, term^file^num);
! Get the startup message.
CALL start^up;
! Open SCP process.
error := open^scp;
IF error THEN
CALL DEBUG;
! Set up object name for first ADD SU command.
obj^name[0] := 12;
obj^name[1] ':=' ["$TT01.#S6000"];
! Issue first ADD SU command.
error := add^su(obj^name);
IF error THEN
goto exit;
! Set up object name for second ADD SU command.
obj^name[0] := 12;
obj^name[1] ':=' ["$TT01.#S6001"];
! Issue second ADD SU command.
error := add^su(obj^name);
IF error THEN
goto exit;
! Set up object name for START SU command.
obj^name[0] := 10;
obj^name[1] ':=' ["$TT01.#S* "];
! Issue START SU * command.
error := start^su(obj^name);
IF error THEN
goto exit;
! Set up object name for STATUS SU * command.
obj^name[0] := 10;
obj^name[1] ':=' ["$TT01.#S* "];
! Issue STATUS SU * command.
error := status^su(obj^name);
IF error THEN
goto exit;
exit:
! Close the terminal file.
CALL CLOSE(term^file^num);
! Close the SCP file.
CALL CLOSE(scp^file^num);