HP TACL Programming Manual page 184

Example of a System Management Program
Monitoring System Operation
8–10
Figure 8-1. Monitoring System Status (Page 9 of 12)
[#IF NOT [#CHARFINDV scanline 6 "?"] |THEN|
[#IF NOT [#CHARFINDV scanline 8 "-P"]
NOT [#CHARFINDV scanline 8 "-M "] AND
[#CHARFINDV scanline 18 " *"]
|THEN| #OUTPUT [#CHARGET scanline 6 FOR 10] using &
backup path.
] == end if
[#CASE [#CHARGET scanline 18 FOR 1]
|D| #OUTPUT [Tcr][#CHARGET scanline 6 FOR 10] &
disk down[Tce]
|H| #OUTPUT [Tcr][#CHARGET scanline 6 FOR 10] &
Hard down[Tce]
|R| #OUTPUT [Tcr][#CHARGET scanline 6 FOR 10] &
reviving[Tce]
|S| #OUTPUT [Tcr][#CHARGET scanline 6 FOR 10] &
Special state[Tce]
|I| #OUTPUT [Tcr][#CHARGET scanline 6 FOR 10] &
Inaccessible[Tce]
|OTHERWISE| [#IF ([#CHARFINDV scanline 8 "-P"] OR
[#CHARFINDV scanline 8 "-M "]) == accept -p or -m
|THEN|
== send a pup listbad command
#APPEND pupcommand listbad [#CHARGET scanline 6
FOR 10]
] == end if
] == end case
] == end if charfind
] == end loop
#POP version scanline badsectorflag puplistdev
#OUTPUT
== ---------------------------------------------------------
== Check for bad disk sectors
== ---------------------------------------------------------
#PUSH pupout addr badsectorflag linecounter
#PUSH maxlines
[#DEF msg STRUCT
BEGIN
CHAR disk(0:12);
CHAR ok(0:1) VALUE OK;
END;
] == end def
#OUTPUT Checking for bad sectors on all disks ...
PUP /INV pupcommand, OUTV pupout/
107365 Tandem Computers Incorporated
AND