Conference azur::mcc

5416.0. "Problem with Pooling/NML and NETMAN" by VAXSPO::CHICO () Mon Aug 02 1993 11:16

	Hi, 
I defined an alarm rule than makes a pooling on a VAX 4500 to verify the value 
of a line counter (each 15 minutes). From time to time, the evaluation fails
(an exception is generated) because the remote node aborts the logical link.

	The remote machine runs DECnet-VAX Extensions, so its NML object
runs SYS$SYSTEM:NETMAN.COM instead of NML.EXE .	I looked at the 
SYS$SPECIFIC:[NML$SERVER]netserver.log and found DCL errors (from NETMAN.COM).

	I edited NETMAN.COM to include some $SHOW SYMBOL commands and $SET VER
in order to have some trace. The resulting NETSERVER.LOG is shown bellow.

	When the problem happens, the remote machine seems to be
receiving something wrong in SYS$NET. In fact, it receives a double slash
(//) inside SYS$NET and this confuses the f$element lexical. I checked some
"correct" netserver.log and all them have only a single slash inside SYS$NET.

	Any comment? (VMS V5.5-1 everywhere, MCC EMS 2.3, the version of 
the MCC images is V1.3-0).
Thanks.


$!==========================================================================
$! ***                      SYLOGIN.COM                                  ***
$!==========================================================================
$ set noon	
$!
$ MODO = F$MODE()
$!
$ IF MODO .EQS. "BATCH"    THEN EXIT
$ IF MODO .EQS. "NETWORK"  THEN EXIT
$ ! Copyright (c) 1987, 1990 Digital Equipment Corporation. All rights reserved.
$ IF "" .NES. "" THEN NETSERVER$COMMAND
$ IF ""  .EQS. "" THEN NETSERVER$VERIFY = 0
$ V = F$VERIFY(NETSERVER$VERIFY)

        --------------------------------------------------------

        Connect request received at 29-JUL-1993 10:01:30.10
            from remote process BBDMCC::"0=MCCMGR"
            for object "SYS$COMMON:[SYSEXE]NETMAN.COM"

        --------------------------------------------------------

$	sysnet = f$trnlnm("sys$net")
$ sh symbol sysnet
  SYSNET = "BBDMCC::"0=MCCMGR//@...................""        ! <------
$	userdata = f$element(1,"/",sysnet)
$ sh symbol userdata
  USERDATA = ""
$	userd_len = f$cvui(16,8,userdata)
%DCL-W-INVRANGE, field specification is out of bounds - check sign and size
$ sh symbol userd_len
%DCL-W-UNDSYM, undefined symbol - check validity and spelling
$	if userd_len .ne. 3 then goto nml
%DCL-W-UNDSYM, undefined symbol - check validity and spelling
 \USERD_LEN\
$	userd_1 = f$cvui(24,8,userdata)
%DCL-W-INVRANGE, field specification is out of bounds - check sign and size
$ sh symbol userd_1
%DCL-W-UNDSYM, undefined symbol - check validity and spelling
$	userd_2 = f$cvui(32,8,userdata)
%DCL-W-INVRANGE, field specification is out of bounds - check sign and size
$	userd_3 = f$cvui(40,8,userdata)
%DCL-W-INVRANGE, field specification is out of bounds - check sign and size
$	if userd_1 .ne. 5 then goto nml
%DCL-W-UNDSYM, undefined symbol - check validity and spelling
 \USERD_1\
$	if userd_2 .ne. 0 then goto nml
%DCL-W-UNDSYM, undefined symbol - check validity and spelling
 \USERD_2\
$	if userd_3 .ne. 0 then goto nml
%DCL-W-UNDSYM, undefined symbol - check validity and spelling
 \USERD_3\
$
$	run sys$system:cml