SeeView Manual

SeeView Statements and Script Symbols
HP NonStop SeeView Manual—526355-004
9-165
String Intrinsics
#TASKCACHELINE
returns a numeric value representing the ordinal record number in cache of the first
cache line appearing in a window on the current WITH taskid. The WITH
statement indicates which taskid’s attributes are returned by the #TASK...
intrinsics.
You can use this intrinsic to determine where in cache a window is currently
positioned and to scroll the text relative to this position. If the window is a menu,
you can use the intrinsic #MENUCACHELINE instead, without a WITH statement.
For example:
#TASKCACHELINES
returns a numeric value representing the number of text lines contained in the
cache associated with the current WITH taskid. The WITH statement indicates
which taskid’s attributes are returned by the #TASK... intrinsics.
You can use this intrinsic to make the height of a window equal to the number of
lines in the cache for that window. For example:
#TASKCACHEPAGES
returns a numeric value representing the number of cache memory pages
allocated for the cache associated with the current WITH taskid. The WITH
statement indicates which taskid’s attributes are returned by the #TASK...
intrinsics.
?PROC ScrollWindow (tid,n)
{------------------------}
PARM tid; { taskid of window to scroll
PARM n; { "n" lines to scroll +/-
WITH tid; { get "with" taskid
IF NOT #TASKPAGENO THEN RETURN; { no window on taskid
PAGE #TASKPAGENO; { goto window page
LINE #TASKLINE,#TASKCOL; { position window
WINDOW tid NOFRAME { scroll window "n" lines
SIZE #TASKWIDTH,#TASKHEIGHT
CACHE INDEX #TASKCACHELINE + n;
?MENU devices
?PROC ShowDevices (#devtype)
{--------------------------}
{ Show "devices" menu with device names of type = #devtype.
{ Automatically size the height of the window to cache size.
{---------------------------------------------------------}
PARM #devtype; { device type, for example, DISC, TAPE, ..
DELETE devices!; { delete elements in devices menu
LISTDEV #devtype TO devices; { load devices with dev names
WITH devices; { get "with" devices taskid
WINDOW devices FOR #TASKCACHELINES;
?SECT main
CALL ShowDevices ("DISC");