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]
**************************************************************************
|