| Brad -
Also everyone else trying to start up the phaze-iv event sink...
Below is a modified startup file like the one which comes with
the kit. I have found that by setting the mcc_dna4_am_log bit in the
bms and dir startup command procedures we have run into a small got'cha'.
There are 2 work arounds...
( 1 ) The account that you start up the phaze-iv sink from
must have proxy to itself.
--- example ---
$ set def sys$system
$ run authorize
UAF> add/proxy local_node::decmcc_account_name privileged_account_name/default
UAF> exit
$@sys$startup:mcc_startup_dna4_evl
( 2 ) simply modify the startup procedure below and run it.
|
|
|
|
|
- darryl |
v
$! This command file can be envoked from mcc_startup_dir.com. It is
$! commented out in the MCC_STARTUP_DIR.COM. To run it on system
$! startup, update the MCC_STARTUP_DIR.COM file to execute the statement:
$! @SYS$STARTUP:MCC_STARTUP_DNA4_EVL.COM
$!
$! You may also modify the event filter or event sources to tailor the events
$! processed to the specific needs of your network (Refer DECNET PHASE IV
$! ACCESS MODULE USE).
$!
$! To enable the sink to collect events from EVL, following setups are
$! required.
$!
$! 1. Must have default privileges: TMPMBX,NETMBX,DETACH,SYSNAM
$! 2. Must declare network object task to 0 for VMS before V5.4 systems
$! 3. The state of the local sink monitor must be off
$! 4. The local sink monitor must have a name of MCC_DNA4_EVL
$! 5. The event filter must be properly defined on the node where the
$! sink is executed.
$!
$! Note: This command procedure is intended to perform all of these
$! tasks as long as you have the privileges to execute them.
$!
$! Edit the command procedure by replacing <os_node> occurrances with
$! the name of the local system (where DECmcc is located). If you have
$! appropriate privileges (above), then after excuting this procedure
$! you will have:
$! - Your Local Sink Monitor setup to be MCC_DNA4_EVL
$! - A process, MCC_DNA4_EVL listening to DECnet's EVL.
$! - All supported DECnet Phase IV Events will be passed to
$! MCC_DNA4_EVL so that you can GETEVENT against them to
$! collect the events.
$!
$! You can modify this procedure to:
$! - filter unwanted events from being passed to MCC_DNA4_EVL
$! to reduce the amount of work the Local Sink process does.
$! Change the Create Remote Sink or Pass directives to do this.
$! - Non-local events can also be sent to this system by setting up
$! Remote Sinks on other systems that have an Outbound Stream of
$! <os_node>. This can be done in this procedure, or on the remote
$! systems directly.
$!
$!
$!
$! Keep SYS$LOGIN error log files down to a minimum.
$!PURGE MCC_DNA4_EVL.LOG/keep=10
$!
$! check to see if the phaseiv am log bit is set
$!
$ FALSE = 0
$ TRUE = 1
$ prv_ch = 0
$ phz_iv_log = 0
$!
$ if 'f$trn("mcc_dna4_am_log")
$ then
$ !
$ ! check to see if the setprv priv is on
$ ! --- comment ---
$ ! if you can't set this privilege the procedure
$ ! will fail with priv violations
$ !
$ if 'f$priv("setprv")
$ then
$ if 'f$priv("nosysnam")
$ then
$ set proc/priv=sysn ! just in case it isn't set
$ prv_ch = 1
$ endif
$ endif
$ phz_iv_log = 'f$trn("mcc_dna4_am_log")
$ accmode == f$trn("mcc_dna4_am_log",,0,,,"access_mode")
$ tab_nam == f$trn("mcc_dna4_am_log",,0,,,"table_name")
$ deassign/table='tab_nam'/'accmode' mcc_dna4_am_log
$ endif
$!
$!
$!manage/enterprise
!
! Get rid of TASK object and recreate it.
! Not required for VMS V5.4 or later systems.
!
!DELETE node4 <os_node> object task
!
!CREATE node4 <os_node> object task number 0
!set node4 <os_node> object task user DECmcc, pass the_right_one
!
! the state of local sink must be off before clearing up the sink
!
!DISABLE node4 <os_node> local sink MONITOR
!
! before create the local sink, clear it first
!
!DELETE node4 <os_node> local sink MONITOR
!
!CREATE node4 <os_node> local sink MONITOR
!
! the name of the sink monitor must be MCC_DNA4_EVL for DECmcc.
!
!SET node4 <os_node> local sink monitor name = mcc_dna4_evl
!
! Make sure no old Remote Sinks are lying around.
!
!DELETE node4 <os_node> outbound stream <OS_NODE> remote sink MONITOR
! set up the event filter: os_node => should be the local node.
! os_node => is where events will be received.
!
! Set up to sink local events of class 0 to the Local Sink Monitor.
!
!CREATE node4 <OS_NODE> outbound stream <OS_NODE> remote sink MONITOR class = 0,-
! event type = {0,1,2,3,4,5,6,7,8,9}
!
! Set up to sink local events of class 2 to the Local Sink Monitor.
!
!PASS node4 <OS_NODE> outbound stream <OS_NODE> remote sink MONITOR class = 2, -
! event type = {0,1}
!
! Set up to sink local events of class 3 to the Local Sink Monitor.
!
!PASS node4 <OS_NODE> outbound stream <OS_NODE> remote sink MONITOR class = 3, -
! event type = {0,1,2}
!
! Set up to sink local events of class 4 to the Local Sink Monitor.
!
!PASS node4 <os_node> outbound stream <os_node> remote sink MONITOR class = 4, -
! event type = {7,8,9,10,14,15,17,18}
!
! Set up to sink local events from class 5 to the Local Sink Monitor.
!
!PASS node4 <OS_NODE> outbound stream <OS_NODE> remote sink MONITOR class = 5, -
! event type = {0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21}
!
! Set up to sink local events of from class 6 to the Local Sink Monitor.
!
!PASS node4 <OS_NODE> outbound stream <OS_NODE> remote sink MONITOR class = 6, -
! event type = {0,1,2,3,4,5}
!
! Set up to sink local events of from class 7 to the Local Sink Monitor.
!
!PASS node4 <OS_NODE> outbound stream <OS_NODE> remote sink MONITOR class = 7, -
! event type = {0,1,2,3,4,5,6,7,8,9,10,11}
!
! --- or ---
! create or pass
! pass node4 <os_node> outbound stream <os_node> remote sink monitor -
! named event = { *.* }
!
! --- or ---
! pass node4 <os_node> outbound stream <os_node> remote sink monitor -
! named event = { 0.*, 4.* }
!
! start the sink -- set it to state on and create the MCC_DNA4_EVL
! process to receive the events and make them available to DECmcc.
!
!ENABLE node4 0 local sink monitor
!exit
$!
$! re-define the phaseiv am log if it was set...
$!
$ if 'phz_iv_log'
$ then
$ define/system/executive_mode mcc_dna4_am_log 'phz_iv_log'
$ if 'prv_ch'
$ then
$ set proc/priv=nosysn
$ endif
$ endif
$!
$!
$!
$!EXIT
$!
$!
$!
|