OSI/TS Management Programming Manual

Sample Programs
C–18 056786 Tandem Computers Incorporated
?NOCODE
! ***********************************************************
! * Global declarations and definitions *
! ***********************************************************
! SPI standard definitions
?NOLIST, SOURCE $system.zspidef.zspital
?LIST
! EMS standard definitions
?NOLIST, SOURCE $system.zspidef.zemstal
?LIST
! OSI/TS subsystem definitions
?NOLIST, SOURCE $system.zspidef.zos4tal
?LIST
! Global declarations
LITERAL true = 1;
LITERAL false = 0;
INT .rcv^name[0:11] := ["$RECEIVE",8*[" "]],
rcv, ! $RECEIVE file number
.startup^msg[0:99],
ct^rd, ! count read
.distr^name[0:11] := [12*[" "]],
distr, ! distributor file number
.distr^prog^file[0:11] := ["$SYSTEM SYS11 EMSDIST "],
! give volume and subvolume where installed
used^len,
error,
spi^err,
ems^err;
STRUCT .spi^buf(zems^ddl^msg^buffer^def),
.sav^buf(zems^ddl^msg^buffer^def);
STRUCT .err^buf(zspi^ddl^error^def);
! Terminal-related variables
INT term^file^num,
text^len,
input^len,
.term^name[0:11],
.term^buf[0:39];
STRING .s^distr^qual := @distr^name[4] '<<' 1,
.s^term^buf := @term^buf '<<' 1,
.end^of^text,
.s^startup^param := @startup^msg[33] '<<' 1;
INT ibuflen := ZEMS^VAL^BUFLEN;
INT msgcount:= 0;
INT msglimit:= 0; ! 0 represents no limit; 100 is typical