The following command script is an intelligent process monitor. You can
edit it to look for certain programs, users, or jobs.
 
 
 
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