OSI/TS Management Programming Manual

Sample Programs
C–2 056786 Tandem Computers Incorporated
! Data communications standard definitions
?nolist, source $system.zspidef.zcomtal
?list
! OSI/TS subsystem definitions
?nolist, source $system.zspidef.zos4tal
?list
! Global declarations
! OSI/TS subsystem ID
STRUCT .zos4^val^ssid(zspi^ddl^ssid^def);
! SPI-related variables
INT scp^file^num, ! SCP file number
spi^err, ! error code from call to SPI procedure
.sta^value[0:(zos4^val^buflen/2) -1], ! status value
.tkn^value[0:(zos4^val^buflen/2) -1], ! token value
.os4^buf[0:(zos4^val^buflen/2) -1], ! cmd/rsp buffer
.save^buf[0:(zos4^val^buflen/2) -1], ! SPI backup buffer
LF := %12; ! line feed symbol
STRING .tkn^value^s := @tkn^value '<<' 1;
! pointer to token value
! SPI-related error messages
INT .message1[0:20] :=
[39, "ZCOM FILE SYSTEM ERROR - NO SUCH DEVICE"];
INT .message2[0:9] := [18, "SECURITY VIOLATION"];
INT .message4[0:14] := [27, "ZCOM OBJECT ALREADY DEFINED"];
INT .message3[0:10] := [19, "SPI RETRIEVAL ERROR"];
INT .message5[0:7] := [14, "-> ADD SU DONE"];
INT .message6[0:8] := [16, "-> START SU DONE"];
INT .message7[0:11] := [22, "RESULTS OF STATUS SU :"];
INT .message8[0:18] :=
[36, "ZCOM OBJECT ALREADY IN STARTED STATE"];
INT .message9[0:11] := [21, "ZCOM OBJECT NOT FOUND"];
INT .messageA[0:8] := [16, "IN STARTED STATE"];
INT .messageB[0:13] := [26, "ZCOM OBJECT IN WRONG STATE"];
INT .messageC[0:9] := [17, "-> STATUS SU DONE"];
INT .messageD[0:19] :=
[37, "OTHER WARNING MSG IN START SU COMMAND"];
! Terminal-related variables
INT term^file^num,
.term^name[0:11],
.term^buf[0:39];
! External declarations for GUARDIAN 90 procedures
?nolist, source $system.system.extdecs0(MYTERM, OPEN, CLOSE,
? STOP, WRITEREAD, WRITE, DEBUG, READ, FILEINFO);
?list
! External declarations for SPI procedures
?nolist, source $system.system.extdecs0(SSGET,SSGETTKN,
? SSINIT, SSMOVE, SSMOVETKN, SSNULL, SSPUT, SSPUTTKN)
?list