SNAX/APC Management Programming Manual

Programming Example
B–8 111813 Tandem Computers Incorporated
! Set up the object name to contain the name of the line to
! be affected by the commands.
obj^name[0] := 14;
obj^name[1] ':=' ["$AP01.TDMLU001"];
! Issue commands.
CALL info^lu( obj^name );
CALL stop^lu( obj^name );
CALL alter^lu( obj^name );
CALL start^lu( obj^name );
CALL info^lu( obj^name );
! Close SCP.
CALL CLOSE( scp^file^num );
END; ! of main program