Re: Help required for Open VMS Scripting (488 Views)
Reply
Occasional Visitor
Ziax
Posts: 2
Registered: ‎10-18-2011
Message 1 of 6 (692 Views)

Help required for Open VMS Scripting

HI,

I am having a very hard time with scripting in OPEN VMS

I have a certain output in a file called test.txt .For example :

 

[WWEWE@http-lx-as code]$ cat test.txt
** Configuration for file "MULTINET:NETWORK_DEVICES.CONFIGURATION" **

Device                           Adapter   CSR Address  Flags/Vector

------                           -------   -----------  ------------

se0  (Shared VAX/VMS Ethernet)   -NONE-    -NONE-       -NONE-

s10  (Serial Line IP)            -NONE-    -NONE-       -NONE-

dn0  (IP over DECNet link)       -NONE-    -NONE-       -NONE-
==========================================================================================

I have written a script in Linux which helps to pick up all the information under the device column in this case se0,s10,dn0.

Can we do a similar thing in OPEN VMS

 

The Linux script is as follows :

SCRIPT :

 

for i in `cat test.txt 2>/dev/null |egrep '^[a-z]' |grep -v '\*\*' | awk '{print $1}'`
> do
>     echo Begin-interface: $i
> done

 


OUTPUT :

 

Begin-interface: se0
Begin-interface: s10
Begin-interface: dn0

 

Let me know if it can be achieved,

Thanking you in advance

Honored Contributor
Steven Schweda
Posts: 9,096
Registered: ‎02-23-2005
Message 2 of 6 (686 Views)

Re: Help required for Open VMS Scripting

Occasional Visitor
Ziax
Posts: 2
Registered: ‎10-18-2011
Message 3 of 6 (670 Views)

Re: Help required for Open VMS Scripting

Wow Steven this is great :)

Will this work on Multinet systems as well and if instead of a file we have to take the output from a command.

For example for the "SHOW System" command if we have to get all the list of PIDs then will doing some modifications in the first line of your mentioned script be helpful.

This is awesome stuff thanks a lot..I will try my hands on it and let you know whether I could get it to work as I want to.

 

Honored Contributor
Steven Schweda
Posts: 9,096
Registered: ‎02-23-2005
Message 4 of 6 (664 Views)

Re: Help required for Open VMS Scripting

Honored Contributor
Phil.Howell
Posts: 496
Registered: ‎08-07-2003
Message 5 of 6 (530 Views)

Re: Help required for Open VMS Scripting

If you want to get details of your system configuration (including multinet) for use elsewhere 

you can use the VMS_Check tool - see this page for how to get and install it.

http://h71000.www7.hp.com/openvms/journal/v7/vms_check_tool.html

 

If you have a more specific requirement for your script

you could also look at the command procedures in this tool for clues as to how to proceed.

 

Phil  

 

Honored Contributor
Hein van den Heuvel
Posts: 6,588
Registered: ‎05-19-2003
Message 6 of 6 (488 Views)

Re: Help required for Open VMS Scripting

A little late...

Heed gthe advise given. Many tasks you are about to do poorly (judging by the unix code example) have been done before and have been done better. Hunt for good examples!

 

You can install GAWK and/or GNV+AWK on OpenVMS. Thus you can solve the original question with:

 

$! Look for a number, followed by spaces and an open parenthesis to identify interface line.

$ gawk /comm="/[0-9] *\(/ {print ""Begin-interface:"",$1}" tmp.tmp

 

In a similar fashion the list of pids can be obtained using

 

$ pipe show system | gawk/comm="NR > 2 {print NR,$1}" sys$pipe

or

$ pipe show system | perl -lane "print $F[0] if $. > 2"

or sorted, using eskimo kiss to seperate loop from end section...

$ pipe show system | perl -lane "push @pids,$F[0] if $. > 2  } {  print for (sort @pids) "

 

fwiw,

Hein




 

The opinions expressed above are the personal opinions of the authors, not of HP. By using this site, you accept the Terms of Use and Rules of Participation.