List VTERM parameters macro
The purpose of this macro is to make it easier to debug the problem where a telnet_msd server reports that it cannot find any usable VTERMs that match its device properties of login/slave value, slave id string (reported as 'id = XXX' in the parameter string) and locker. It will display those values for all vterms that match the vterm_starname string given as an argument to the macro. It is not necessary to include the terminating asterix on the string, the macro does that for you.
Some examples:
Using the default star_name of telnet
list_vterm_parameters
Device Information for %phx_vos#telnet_m15.1 locked by: Noah_Davids.CAC
login slave: 1
parameters:
Device Information for %phx_vos#telnet_m15.2 locked by:
login slave: 1
parameters:
Device Information for %phx_vos#telnet_m15.3 locked by:
login slave: 1
parameters:
Device Information for %phx_vos#telnet_m15.4 locked by:
login slave: 1
parameters:
|
Using the star name of vterm
list_vterm_parameters vterm
Device Information for %phx_cac#vterm.2.1 locked by:
login slave: 1
parameters:
Device Information for %phx_cac#vterm.2.2 locked by:
login slave: 1
parameters:
Device Information for %phx_cac#vterm.2.3 locked by:
login slave: 1
parameters:
Device Information for %phx_cac#vterm.2.4 locked by:
login slave: 1
parameters:
|
---------------------------- list_vterm_parameters --------------------------
vterm_starname: telnet
|
& list_vterm_parameters begins here
&
& list_vterm_parameters.cm
& version 1.0 06-08-31
& version 1.1 10-11-26 Added disclaimer
& Noah Davids Stratus CAC noah.davids@stratus.com
&
& This software is provided on an "AS IS" basis, WITHOUT ANY WARRANTY OR ANY
& SUPPORT OF ANY KIND. The AUTHOR SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTIES
& OF MERCHANTABILITY OR FITNESS FOR ANY PARTICULAR PURPOSE. This disclaimer
& applies, despite any verbal representations of any kind provided by the
& author or anyone else.
&
&begin_parameters
VTERM_STARNAME vterm_starname:string=telnet
&end_parameters
&
&echo no_input_lines no_command_lines no_macro_lines
&
&if (process_type) ^= interactive
&then set_ready -format off
&attach_input
&set_string old_dir (current_dir)
change_current_dir (process_dir)
&
&
& save a list of all vterm devices in the file named map.
attach_default_output map
list_devices -type vterm
detach_default_output
&
&
& extract out just the devices that match the vterm_starname. Put a
& key string "END" at the end of the file so we know when to stop looping
display map -match &VTERM_STARNAME& -output_path map2 -no_header
attach_default_output map2 -append
display_line END
detach_default_output
&
&
& loop through the map2 file and for each device get the device info. Put
& all the results in map3.
&set line 1
attach_default_output map3
&while (contents map2 &line&) ^= 'END'
display_device_info (contents map2 &line&)
&set line (calc &line& + 1)
&end
display_line END
detach_default_output
&
&
&set line 1
&while (contents map3 (calc &line&)) ^= 'END'
&set_string map3_line (contents map3 &line&)
&if (index (string &map3_line&) 'Device Information for %') = 0
&then &goto login_slave
attach_default_output map4
who_locked (substr (string &map3_line&) (index (string &map3_line&) #))
detach_default_output
&set_string user (substr (translate (contents map4 2) '{}' '()') 31)
&set_string user (substr (string &user&) 1 (index (string &user&) ' '))
display_line &map3_line& locked by: &user&
&goto skip
&
&label login_slave
&if (index (string &map3_line&) 'login slave:') = 0
&then &goto parameters
display_line &map3_line&
&goto skip
&
&label parameters
&if (index (string &map3_line&) 'parameters:') = 0
&then &goto skip
display_line &map3_line&
&
&label skip
&set line (calc &line& + 1)
&end
change_current_dir &old_dir&
&
& list_vterm_parameters ends here
|
Send comments and suggestions