Expand Management Programming Manual

COMMANDS AND RESPONSES
Examples of Commands and Responses
! ***************************************************************
! * main program *
! ***************************************************************
PROC m MAIN;
BEGIN
INT error, ! error upon opening SCP
called^sys, ! sys # of called sys for net cmds
sel^sys, ! sys # of selected sys for net cmds
obj^name[0:8]; ! object name of line for line cmds
! Set up the EXPAND subsystem ID
zexp^val^ssid ':=' [zspi^val^tandem,
zspi^ssn^zexp,
zexp^val^version];
! Dispose of the startup message
CALL INITIALIZER;
! Open SCP
error := open^scp;
IF error THEN CALL DEBUG;
! Set up values for called system and selected system
! for network information commands
called^sys := 3;
sel^sys := 6;
! Set up object name to contain name of line to be
! affected by line commands
obj^name[0] := 8;
obj^name[1] ':=' ["$LHEXP "];
! Issue commands
CALL probe^ncp(called^sys,sel^sys);
CALL info^ncp(called^sys,sel^sys);
CALL info^line^hdlc(obj^name);
CALL abort^line(obj^name);
CALL alter^line(obj^name);
CALL start^line(obj^name);
CALL info^line^hdlc(obj^name);
! Close SCP
CALL CLOSE(scp^file^num);
END; ! of main program
7-134