SeeView Manual

Sample Script
HP NonStop SeeView Manual—526355-004
C-4
PARM #sv; { #sv = subvol for FUP INFO #sv.*
VAR #s { scratch string variable
,#z { scratch string variable
;
TASK fup; { Fup task to do copy to Files menu
#subvol := #sv; { set global to prompt response
WITH fup; { with fup for #TASKxxx intrinsics
WRITE fup,"info " & #subvol & ".*"; { do FUP INFO #sv.*
DO BEGIN { Parse response until info starts
READ fup, #s; { with a $ or \ or prompt.
#z := #TAKE #s; { #z is first token in response
END UNTIL #TASKPROMPTING OR (#z="$") OR (#z="\");
DELETE Files!; { Clean out Files menu
TASK fup COPY Files; { start copy "info" to FILES cache
BELOW; CW; { Below the subvol prompt, clear, and
WINDOW Files { display Files menu in real time.
MENU "CALL FileMaint (#take #menutext)" { default production
,"CALL ShowHelp ( MyMenu,'This script')" { shifted production
SIZE #MENUWIDTH { width of menu
PAGES { allow pagenation
NOFRAME; { don't re-draw frame
MSG (REVERSE) "Press Shift-Returnfor help."; { advise help available
?PROC ShowHelp { cacheid, #target }
{---------------------------------}
{ Display help text window on cache = "cacheid."
{ Position help text window beside calling menu.
{ Window help text begins with the text contained in #target.
{------------------------------------------------------------}
PARM cacheid { Cacheid where help text & target are located
,#target { Target string to search for in "cacheid."
BESIDE; { Position beside callers menu
WINDOW cacheid { Window on #target text in cacheid cache.
CACHE #target UNTIL"//" NOCURSOR
HEAD "" SIZE 80;
?PROC FileMaint { #file }
{-----------------------}
{ This proc performs marked operations on the marked files by:
{
{ 1) ACCEPT-ing command marks into a "scratch" cache from "FILES" menu.
{ 2) Reading each line in "scratch" cache to determine files marked.
{ 3) Read "FILES" cache to determine filename corresponding to mark.
{ 4) Searching MyMenu for the command #rule corresponding to the mark.
{ 5) Exploding rules for <file> operation corresponding to the mark.
{ 6) If user input is required, then prompts for parameters.
{ 7) Performs marked operation according to the rule in cache MyMenu.