SeeView Manual

SeeView Statements and Script Symbols
HP NonStop SeeView Manual—526355-004
9-163
String Intrinsics
You can use this intrinsic is to display each terminal page in the current
environment that has one or more windows on it. For example:
#PRODNAME
returns a string containing the name of the SeeView product. The standard
SeeShell uses this intrinsic.
#PRODNUM
returns a string containing the HP part number for the SeeView product. The
standard SeeShell uses this intrinsic.
#REVISION
returns a string containing the revision date of the current SeeView product. The
format of the revision date is in (ddMMMyy) format where dd is day, MMM is month,
yy is year. The standard SeeShell uses this intrinsic.
#SERVERMODE
returns a string containing the numeric value 0, 1, 2, ... of the PARAM
SERVERMODE mode specified at startup time.
You can use this intrinsic to programmatically determine whether the current
SeeView program is running as a server or as an interactive process. For example:
#SHELL
returns a string containing the name of the current SHELL defined to the SeeView
program. This name can be either a file name (for example,
“$SYSTEM.SYSTEM.SEESHELL”) or a cache name (such as “CACHE
MYSHELL”).
?proc ShowPages
{--------------}
{ Flip to next used page every 3 seconds.
{ Force windows to auto refresh by using WAIT 3,REFRESH
{------------------------------------------------------}
VAR #s;
DO BEGIN
#s := #PAGESUSED;
WHILE #TAKE #s <> "" DO BEGIN { while pages list them
PAGE #TRIM #s; { flip to next page
LINE25; PAGEMSG; [#TIME]; { display line25 msg
" Press break key to stop page display.";
FLUSH;
WAIT 3, refresh; { Refresh and wait 3 secs
END;
END UNTIL (#DROP #PAGESUSED)=""; { Stop if no pages to show
IF #SERVERMODE THEN BEGIN { running as a server
MSG "Running in servermode " & #SERVERMODE;
END;