$ !
$ ! File name:      TCPIP$EXTENSION_MIB_RUN.COM
$ ! Product:        VSI TCP/IP Services for OpenVMS
$ ! Version:        V6.0-24
$ !
$ ! Copyright 2015, 2024 VMS Software, Inc. and Hewlett Packard          
$ ! Enterprise Development L.P.                                          
$ !                                                                      
$ ! VMS SOFTWARE, INC. CONFIDENTIAL. This software is confidential       
$ ! proprietary software licensed by VMS Software, Inc., and is not      
$ ! authorized to be used, duplicated or disclosed to anyone without     
$ ! the prior written permission of VMS Software, Inc.                   
$ ! Copyright 2015, 2024 VMS Software, Inc.                              
$ !
$ ! HPE CONFIDENTIAL. This software is confidential proprietary software 
$ ! licensed by Hewlett Packard Enterprise Development, LP, and is not   
$ ! authorized to be used, duplicated or disclosed to anyone without the 
$ ! prior written permission of HPE.                                     
$ ! Copyright 2015, 2024 Hewlett Packard Enterprise Development, LP            
$ !                                                                      
$ !
$     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