AWAN 3883/4/5 Access Server Configuration and Management Manual

Configuring the 6530 Gateway Feature
AWAN 3883/4/5 Access Server Configuration and Management Manual—424242-001
10-5
Host-Issued VT Signal Window Commands
Sample TACL Macro
The following TACL macro facilitates sending signal window commands. This macro
could be invoked by a user’s TACLCSTM file each time the user logs on to the Tandem
NonStop server. This sequence is designed to work with no adverse affects if the user
logs on with a 6530 terminal or emulator.
?SECTION vtsig ROUTINE
==
== To use: LOAD VTSIG
== VTSIG <VT signal comand> [ <argument> ]
==
#FRAME
#PUSH ^text ^word
[#DEF ^l25esc DELTA|BODY|== escapes for line25 only
hk13i27iio$]
#set/type text/ ^l25esc [#DELTA/commands ^l25esc/]
[#DEF ^l25sig DELTA|BODY|== escapes for line25 hidden + "SIG"
hk27iio$27ii6?SIG$]
#set/type text/ ^l25sig [#DELTA/commands ^l25sig/]
==* macro to scan the arguments
[#DEF getcmd ROUTINE
| body |
SINK [#ARGUMENT/VALUE ^word/
KEYWORD/WORDLIST ref dis unl l25 br ic dc im cu cd cr cl ch ct
f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16
sf1 sf2 sf3 sf4 sf5 sf6 sf7 sf8 sf9
sf10 sf11 sf12 sf13 sf14 sf15 sf16
ru up rd dn sru sup srd sdn np next
pp prev snp snext spp sprev ins del sins ret sret l25to
keydis keyref keyunl keyl25 keybr keydc keyic keyim keysig/]
#SET ^text [#CHARGET ^word 1 TO 3]
[#IF [#COMPAREV ^text "key"] OR ^word '=' "l25to"
|THEN|
SINK [#ARGUMENT/VALUE ^text/TEXT]
#OUTPUT [^l25sig] [^word] [#CHARGET ^text 1 TO 2][^l25esc]
|ELSE|
#OUTPUT [^l25sig] [^word][^l25esc]
]
]
getcmd [#rest]
#UNFRAME