this is a little command script that functions as a poor man's glance.
i use it quite often on systems that appear hung. it doesn't have the
overhead
of starting up the measurement interface.

the same procedure could be used programmatically. it uses the SHOWQ
;ACTIVE
output to generate a listed SHOWPROC command.


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


----------
> From: Jim Alton <[log in to unmask]>
> To: [log in to unmask]
> Subject: Programmatic access to CPU Utilization.
> Date: Thursday, January 23, 1997 8:41 AM
>
> Good Day:
>
>  Can anyone suggest a programmatic method I can use to determine cpu
> utilization at a given point?
>
>  I'm putting together a very simple system that will track logged on
> users and jobs that are executing and I'd like to add cpu load to the
> mix.  I know there are performance measuring tools...   I'm hoping to
> justify the purchase of one by developing this rudimentary system.
>
>
> Thanks,
> Jim
>
> ******************************************************************
> Jim Alton
> Systems Analyst
> Mohawk College
> [log in to unmask]