OSI/AS Management Programming Manual

Management Program Example
Sample Programs
056785 Tandem Computers Incorporated C–13
zSpi^Tkn^Manager,
Mgr^Tkn^Name[1] );
IF (SSErr <> zSpi^Err^OK) THEN CALL Debug;
SSErr := SSPutTkn( Spi^Buffer,
zCom^tkn^ObjName,
ObjName );
IF (SSErr <> zSpi^Err^OK) THEN CALL Debug;
--
-- Initialize the PROFILE structure to null values.
--
SSErr := SSNULL( Add^Prof^L4^map,
Add^Prof^L4 );
IF (SSErr <> zSpi^Err^OK) THEN CALL Debug;
-- Set structure fields with the following attributes:
-- CLASS 3, ALTCLASS 0, MULTIPLEX ON,
-- REXMITTIMEOUT 30.0, TPDUSIZE 2048,
-- WINDOWTIMEOUT 200.0
--
-- The other parameters will have the default values.
--
Add^Prof^L4.zClass := zOsi^Val^Class^3;
Add^Prof^L4.zAlt^Class := zOsi^Val^Class^0;
Add^Prof^L4.zMultiplex := zSpi^Val^True;
Add^Prof^L4.zRexmit^Time := 3000D;
Add^Prof^L4.zTPDU^Size := 2048;
Add^Prof^L4.zWin^Time := 20000D;
SSErr := SSPut( Spi^Buffer,
Add^Prof^L4^map,
Add^Prof^L4 );
IF (SSErr <> zSpi^Err^OK) THEN CALL Debug;
CALL Send^SpiCmd;
CALL Reset^SpiBuf;
-- Open the response data list.
--
DataList^Index := 1;
SSErr := SSGetTkn( Spi^Buffer,
zSpi^Tkn^DataList,
DataList^Index );
IF (SSErr <> zSpi^Err^OK) THEN
BEGIN
-- An error occurred opening the response.
IF (SSErr = zSpi^Err^MisTkn) THEN
BEGIN
-- There is no data list, so there must have
-- been an error. SCP doesn't always check
-- the MAXRESP value. Get the return token
-- value and see what the error is.
--