SeeView Manual

SeeView Directives
HP NonStop SeeView Manual—526355-004
8-4
SEEVIEW
The version has a format of Vxx or VxxSPR, where V represents the general
software release series, xx represents the release version (D40, for example), and
SPR represents the SPR version (such as D40AAD).
Example 8-2 shows how to use the SEEVIEW directive.
Example 8-2. Example of SEEVIEW Directive
?SEEVIEW D40 { Script requires SeeView D40 or later
?SECTION TaclWindow
{------------------}
{ Display a tacl window that passes F16
{ through to TACL. So that user can get TACL
{ help by typing on the SILL and pressing F16.
{--------------------------------------------}
PAGE #LASTPAGE;
TASK TACL;
WINDOW TACL CACHE LL KEYS SILL F16
PRODUCTION "CALL PassFkeyCmd(Tacl)";
?PROC PassFkeyCmd(tid);
{---------------------}
{ Pass fkey pressed to taskid=tid along with cmd on the sill
{ Note that the task expects the terminal fkey data stream,
{ so we must build the <SOH> <fkey> <row> <col> data stream.
{-----------------------------------------------------------}
PARM tid;
VAR #s
, #fkeyTransform:= "@ABCDEFGHIJKLMNO" & { f1..f16
"`abcdefghijklmno" & { sf1..sf16
"PQRSTUVW" & "pqrstuv" { others
, #fk:=#char(1) & { <soh>
#fkeyTransform[#fkey] & { <fkey> code
#char(32+0) & { <row>
#char(32+#fkeycol-#menucol-1) { <column>
;
WITH tid; { pickup old prompt
#s := #TASKPROMPT & #MENUINPUT; { #menuinput is sill input
WRITE tid, #MENUINPUT & #fk; { write cmd & fkey to tid
WRITE tid CACHE -1 UPDATE,#s; { suppress #fk in cache
LINE #MENULINE,#MENUCOL; { update window
WINDOW tid CACHE LASTLINE
SIZE #MENUWIDTH,#MENUHEIGHT
PRODUCTION #MENUPRODUCTION
KEYS SAME NOFRAME;