HP3000-L Archives

October 1996, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Stan Sieler <[log in to unmask]>
Reply To:
Stan Sieler <[log in to unmask]>
Date:
Fri, 18 Oct 1996 11:10:52 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (59 lines)
Chris provided a nice macro for showing the current # of TCp connections...
(Thanks!)

I modified it slightly to be:

   /* tcpcons.macro 96/10/18 */
   /* From Chris Bartram, from HP  */

   macro get_tcp_cons {
      symopen symnsxpt.xpt0407.telesup;

      var tcp_kso_ptr:lptr=[c0000000+#333*8].[c0000000+#333*8+4];

      var max_cons = symval (tcp_kso_ptr,
              'tcp_kso_block_type.TG_MAX_CONNECTIONS_ALLOWED');

      var cur_cons = symval (tcp_kso_ptr,
              'tcp_kso_block_type.TG_NUMBER_OF_OPEN_CONNECTIONS');

      symclose symnsxpt;

      /* wl cisetvar ("tcp_cur_conns", !cur_cons);
      /* wl cisetvar ("tcp_max_conns", !max_cons);

      wl "tcp_cur_conns ", cur_cons:"#W6";
      wl "tcp_max_conns ", max_cons:"#W6";
      };

   wl;
   get_tcp_cons;
   wl;
   c;

When I do:

   :debug use tcpcons.macro

   tcp_cur_conns    #249
   tcp_max_conns   #1024

   :

So...I have #249 "current" connections ... seems rather high to me,
so I guess I have the same problem you do!


> Is this still a problem for others out there?

I guess so, although it hasn't really affected us (yet)

> [to use the above script, you keep it in a file, then enter DEBUG and type
> 'use filename', then type :SHOWVAR TCP@]

By putting the display ("wl") into the macro, you can omit the :SHOWVAR

--
Stan Sieler                                          [log in to unmask]
                                     http://www.allegro.com/sieler.html

ATOM RSS1 RSS2