HP3000-L Archives

April 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:
Mike Hornsby <[log in to unmask]>
Reply To:
Mike Hornsby <[log in to unmask]>
Date:
Fri, 19 Apr 1996 12:12:20 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (53 lines)
jeff the following is a little script that tracks active processes.
it could easily be modified to alter or abort offending sessions or jobs.
 
good luck!
 
 
WHILE HPCONNSECS > 0
   IF FINFO("SQMSG",0)
      PURGE SQMSG,TEMP
   ENDIF
   BUILD SQMSG;REC=-79,,F,ASCII;TEMP;MSG
   FILE SQMSG=SQMSG,OLDTEMP
   SHOWQ;ACTIVE >*SQMSG
   SETVAR PINLIST ""
   WHILE FINFO("SQMSG",19) <> 0
        INPUT SQLINE < SQMSG
        IF POS("#",SQLINE) <> 0 THEN
          SETVAR PIN RTRIM(STR(SQLINE,47,5))
          SETVAR PINLIST "!PINLIST" + "," + "!PIN"
        ENDIF
   ENDWHILE
   IF FINFO("SPMSG",0)
      PURGE SPMSG,TEMP
   ENDIF
   BUILD SPMSG;REC=-79,,F,ASCII;TEMP;MSG
   FILE SPMSG=SPMSG,OLDTEMP
   SETVAR PROC "SHOWPROC PIN=" + "!PINLIST" + ";SYSTEM >*SPMSG"
   !PROC
   WHILE FINFO("SPMSG",19) <> 0
        INPUT SPLINE < SPMSG
        IF POS(":",SPLINE) <> 0 THEN
          ECHO !SPLINE
        ENDIF
   ENDWHILE
   PAUSE 30
ENDWHILE
 
 
 
 
**************************************************************************
********* __                __  * *                              *********
******** / /               / / ** **   Michael C. Hornsby         ********
******* / /               / / *** ***   President                  *******
****** / /___ ______ ____/ / **** ****   Beechglen Development Inc. ******
***** / __  // __  // __  / ***** *****   5576 Glenway Avenue        *****
**** / /_/ // /_/ // /_/ / ****** ******   Cincinnati, Ohio 45238     ****
*** /_____//___  //_____/ ******* *******                              ***
**        __  / /        ******** ********    Phone: (513) 922-0509     **
*        / /_/ /        ********* *********    Fax:   (513) 347-2834     *
        /_____/        ********** **********    Net: [log in to unmask]
**************************************************************************

ATOM RSS1 RSS2