X25AM Management Programming Manual

Commands and Responses
X25AM Management Programming Manual—528037-001
6-155
Examples of Commands and Responses
! ***************************************************************
! * alter^line *
! ***************************************************************
PROC alter^line(obj^name);
INT .obj^name; ! the object name of the line whose
! attributes are to be altered
BEGIN
INT sserror, ! returned by call on SPI procedure
return^token; ! the value of the return token
INT .zx25^map^alter^line^req[0:zx25^map^alter^line^wln-1]
:= zx25^map^alter^line;
INT .alter^line^value(zx25^ddl^alter^line^def);
! Initialize the command buffer
CALL build^cmd(zcom^cmd^alter, zcom^obj^line);
! Put the object-name token in the buffer
sserror := SSPUTTKN(buffer, zcom^tkn^objname, obj^name);
IF sserror THEN
CALL handle^spi^error(sserror); ! error on the call
@alter^line^value := @tkn^value;
! initialize the fields of the extensible structured token
! zx25^map^alter^line to null values
sserror := SSNULL(zx25^map^alter^line^req, alter^line^value);
IF sserror THEN
CALL handle^spi^error(sserror); ! error on the call
! modify the fields that correspond to the attributes
! to be altered
alter^line^value.znetid := zx25^val^netid^tymnet;
alter^line^value.zsrc^addr ':=' ["31102130000092"];
alter^line^value.zcalling^addr := zspi^val^true;
alter^line^value.zl3^window := 2;
alter^line^value.zsyncs := 4;
alter^line^value.zthres := 4;
! Put the token in the command buffer
sserror := SSPUT(buffer, zx25^map^alter^line^req,
alter^line^value);