SeeView Manual

SeeView Interpreter Interface
HP NonStop SeeView Manual—526355-004
7-4
Edit-Mode Windows
Example 7-1. Example of a User-Defined SEECSTM File
?MENU MyMenu
{-----------
{ This menu provides invocation and access to:
{ Seedit1 Seedit editor on page 3.
{ Seedit2 Seedit editor on page 4 with a larger cache.
{ TACL1 TACL on page 5.
{ PERUSE Peruse on page 6.
{ TACL2 2nd TACL on page 7.
{------------------------------------------------------------------}
Seedit1 <== CALL PageTask ( 3, "seedit1 := seedit cache 100" )
Seedit2 <== CALL PageTask ( 4, "seedit2 := seedit cache 200" )
TACL1 <== CALL PageTask ( 5, "tacl1 := tacl" )
PERUSE <== CALL PageTask ( 6, "peruse := peruse" )
TACL2 <== CALL PageTask ( 7, "tacl2 := tacl" )
*
?PROC PageTask { pg, #taskstmt }
{------------------------------}
{ Declare and display a task on requested page. Window existence is checked
{ by building WITH taskid stmt, executing it, and checking #taskpageno.
{ parameters are pg, #taskstmt text.
{-----------------------------------------------------------------------}
PARM pg; { 1st parm is page number
PARM #taskstmt; { 2nd parm is TASK .. stmt
VARIABLE #s := "TASK " & #taskstmt; { Build TASK tasksyntax stmt
EXECUTE #s; { Execute TASK .. stmt
#s := "WITH " & #TAKE #taskstmt; { Build WITH taskid stmt
EXE #s; { Execute WITH .. stmt
IF #taskpageno THEN BEGIN { If Window exists for task
PAGE #taskpageno; { then just show that page
RETURN; { and Return.
END;
PAGE pg; { Window doesn't exist
WINDOW #taskid CACHE LASTLINE; { Build one on page pg
?SECT Main
{---------
{ Popup mymenu below last referenced menu
{----------------------------------------
BELOW; { Position below caller's
CLEARW; { menu, and clear any windows.
WINDOW MyMenu MENU CACHE UNTIL /*/; { window on mymenu menu