OSI/MHS Management Programming Manual

Examples
OSI/MHS Management Programming Manual—424824-001
C-17
SPI Example in TAL
Objectnm7 [1],
Objectnm7 [0] );
zCom^Obj^APPL ->
CALL Write( Term^Fn,
Objectnm8 [1],
Objectnm8 [0] );
zCom^Obj^GATEWAY ->
CALL Write( Term^Fn,
Objectnm9 [1],
Objectnm9 [0] );
zCom^Obj^DLIST ->
CALL Write( Term^Fn,
Objectnm10 [1],
Objectnm10 [0] );
zCom^Obj^DLISTMEMBER ->
CALL Write( Term^Fn,
Objectnm11 [1],
Objectnm11 [0] );
zCom^Obj^CUG ->
CALL Write( Term^Fn,
Objectnm12 [1],
Objectnm12 [0] );
zCom^Obj^CUGMEMBER ->
CALL Write( Term^Fn,
Objectnm13 [1],
Objectnm13 [0] );
zCom^Obj^ENTRY ->
CALL Write( Term^Fn,
Objectnm14 [1],
Objectnm14 [0] );
OTHERWISE ->
CALL Write( Term^Fn,
Objectnm15 [1],
Objectnm15 [0] );
END; -- case
-- Count number of OBJNAME tokens in response.
Token^Id := zCom^Tkn^ObjName;
SSErr := SSGetTkn( Spi^Buffer,
zSpi^Tkn^Count,
Token^Id,
1,
ObjName^Count );
IF (SSErr <> zSpi^Err^OK) THEN
BEGIN
Write^Term^With^Num ( "SSGetTkn failed", SSErr );
CALL Abend;
END;
-- Retrieve the OBJNAME tokens and print them.
--
FOR ObjName^Index := 1 TO ObjName^Count DO
BEGIN
SSErr := SSGetTkn( Spi^Buffer,
zCom^Tkn^ObjName,
ObjName,
ObjName^Index );
IF (SSErr <> zSpi^Err^OK) THEN
BEGIN
Write^Term^With^Num ( "SSGetTkn failed", SSErr );
CALL Abend;
END;
-- Display object names on terminal.
CALL Write( Term^Fn,
ObjName[1],