HP TACL Programming Manual page 182

Example of a System Management Program
Monitoring System Operation
8–8
Figure 8-1. Monitoring System Status (Page 7 of 12)
[#IF NOT deverror |THEN|
#OUTPUT
#OUTPUT All Spooler devices OK.
] == end if
#POP deverror spoolout line collector state size device
#POP errornum
#OUTPUT
== ---------------------------------------------------------
==Display TMF information
== ---------------------------------------------------------
#PUSH volok stat line volume vol status file code
#PUSH eof primary secondary code full
#SET volok -1
#OUTPUT TMF information:
#OUTPUT Collecting TMF status...
TMFCOM /OUTV stat/ STATUS TMF; STATUS VOLUMES
#EXTRACTV stat line == get first status line
[#LOOP |WHILE| NOT [#MATCH volume [line]] |DO|
#OUTPUTV line
#EXTRACTV stat line
] == end loop
#EXTRACTV stat line == underscore
#EXTRACTV stat line == first valid status volume line
[#LOOP |WHILE| NOT [#EMPTYV stat] |DO|
#SETMANY vol _ status, [line]
[#IF [#MATCH DISABLED [status]] |THEN|
#OUTPUT
#OUTPUT [vol] is [status]
#SET volok 0
] == end if
#EXTRACTV stat line
] == end if
[#IF volok |THEN|
#OUTPUT
#OUTPUT All TMF volumes OK.
] == end if
107365 Tandem Computers Incorporated