Conference azur::mcc

4997.0. "V1.3 SNMP interface reports" by BWTEAL::WOESTEMEYER (Why??...Why not!!!) Tue May 04 1993 12:43

Well, here we go again.  After spending many hours debuging the SNMP 
interface graphs in V1.2, I find it needs to be done in V1.3.  I had
hoped the notes that indicated that the reports package was being re-done 
for 1.3 would mean working reports.  I know that some work was done, its
not aborting the same way it used to.

Attached is a log file from one attempt at hourly reports, the same happens
for the daily report.  ANY COMMENTS!!.

Steve Woestemeyer
CSC/CS - Network Support Group.
------------------------------------------------------------------------

$!
$! This command procedure is always run when anybody on the entire system
$! logs in. It is equivalent to LOGIN.COM except that the instructions
$! contained herein are executed everytime anyone on the VMS system
$! logs in to their account.
$!
$! For interactive processes, turn on Control T, and set the terminal type
$!
$ IF (F$MODE() .EQS. "NETWORK") THEN EXIT
$ IF (F$MODE() .EQS. "INTERACTIVE") THEN SET CONTROL=T
$ IF (F$MODE() .EQS. "INTERACTIVE") THEN SET TERMINAL/INQUIRE
$!
$! For MicroVAX systems only, use the command INSTALL/COMMAND
$! and MOUNT/NOASSIST.
$!
$ IF (.NOT. F$TRNLNM("SYS$MICROVAX")) THEN GOTO SKIP_MICROVAX_COMMANDS
$ MOU*NT :== MOUNT/NOASSIST
$SKIP_MICROVAX_COMMANDS:
$!
$! Place your site-specific LOGIN commands below
$! ty sys$manager:welcome.txt
$!
$ if f$mode() .eqs. "NETWORK" then $ exit
$ if f$mode() .eqs. "BATCH" then $ set proc/priv=all
$ ldr:==dir/size/date
$ mccdcl:==manage/enterprise
$ MAIN:==SYS$SYSDEVICE:[WOESTEMEYER]
$ MAI :==SYS$SYSDEVICE:[WOESTEMEYER
$ define mcc_init SYS$SYSDEVICE:[WOESTEMEYER.com]mcc_ini.com
$ priv:==@SYS$SYSDEVICE:[WOESTEMEYER.com]privs
$ sf  :==@SYS$SYSDEVICE:[WOESTEMEYER.com]sf
$ ed  :==@SYS$SYSDEVICE:[WOESTEMEYER.com]ed
$ lps :==@SYS$SYSDEVICE:[WOESTEMEYER.com]lps
$ mccwin:==@SYS$SYSDEVICE:[WOESTEMEYER.mcc]mwin
$ decw$book == "sys$common:[decw$book],dka200:[decw$book]"
$ XV == "$sys$sysdevice:[woestemeyer.exe]xv"
$ DEFINE SOFTPC$FLOPPY DUA2:
$ DEFINE BIN DAD2:,DAD3:,DAD4:,DAD5:,DAD6:,DAD7:
$ DEFINE decw$book dka200:[decw$book],SYS$COMMON:[DECW$BOOK]
$ set prompt=FTEST"> "
$!MCC_RPTS_TCPIP_INT_HOURLY_GRAPH_DTR.COM
$!************************************************************
$!  Copyright (c) Digital Equipment Corporation, 1990
$!  All Rights Reserved.  Unpublished rights reserved
$!  under the copyright laws of the United States.
$!  
$!  The software contained on this media is proprietary
$!  to and embodies the confidential technology of 
$!  Digital Equipment Corporation.  Possession, use,
$!  duplication or dissemination of the software and
$!  media is authorized only pursuant to a valid written
$!  license from Digital Equipment Corporation.
$!
$!  RESTRICTED RIGHTS LEGEND   Use, duplication, or 
$!  disclosure by the U.S. Government is subject to
$!  restrictions as set forth in Subparagraph (c)(1)(ii)
$!  of DFARS 252.227-7013, or in FAR 52.227-19, as
$!  applicable.
$!************************************************************
$!***************************************************************************
$! This procedure is submitted by MCC_RPTS_TCPIP_INT_HOURLY_GRAPH.COM
$!***************************************************************************
$ THIS_PROCESS = ""
$ PID = F$PID(THIS_PROCESS)
$ show sym p1
  P1 = "TL350-1"
$ show sym p2
  P2 = "9"
$ show sym p3
  P3 = "16-APR-1993 09:00:00.00"
$ show sym p4
  P4 = "18-APR-1993 09:00:00.00"
$! show sym PID
$ TIME = F$TIME()
$ DAY = F$CVTIME(TIME,,"DAY")
$ MONTH= F$CVTIME(TIME,,"MONTH")
$ YEAR = F$CVTIME(TIME,,"YEAR")
$ HOUR = F$CVTIME(TIME,,"HOUR")
$ MIN = F$CVTIME(TIME,,"Minute")
$ SEC = F$CVTIME(TIME,,"second")
$ HUNDREDTH = F$CVTIME(TIME,,"HUNDREDTH")
$ space1 = " "
$ 
$ define interface_id_file int_id_tmp.h00000081040845
$ define int_graph_temp1 int_graph.h00000081040845
$ create  NODE_HOLD_h00000081040845.grm   
$!* The following line is intentionally kept blank.

$ define mcc$node1 "TL350-1"
$ define mcc$INTERFACE_ID1 "9"
$ define mcc$date1 "16-APR-1993 09:00:00.00"
$ define mcc$date2 "18-APR-1993 09:00:00.00"
$ define mcc$report_file "TEST_HOUR.GRM"
$!
$! Enter datatrieve and store data and interfaces.
$!
$ datatrieve/interface=character_cell
VAX DATATRIEVE V5.1
Digital Query and Report System
Type HELP for help
 
 set verify
!
! Ready database.
!
 Ready MCC_EXPORT shared read

 DECLARE NODE_HOLD PIC X(255).
 DECLARE INTERFACE_ID_HOLD PIC X(16).
 DECLARE DATE1_HOLD USAGE DATE.
 DECLARE DATE2_HOLD USAGE DATE.
 DECLARE NODE_HOLD1 COMPUTED BY FN$UPCASE(snmp).
 NODE_HOLD = FN$TRANS_LOG("MCC$NODE1")
 INTERFACE_ID_HOLD = FN$TRANS_LOG("MCC$INTERFACE_ID1")
 DATE1_HOLD = FN$DATE(FN$TRANS_LOG("MCC$DATE1"))
 DATE2_HOLD = FN$DATE(FN$TRANS_LOG("MCC$DATE2"))
!
! Find data
!
 Find  MCC_SNMP_INTERFACE with NODE_HOLD1 containing NODE_HOLD
[338 records found] 
 if INTERFACE_ID_HOLD NE "999" THEN Find current with INTERFACE = INTERFACE_ID_HOLD
[169 records found] 
 Find   current   with time_STAMP between DATE1_HOLD and DATE2_HOLD
[48 records found] 
 Find current with exp_cvr_statistics = 1
[48 records found] 
!
! Define file to hold data.
!
 define file for int_graph_temp
 ready  int_graph_temp write
 int_graph_temp = current

!
! Write interfaces we are reporting on to a file.
!
 reduce current to interface

 on interface_id_file
[Looking for statement] 
 for a in current
[Looking for statement] 
 print a.interface (-)

!
! Done. Exit DTR
!
 EXIT
$
$open/read/error=file_open_error infile int_id_tmp.h00000081040845
$ read/end_of_file=normal_exit  infile interface_id_rec
$ count_hold = 0
$ loop_read_process_int_id:
$	count_hold = count_hold + 1
$	interface = F$EDIT(interface_id_rec,"COLLAPSE")
$	define hold$interface 9
$	Define MCC$INT_GRAPH_FILE int_id_h00000081040845.grl
$	datatrieve/interface=character_cell
VAX DATATRIEVE V5.1
Digital Query and Report System
Type HELP for help
 
		:tcpip_int_hourly_graph_rpt
Record number out of range for collection. 
"TIME_STAMP" is undefined or used out of context. 
Record number out of range for collection. 
"TIME_STAMP" is undefined or used out of context. 
"A.INBOUND_UTILIZATION" is undefined or used out of context. 
	exit
$!
$! Do the graph. 
$!
$	graph/load/nointeractive/monochrome=int_id_h00000081040845 int_id_h00000081040845  mcc_reports_files:mcc_rpts_lgraph
\
[?25h
%GRAPH-W-INVLOAD, Your load file, INT_ID_H00000081040845, had invalid syntax or was not accessible.
$	append int_id_h00000081040845.grm node_hold_h00000081040845.grm
%APPEND-E-OPENIN, error opening SYS$SYSDEVICE:[WOESTEMEYER]INT_ID_H00000081040845.GRM; as input
-RMS-E-FNF, file not found
  WOESTEMEYER  job terminated at  4-MAY-1993 08:46:23.92

  Accounting information:
  Buffered I/O count:             362         Peak working set size:    7382
  Direct I/O count:              1019         Peak page file size:     16470
  Page faults:                   6099         Mounted volumes:             0
  Charged CPU time:           0 00:00:24.57   Elapsed time:     0 00:00:53.13

    Hi Steve,
    
    	It isn't a good news hear that also in MCC v1.3 (that I doesn't
    	test yet) there are still the old reports problem...
    
    	I don't know if you've already see the other topic related to
    	the SNMP interface graphs, from your log I see that at least
    	the sintax error on the command file was solved (a DECLARE
    	without the "." terminating the directive), if you want
    	I could send you a copy of the procedure that I tried 
    	to correct. Naturally I tested it only after v1.2 and I am not
    	a DTR guru....
    
    					Ciao 	Luciano Barilaro

    Thanks for comiserating(sp) with me.  I have it working again under
    V1.3.  The fixes are documented in the STARS database.  If you don't
    have access to STARS I can post the fixes here.
    
    Steve

Below is a solution found by Francis.  I do not want to fix the changes
right away in the code since I don't know if the problem is with the 
reports package or if someone changed the data definitions in SQL or
in the Exporter.  This will need some further research...

				- Darrell



HI!,
  FINALY GOT IT TO WORK.(STILL HAS THE BATCH QUEUE PROBLEM). THERE ARE
 two errors:

1. The FIND INT_GRAPH_TEMP WITH SNMP = NODE_HOLD  is to be commented out.
   and the next line is to be altered
   FIND INT_GRAPH_TEMP WITH INTERFACE = INT_ID_HOLD
   
   This is in the MCC_REPORTS_FILES:MCC_RPTS_TCPIP_PROC.DTR

2. The TCPIP record INTERFACE_GRAPH_REC is to be changed
   The following name has to be changed
   IN_UTILIZATION  to INBOUND_UTILIZATION
   OUT_UTILIZATION to OUTBOUND_UTILIZATION

  This is in the MCC_REPORTS_FILES:MCC_RPTS_TCPIP_RECORDS.DTR


  Hope this would be helpful.