X25AM Management Programming Manual

Commands and Responses
X25AM Management Programming Manual—528037-001
6-153
Examples of Commands and Responses
! get the value of the return token
sserror := SSGETTKN(buffer, zspi^tkn^retcode, return^token);
IF sserror THEN
CALL handle^spi^error(sserror); ! error on the call
RETURN return^token;
END; ! of call^scp
! ***************************************************************
! * build^cmd *
! ***************************************************************
PROC build^cmd(cmd, obj^type);
INT cmd, ! the command number
obj^type; ! the object type
BEGIN
INT sserror; ! returned by call on SPI procedure
sserror := SSINIT(buffer,zx25^val^buflen,zx25^val^ssid,
zspi^val^cmdhdr,cmd,obj^type,0);
IF sserror THEN
CALL handle^spi^error(sserror); ! error on the call
! put the manager token in the buffer
sserror := SSPUTTKN(buffer, zspi^tkn^manager, manager^name);
IF sserror THEN
CALL handle^spi^error(sserror); ! error on the call
END; ! of build^cmd
! ***************************************************************
! * start^line *
! ***************************************************************
PROC start^line(obj^name);
INT .obj^name; ! The object name of the line to be started
BEGIN
INT sserror, ! returned by call on SPI procedure
return^token; ! the value of the return token
! Initialize the command buffer
CALL build^cmd(zcom^cmd^start, zcom^obj^line);
! Put the object-name token in the buffer
sserror := SSPUTTKN(buffer, zcom^tkn^objname, obj^name);
IF sserror THEN