$ !
$ ! File name:      TCPIP$EXTENSION_MIB_RUN.COM
$ ! Product:        HP TCP/IP Services for OpenVMS
$ ! Version:        V5.7-13
$ !
$ ! © Copyright 1976, 2009 Hewlett-Packard Development Company, L.P.
$ !
$ ! Confidential computer software.  Valid license  from  HP  and/or its
$ ! subsidiaries required for possession, use, or copying.
$ !
$ ! Consistent with FAR 12.211 and 12.212, Commercial Computer Software,
$ ! Computer Software Documentation,  and  Technical Data for Commercial
$ ! Items  are  licensed to the U.S. Government under vendor's  standard
$ ! commercial license.
$ !
$ ! Neither HP nor any of its subsidiaries shall be liable for technical
$ ! or editorial errors or omissions contained herein.   The information
$ ! in  this document is provided  "as is"  without warranty of any kind
$ ! and is subject  to  change  without  notice.   The warranties for HP
$ ! products are set forth in the express  limited  warranty  statements
$ ! accompanying such products.   Nothing herein should be construed  as
$ ! constituting an additional warranty.
$ !
$     set :=
$     set noon
$     set symbol /scope=(nolocal,global)
$     set symbol /scope=(nolocal,noglobal)/verb
$     serv_id	= f$edit("tcpip$snmp","upcase")
$     serv_home	= f$edit("sys$sysdevice:[''serv_id']","upcase")
$ !
$ ! If planning to start snmp extension subagents (e.g., Chess example),
$ ! do:
$ !
$ ! 1. Remove or comment out the GOTO below.
$ !
$ ! 2. To start a snmp extension subagent, replicate the two lines after
$ !    the "start_subagents" label (see below) for each subagent
$ !
$     goto exit
$ !
$ ! start snmp extension subagents
$ !
$ start_subagents:
$     image = f$edit("sys$system:tcpip$chess_subagent.exe","upcase")
$     call start_subagent 'image' 'serv_id' 'serv_home'
$ !
$ ! completed startup of snmp extension subagents
$ !
$ exit:
$     exit $status .or. %x10000000
$ !
$ ! start snmp subagent (p1 = image, p2 = service id, p3 = service directory)
$ !
$ start_subagent: subroutine
$     set noon
$
$     imgnam = f$parse(p1,,,"name")
$     errnam = f$edit("''p3'''imgnam'.err","upcase")
$     lognam = f$edit("''p3'''imgnam'.log","upcase")
$     prcnam = f$edit(f$extract(0,15,imgnam),"upcase")
$
$     run 'p1' -
	  /detached -
	  /error='errnam' -
	  /output='lognam' -
	  /process_name='prcnam' -
	  /uic='p2'
$
$     exit $status .or. %x10000000
$     endsubroutine