| This is WANROUTER 500 ncl script,
which was edit so to enable event login to DECMCC
$ image_verify = f$environment("verify_image")
$ set verify=image
$ on error then goto exit
$ run SYS$SYSTEM:vrou$script_compile.exe
set ncl default entity node x
set output abort on error true
set output destination sys$common:[mom$system]vrou_PAUL01.cmip
open output
enable output
!
!
! This is an NCL script for the WANrouter
!
! Node: .PAUL01
! MOP Client Name: PAUL01
! Hardware Type: WANrouter-100
! Hardware Address: 08-00-2B-25-A1-8B
!
!
!
! The tower set for the DEC WANrouter
!
! {
! {
! {%X0013},
! {DNA$ProtID$SessCtlV3 Number = 19 },
! {dna$protid$nsp},
! {DNA$RoutingV3 49::00-02:AA-00-04-00-32-08:20 }
! }
! }
!
! Create the Event Dispatcher
!
create event dispatcher
!
! Create and set up the Event Stream: dna5_stream
!
create event dispatcher outbound stream dna5_stream
set event dispatcher outbound stream dna5_stream sink address -
{ -
{ -
{%X0113}, -
{DNA$ProtID$SessCtlV2 Number = 82 }, -
{dna$protid$nsp}, -
{DNA$ProtID$RoutingV3 49::00-02:AA-00-04-00-3A-08:20 } -
} -
}
!
!
!
! Create Modules
!
!
create modem connect
create ddcmp
create hdlc
create lapb
create x25 protocol
create x25 access
create nsp
!
! Set up the Routing Module
!
create routing type L2Router , protocols { ISO8473 }
set routing phaseiv address 2.50
set routing phaseiv prefix 49::
set routing manual L1 algorithm routing vector
set routing manual L2 algorithm routing vector
set routing maximum path splits 1
!
! set some routing default values
!
set routing phaseiv maximum address 1023
set routing phaseiv maximum area 63
set routing lifetime 63
!
!
! Create and set Line: syn-0-0
! to use device: syn-0-0
!
create modem connect line syn-0-0 communication port syn-0-0 -
, profile "NORMAL"
set modem connect line syn-0-0 speed 9600
set modem connect line syn-0-0 clock external
set modem connect line syn-0-0 modem control full
set modem connect line syn-0-0 suppress test indicator true
!
! Create Routing Circuit: syn-0-0
! using HDLC on device: syn-0-0
!
create hdlc link syn-0-0 linktype balanced
set hdlc link syn-0-0 physical line modem connect line syn-0-0
set hdlc link syn-0-0 preferred window size 8
set hdlc link syn-0-0 acknowledge timer 10000
set hdlc link syn-0-0 holdback timer 1000
set hdlc link syn-0-0 receive buffers 9
create hdlc link syn-0-0 logical station syn-0-0
create routing circuit syn-0-0 type hdlc
set routing circuit syn-0-0 data link entity hdlc link syn-0-0 -
logical station syn-0-0
set routing circuit syn-0-0 Manual L2Only Mode FALSE
set routing circuit syn-0-0 L1 cost 20
set routing circuit syn-0-0 L2 cost 20
!
! Set the CSMA-CD circuit
!
create routing circuit csmacd-0 type csma-cd
set routing circuit csmacd-0 Manual L2Only Mode FALSE
set routing circuit csmacd-0 data link entity csma-cd station csmacd-0
set routing circuit csmacd-0 originating queue limit 32
set routing circuit csmacd-0 L1 cost 20
set routing circuit csmacd-0 L2 cost 20
set routing circuit csmacd-0 L1 router priority 64
set routing circuit csmacd-0 L2 router priority 64
!
! Sample commands to set up the Session Control user names and passwords
!
! set session control privileged user name "fred" -
! privileged password "fred"
! set session control non privileged user name "fred" -
! non privileged password "fred"
!
! Sample commands to set up applications.
!
! create session control application <ap-name>
!
! <ap-name> is based on the application's local end user
! address. It is the task name. So, LES$CMIP has a task name of
! LES$CMIP and NM has one of OBJ_219.
!
! set session control application <ap-name>
! user name "fred" password "fred"
!
!
! Execute the user-supplied file of NCL commands before
! enabling anything.
!
!
!
! Enable the event streams
!
!
enable event dispatcher outbound stream dna5_stream
!
!-----------------------------------------------------------------
!add for DECMCC event logging
create event dispatcher outbound stream mcc_evl_stream
set event dispatcher outbound stream mcc_evl_stream sink address -
{ -
{ -
{%X0113}, -
{DNA$ProtID$SessCtlV2 Name = MCC_EVL_SINK }, -
{dna$protid$nsp}, -
{DNA$ProtID$RoutingV3 49::00-02:AA-00-04-00-3A-08:20 } -
} -
}
!
set event dispatcher -
outbound stream MCC_EVL_STREAM sink end user=NAME=MCC_EVL_SINK
!
!
! Enable the event logging stream for DECmcc
!
!
enable event dispatcher outbound stream mcc_evl_stream
! -------------------------------------------------------------
!
! Enable the event dispatcher
!
!
enable event dispatcher
!
!
! Enable the node address watch function
!
!
enable function address watch
!
!
! Enable the Routing Module
!
!
enable routing
!
!
! Enable the NSP Module
!
!
enable nsp
!
! Enable commands related to Circuit: syn-0-0
!
enable modem connect line syn-0-0
enable hdlc link syn-0-0
enable hdlc link syn-0-0 logical station syn-0-0
enable routing circuit syn-0-0
!
!
! Enable the CSMA-CD circuit
!
!
enable routing circuit csmacd-0
!
!
$exit:
$ if .not. image_verify then set verify=noimage
The addition section was created first by used vrou$router_config and
"number=82" was replaced by "Name = MCC_EVL_SINK" . The Dummy script file
which was not compiled.
(menu section outbound stream **node is DECMCC station*** )
The dummy script was then deleted
This section will be added to all node ncl scripts on this network
in the next few days
------------------------------------------
new line
--------
set event dispatcher -
outbound stream MCC_EVL_STREAM sink end user=NAME=MCC_EVL_SINK
This line was added to make easier to understand when viewing the
WANROUTER outbound stream char
(if not added, then you see "sink end user=number=82")
I like things to clear and sensible
===========================================================================*
* *
* Make sure that the customer has update the WANrouter name *
* A new DEMSA will either have no name or the wrong name *
* (The event message will contain a incorrect node Identifier. *
* NO chance of DECmcc event alarming working) *
* ncl> set ncl default entity node PAUL01 *
* ncl> show name *
* name= *
* ncl> rename PAUL01 new name PAUL01 *
* ncl> show name *
* name=PAUL01 *
*==========================================================================*
Gary Malloy
|