$ GOTO BEGIN
$!+
$!          TCPIP$EXTENSION_MIB_RUN.COM
$!	    V5.1-00
$!
$! Copyright 1998 Compaq Computer Corporation
$!
$! COMPAQ Registered in U.S. Patent and Trademark Office.
$!
$! Confidential computer software. Valid license from Compaq or
$! authorized sublicensor 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.
$!
$! Command procedure to do run for optional extension sub-agents.  
$! Assumption is that this procedure is called from TCPIP$SNMP_RUN.COM
$! and required privileges are already enabled by the caller.
$!
$! Modifications
$!
$! 28-JUL-1998     Sheldon Bishov  sdb-v5.0-00
$!      - Initial version, based on code in TCPIP$SNMP_STARTUP.COM
$!
$! 24-sep-1998     Sheldon Bishov  sdb-v5.0-01
$!      - Check for protection on image.  Otherwise run/detached can go
$!          ok but process disappears without any message.
$!
$! 07-mar-2000     Sheldon Bishov  V5.1-00
$!      Update with current example (Chess).
$!
$!-----------------------------------------------------------------------------
$!
$BEGIN:
$!
$ ON CONTROL_Y THEN GOTO EXIT
$!
$ GOTO EXIT
$!
$! If planning to run the Chess example copy TCPIP$CHESS_SUBAGENT.EXE
$! from TCPIP$SNMP_EXAMPLES, or from location where built, to SYS$SYSTEM.
$! Remove or comment out the GOTO above.
$! The name used as PROCNAME must be the same one used in
$! TCPIP$EXTENSION_MIB_SHUTDOWN.COM, and be have no more than 15 characters.
$!
$! Edit the next two lines and replicate all three lines as needed.
$ IMAGENAME = "TCPIP$CHESS_SUBAGENT"
$ PROCNAME  = "TCPIP$CHESS_AGT" ! Process name limit is 15 characters.
$ GOSUB RUN_AGENT
$!
$EXIT:
$ EXIT
$!
$RUN_AGENT: ! sdb-v5.0-01
$ PROTSTRING = F$FILE("SYS$SYSTEM:''IMAGENAME'.EXE", "PRO")
$ IF F$LOCATE("WORLD=RE",PROTSTRING) .GE. F$LENGTH(PROTSTRING)
$ THEN
$   WRITE SYS$OUTPUT "%TCPIP-W-PROTECT, protection not W:RE on image ''IMAGENAME'.EXE."
$ ELSE
$   RUN	SYS$SYSTEM:'IMAGENAME' -
 	/DETACHED -
	/ERROR=SYS$SYSDEVICE:[TCPIP$SNMP]'IMAGENAME'.ERR -
	/OUTPUT=SYS$SYSDEVICE:[TCPIP$SNMP]'IMAGENAME'.LOG -
	/PROCESS_NAME='PROCNAME' -
	/UIC=TCPIP$SNMP
$ ENDIF
$ RETURN