Conference azur::mcc

4577.0. "CAN'T GET CIRCUIT UTIL GRAPHS TO WORK!" by SPANKY::SAWYER () Fri Feb 19 1993 11:50

    I'm also having problems generating CIRCUIT UTILIZATION GRAPHS FOR
    Phase IV Entities.
    
    I notice in the log file that when it goes to look for circuit data
    it comes up with [0 records found].
    
    I know that the exporting is working correctly.
    I'm exporting on the node4 itself as well as its line qna-0 and
    circuit qna-0 child entities.
    
    I can only assume that I'm not exporting on something that I should
    be.
    
    Here is a copy of the log file.
    
    $   THEN
    $       DTR == "$DTR32"
    $   ELSE
    $   ENDIF
    $ ENDIF
    $!---------------------------------------
    $! end dtr definition
    $!---------------------------------------
    $!
    $!
    $!  Avoid customer  the use of /Nocommand at login
    $!
    $!
    $ aa= F$GETJPI(0,"ACCOUNT")
    $ if aa .eqs. "CUSTOMER"
    $ else
    $  set control=Y
    $ endif
    $!
    $!
    $!
    $!
    $! 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. "INTERACTIVE") THEN SET CONTROL=T
    $ IF (F$MODE() .EQS. "INTERACTIVE") THEN SET TERMINAL/INQUIRE
    $ IF (F$MODE() .EQS. "INTERACTIVE") THEN MC :== MCR
    $ SET TERM/PERM/INSERT
    %SET-W-NOTSET, error modifying DKA200:
    -CLI-E-IVDEVTYPE, invalid device type - specify a mailbox device
    $!
    $! For MicroVAX systems only, use the command MOUNT/NOASSIST.
    $!
    $ IF (.NOT. F$TRNLNM("SYS$MICROVAX")) THEN GOTO SKIP_MICROVAX_COMMANDS
    $SKIP_MICROVAX_COMMANDS:
    $!
    $! Place your site-specific LOGIN commands below
    $!
    $ IF (F$MODE() .EQS. "INTERACTIVE")
    $ ENDIF
    $!
    $! This command procedure is a framework for building an individual
    $! login command procedure. It is executed every time that you log
    $! into your account.
    $!
    $  IF F$MODE() .NES. "INTERACTIVE" THEN GOTO ENDINTER
    $ENDINTER:
    $  IF F$MODE() .NES. "BATCH" THEN GOTO ENDBATCH
    $!
    $! Put commands you want executed only in batch mode between this
    comment
    $! and the "ENDBATCH:" symbol.
    $!
    $
    $ENDBATCH:
    $!
    $! Put commands that you want executed in any mode of login below.
    $!
    $
    $!MCC_RPTS_NODE4_CIRCT_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 NODE4_CIRCT_HOURLY_GRAPh.COM
    $!***************************************************************************
    $ THIS_PROCESS = ""
    $ PID = F$PID(THIS_PROCESS)
    $! 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 circt_id_tmp circt_id_tmp.000000411911232004
    $ define circt_graph circt_graph.000000411911232004
    $ create  NODE_HOLD000000411911232004.grm
    $!* The following line is intentionally kept blank.
    
    $ define mcc$node1 "4.878"
    $ define mcc$CIRCUIT_ID1 "ALL"
    $ define mcc$date1 "18-FEB-1993 11:00:00.00"
    $ define mcc$date2 "19-FEB-1993 11:00:00.00"
    $ define mcc$report_file "NODE4_CIRCT_HOUR_GRAPH.RPT"
    $ datatrieve
    VAX DATATRIEVE V5.1
    Digital Query and Report System
    Type HELP for help
    
     set verify
     Ready MCC_EXPORT shared read
     DECLARE NODE_HOLD PIC X(7).
     DECLARE CIRCUIT_ID_HOLD PIC X(16).
     DECLARE CIRCUIT_HOLD1 COMPUTED BY FN$UPCASE(CIRCUIT).
     DECLARE DATE1_HOLD USAGE DATE.
     DECLARE DATE2_HOLD USAGE DATE.
     NODE_HOLD = FN$TRANS_LOG("MCC$NODE1")
     CIRCUIT_ID_HOLD = FN$TRANS_LOG("MCC$CIRCUIT_ID1")
     DATE1_HOLD = FN$DATE(FN$TRANS_LOG("MCC$DATE1"))
     DATE2_HOLD = FN$DATE(FN$TRANS_LOG("MCC$DATE2"))
      Find  MCC_NODE4_circuit with NODE4 = NODE_HOLD
    [0 records found]
    if CIRCUIT_ID_HOLD NE "ALL" THEN Find current with circuit_hold1 =
    CIRCUIT_ID_HO
    LD
     Find   current   with time_STAMP between DATE1_HOLD and DATE2_HOLD
    [0 records found]
    define file for circuit_graph
    ready  circuit_graph write
    circuit_graph = current
    reduce current to circuit
    define file for circuit_id_temp
    ready  circuit_id_temp write
    circuit_id_temp = current
    EXIT
    $open/read/error=file_open_error infile circt_id_tmp.000000411911232004
    $ read/end_of_file=normal_exit  infile circuit_id_rec
    $ normal_exit:
    $ rename node_hold000000411911232004.grm   NODE4_CIRCT_HOUR_GRAPH.RPT
    $ delete/nocon circt_id_tmp.000000411911232004.*
    $ delete/nocon circt_graph.000000411911232004.*
    $ exit
      SYSTEM       job terminated at 19-FEB-1993 11:24:11.66
    
      Accounting information:
      Buffered I/O count:             314         Peak working set size:   
    5473
      Direct I/O count:              1129         Peak page file size:    
    14119
      Page faults:                   3961         Mounted volumes:            
    0
      Charged CPU time:           0 00:00:11.42   Elapsed time:     0
    00:00:53.50
    $
    
    
    Thanks again,
    
    Rob

I spoke to the person who is currently working on reports.
He suspects that your problem is a combination of some bugs (which
have been fixed for V1.3, but did not make T1.3), and some set-up
problems.  He is out of the office at the moment, but will comment
directly next week.

-- Erik

    Any chance he might comment on my note 4520 as well please?
    
    Regards,
    		Jim.
    

Hi, 

  I thought I already answered this but I guess it just slipped by, 
 so I will do so again.  First off in note .0 it is shown that there
 are no records found so that is one reason why nothing is reported.
 I do not exactly know what has been exported or why no data was found,
 but since you mentioned that the exporter is working just fine, I did
 find (and fix) one program with the graph. There was a type-o in the file:

	mcc_rpts_node4_circt_daily_graph_dtr.com

 And it looks like this type-o made its way into some of the other graphic
 reports also.  Even though DCL only looks at a few characters, since 
 this is a flag that is passed to another program, the program might
 verify the entire command line parameter.  (I say might since I do not
 exactly know).  The type-o is: (note missing 't' in nointeractive)

	$ graph/load/nointeracive/monochrome= ....

 This fix in V1.3 should at least clear up the problem with the files
 like: circt_id_tmp.000000411911232004,  circt_graph.000000411911232004,
 and NODE_HOLD000000411911232004.grm.

 So could you try again with either V1.3 or go in by hand and fix this
 type-o and let me know what happens next.  We can pick up work from that
 point.

				- Darrell