X25AM Management Programming Manual

Commands and Responses
X25AM Management Programming Manual—528037-001
6-156
Examples of Commands and Responses
IF sserror THEN
CALL handle^spi^error(sserror); ! error on the call
return^token := call^scp;
IF return^token <> zspi^err^ok THEN ! an error occurred
! Handle the possible errors for the ALTER LINE command
END; ! of alter^line
! ***************************************************************
! * info^line *
! ***************************************************************
PROC info^line(obj^name);
INT .obj^name; ! The object name of the line whose
! attribute values are to be returned
BEGIN
INT sserror, ! returned by call on SPI procedure
return^token; ! the value of the return token
INT zx25^map^info^line^resp
[0:zx25^map^info^line^wln-1] :=
zx25^map^info^line;
INT .info^line^value(zx25^ddl^info^line^def);
! Initialize the command buffer
CALL build^cmd(zcom^cmd^info, 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
! Put the subordinate-modifier token in the buffer
sub^value := zcom^val^sub^none;
sserror := SSPUTTKN(buffer, zcom^tkn^sub, sub^value);
IF sserror THEN
CALL handle^spi^error(sserror); ! error on the call
return^token := call^scp;
IF return^token <> zspi^err^ok THEN ! an error occurred
BEGIN