X25AM Management Programming Manual

Commands and Responses
X25AM Management Programming Manual—528037-001
6-158
Examples of Commands and Responses
IF error THEN CALL DEBUG;
! Set up the manager name to contain the name of an
! X25AM line
manager^name ':='
["\SYS01 $X25LN03 "];
! Set up the object name to contain the name of the line to
! be affected by the commands
obj^name[0] := 8;
obj^name[1] ':=' ["$LN08 "];
! Issue commands
CALL info^line(obj^name);
CALL stop^line(obj^name);
CALL alter^line(obj^name);
CALL start^line(obj^name);
CALL info^line(obj^name);
! Close SCP
CALL CLOSE(scp^file^num);
END; ! of main program