d HOG:  PROC OPTIONS(MAIN);
╚  
,/* PROCEDURE MONITORS USAGE OF SYSTEM RESOURCES BY INDIVIDUAL PROCESSES
Р   AUTHOR:  AL JAWORSKI
Ї   DATE:    MARCH 18, 1982 */
X
╝%INCLUDE $STSDEF;
 %INCLUDE SYS$GETJPI;
Д%INCLUDE SYS$WAITFR;
ш%INCLUDE TREE;
L%INCLUDE VTPUT;
░%INCLUDE VTCLEAR;
%INCLUDE SCAN;
x%INCLUDE TRIM;
▄%INCLUDE CENTER;
@%INCLUDE VTBRIGHT;
д%INCLUDE VTUNDER;
%INCLUDE VTRESET;
l%INCLUDE GETFIX;
╨%INCLUDE QIOWPUT;
4%INCLUDE WAIT;
Ш%INCLUDE ALPHAMERIC;
№%INCLUDE GETWORD;
`	
─	DCL (SS$_NORMAL,SS$_NOMOREPROC) FIXED BINARY(31) GLOBALREF VALUE;
(
DCL (I,PROCESS_ADDRESS,RETURN_VALUE,CYCLE_TIME,FAULT_THRESHOLD,NUM_RESETS)
М
     FIXED BINARY(31);
Ё
DCL PRCNAM CHAR(15) INIT('');
TDCL VPRCNAM CHAR(15) VARYING;
╕DCL IMAGNAME CHAR(64) INIT('');
DCL VIMAGNAME CHAR(64) VARYING;
АDCL IMAGEBODY CHAR(10) VARYING;
фDCL (CPUTIM,BUFIO,DIRIO,PAGEFLTS,WSSIZE) FIXED BINARY(31);
HDCL CLOCK_TIME CHAR(8);
м

t/* STRUCTURE TO RECEIVE JOB PROCESS INFORMATION */
╪DCL 1 JPI_LIST STATIC EXTERNAL,
<      2 JPI_PRCNAM,           
а        3 LNGTH             FIXED BIN(15) INIT(15),
        3 CODE              FIXED BIN(15) INIT(JPI$_PRCNAM),
h        3 ADDRESS           PTR,
╠        3 RETURN_LNGTH      FIXED BIN(31) INIT(0),
0      2 JPI_IMAGNAME,           
Ф        3 LNGTH             FIXED BIN(15) INIT(64),
°        3 CODE              FIXED BIN(15) INIT(JPI$_IMAGNAME),
\        3 ADDRESS           PTR,
└        3 RETURN_LNGTH      FIXED BIN(31) INIT(0),
$      2 JPI_CPUTIM,
И        3 LNGTH             FIXED BIN(15) INIT(4),
ь        3 CODE              FIXED BIN(15) INIT(JPI$_CPUTIM),
P        3 ADDRESS           PTR,
┤        3 RETURN_LNGTH      FIXED BIN(31) INIT(0),
      2 JPI_BUFIO,           
|        3 LNGTH             FIXED BIN(15) INIT(4),
р        3 CODE              FIXED BIN(15) INIT(JPI$_BUFIO),
D        3 ADDRESS           PTR,
и        3 RETURN_LNGTH      FIXED BIN(31) INIT(0),
      2 JPI_DIRIO,
p        3 LNGTH             FIXED BIN(15) INIT(4),
╘        3 CODE              FIXED BIN(15) INIT(JPI$_DIRIO),
8        3 ADDRESS           PTR,
Ь        3 RETURN_LNGTH      FIXED BIN(31) INIT(0),
       2 JPI_PAGEFLTS,           
d        3 LNGTH             FIXED BIN(15) INIT(4),
╚        3 CODE              FIXED BIN(15) INIT(JPI$_PAGEFLTS),
,        3 ADDRESS           PTR,
Р        3 RETURN_LNGTH      FIXED BIN(31) INIT(0),
Ї      2 JPI_WSSIZE,           
X        3 LNGTH             FIXED BIN(15) INIT(4),
╝        3 CODE              FIXED BIN(15) INIT(JPI$_WSSIZE),
         3 ADDRESS           PTR,
Д        3 RETURN_LNGTH      FIXED BIN(31) INIT(0),
ш      2 ENDLIST             FIXED BIN(31) INIT(0);
L
░JPI_PRCNAM.ADDRESS=ADDR(PRCNAM);
JPI_IMAGNAME.ADDRESS=ADDR(IMAGNAME);
xJPI_CPUTIM.ADDRESS=ADDR(CPUTIM);
▄JPI_BUFIO.ADDRESS=ADDR(BUFIO);
@JPI_DIRIO.ADDRESS=ADDR(DIRIO);
дJPI_PAGEFLTS.ADDRESS=ADDR(PAGEFLTS);
 JPI_WSSIZE.ADDRESS=ADDR(WSSIZE);
l 
╨ DCL (P,Q,HEADER) POINTER;
4!DCL 1 NODE BASED(P),
Ш!      2 LEFT POINTER,
№!      2 RIGHT POINTER,
`"      2 BALANCE_BYTE CHAR(1),
─"      2 KEY_PRCNAM CHAR(15),
(#      2 LAST_IMAGNAME CHAR(9),
М#      2 LAST_CLOCK_TIME CHAR(8),
Ё#      2 LAST_CPUTIM FIXED BINARY(31),
T$      2 LAST_BUFIO FIXED BINARY(31),
╕$      2 LAST_DIRIO FIXED BINARY(31),  
%      2 LAST_PAGEFLTS FIXED BINARY(31);
А%
ф%DCL (DELTA_PAGEFLTS,DELTA_BUFIO,DELTA_DIRIO,DELTA_CPUTIM,DELTA_CLOCK_TIME)
H&     FIXED BINARY(31);
м&DCL (RATE_PAGEFLTS,RATE_BUFIO,RATE_DIRIO,RATE_CPUTIM)
'     FIXED BINARY(31);
t'
╪'DCL PROCESS_FOUND BIT(1);
  
d CALL INIT;
╚ 
,DO WHILE(NUM_RESETS<10);
Р
Ї  STS$VALUE=SYS$GETJPI(6,PROCESS_ADDRESS,,JPI_LIST,,,);
X  RETURN_VALUE=SYS$WAITFR(6);
╝
   IF STS$VALUE=SS$_NORMAL THEN DO;
Д    CLOCK_TIME=TIME();
ш    CALL CALCULATE;
L    IF PROCESS_FOUND & DELTA_CLOCK_TIME>0 THEN
░        CALL PUT_PROCESS_INFO;
  END;
x
▄  ELSE IF STS$VALUE=SS$_NOMOREPROC THEN DO;
@    CALL SCREEN_RESET;
д    NUM_RESETS=NUM_RESETS+1;
    PROCESS_ADDRESS=-1;
l  END;
╨
4END;
  
d INIT:  PROC;
╚ 
,  NUM_RESETS=0;
Р  PROCESS_ADDRESS=-1;
Ї  HEADER=NULL();
X  CALL VTCLEAR();
╝  CALL VTPUT(1,1,
    CENTER(
Д   'WESTAT Process Resource Use Monitor',80));
ш  CALL VTPUT(5,1,'');
L  CYCLE_TIME=GETFIX('Cycle Time (in seconds)?: ','1-60');
░  CALL VTPUT(10,1,'');
  IF GETWORD('Do you wish a page fault alarm?: ','YES NO')='YES' THEN
x    FAULT_THRESHOLD=
▄      GETFIX('Page fault alarm threshold (number per second)?: ','1-1000');
@  ELSE FAULT_THRESHOLD=0;
д  CALL VTPUT(2,1,'');
  CALL QIOWPUT(BYTE(27)||'[J');
l  CALL VTPUT(2,1,'Process');
╨  CALL VTPUT(3,1,'Name');
4  CALL VTPUT(2,16,'Image');
Ш  CALL VTPUT(3,16,'Name');
№  CALL VTPUT(2,27,'% Avail.');
`	  CALL VTPUT(3,27,'CPU Time');
─	  CALL VTPUT(2,37,'Buffered');
(
  CALL VTPUT(3,37,'IO''s/sec.');
М
  CALL VTPUT(2,47,'Direct');
Ё
  CALL VTPUT(3,47,'IO''s/sec.');
T  CALL VTPUT(2,57,'Page');
╕  CALL VTPUT(3,57,'Flts/sec.');
  CALL VTPUT(2,67,'Working');
А  CALL VTPUT(3,67,'Set Size');
ф
HEND INIT;
  
d PUT_PROCESS_INFO:  PROC;
╚ 
,  IF I>23 THEN CALL SCREEN_RESET;
Р  IF FAULT_THRESHOLD>0 & RATE_PAGEFLTS>=FAULT_THRESHOLD
Ї    THEN CALL QIOWPUT(COPY(BYTE(7),3));
X  IF RATE_CPUTIM>=10 | RATE_BUFIO>=10 | RATE_DIRIO>=10 |
╝    RATE_PAGEFLTS>=10 | WSSIZE>=600
     THEN CALL VTBRIGHT();
Д  CALL VTPUT(I,1,VPRCNAM);
ш  CALL VTPUT(I,16,VIMAGNAME);
L  CALL VTFPUT(I,27,RATE_CPUTIM);
░  CALL VTFPUT(I,37,RATE_BUFIO);
  CALL VTFPUT(I,47,RATE_DIRIO);
x  CALL VTFPUT(I,57,RATE_PAGEFLTS);
▄  CALL VTFPUT(I,67,WSSIZE);
@  CALL VTRESET();
д  I=I+1;

lEND PUT_PROCESS_INFO;
╨
  
d CALCULATE: PROC;
╚ 
,Q=NULL();
РALLOCATE NODE SET(P);
ЇVIMAGNAME=IMAGNAME;
XVIMAGNAME=SCAN(VIMAGNAME,2,']');
╝VIMAGNAME=SCAN(VIMAGNAME,1,'.');
 VPRCNAM=PRCNAM;
ДVPRCNAM=TRIM(VPRCNAM);
шKEY_PRCNAM=PRCNAM;
L
░CALL TREE(HEADER,P,15,9,Q);

xIF P^=Q THEN DO;
▄  FREE P->NODE;
@  P=Q;
д  DELTA_CLOCK_TIME=CLOCK_DIF(CLOCK_TIME,LAST_CLOCK_TIME);
  DELTA_CPUTIM=CPUTIM-LAST_CPUTIM;
l  DELTA_BUFIO=BUFIO-LAST_BUFIO;
╨  DELTA_DIRIO=DIRIO-LAST_DIRIO;
4  DELTA_PAGEFLTS=PAGEFLTS-LAST_PAGEFLTS;
Ш  IF DELTA_CLOCK_TIME>0 THEN DO;
№    RATE_CPUTIM=DIVIDE(DELTA_CPUTIM*100,DELTA_CLOCK_TIME,31);
`	    RATE_BUFIO=DIVIDE(DELTA_BUFIO*100,DELTA_CLOCK_TIME,31);
─	    RATE_DIRIO=DIVIDE(DELTA_DIRIO*100,DELTA_CLOCK_TIME,31);
(
    RATE_PAGEFLTS=DIVIDE(DELTA_PAGEFLTS*100,DELTA_CLOCK_TIME,31);
М
  END;
Ё
  PROCESS_FOUND='1'B;
TEND;
╕ELSE PROCESS_FOUND='0'B;

АLAST_CLOCK_TIME=CLOCK_TIME;
фLAST_CPUTIM=CPUTIM;
HLAST_BUFIO=BUFIO;
мLAST_DIRIO=DIRIO;
LAST_PAGEFLTS=PAGEFLTS;
t
╪IF VIMAGNAME='' THEN DO;
<  VIMAGNAME=LAST_IMAGNAME;
а  LAST_IMAGNAME='';
END;
hELSE LAST_IMAGNAME=VIMAGNAME;
╠
0END CALCULATE;
Ф
°
  
d CLOCK_DIF:  PROC(TIME2,TIME1) RETURNS(FIXED BINARY(31));
╚ 
,DCL (TIME1,TIME2) CHAR(8);
РDCL (FTIME1,FTIME2) FIXED BINARY(31);
Ї
XFTIME1=(FIXED(SUBSTR(TIME1,5,4),31))
╝      +(FIXED(SUBSTR(TIME1,3,2),31)*6000)
       +(FIXED(SUBSTR(TIME1,1,2),31)*360000);
Д
шFTIME2=(FIXED(SUBSTR(TIME2,5,4),31))
L      +(FIXED(SUBSTR(TIME2,3,2),31)*6000)
░      +(FIXED(SUBSTR(TIME2,1,2),31)*360000);

xRETURN(FTIME2-FTIME1);
▄
@END;
д

  
d VTFPUT:  PROC(ROW,COLUMN,VALUE);
╚ 
,DCL PVALUE CHAR(5) VARYING;
РDCL (ROW,COLUMN,VALUE) FIXED BINARY(31);
Ї
XIF VALUE<=0 THEN RETURN;
╝IF VALUE>99999 THEN CALL VTPUT(ROW,COLUMN,'******');
 ELSE DO;
Д  PVALUE=TRIM(CHAR(VALUE));
ш  CALL VTPUT(ROW,COLUMN,PVALUE);
LEND;
░
END VTFPUT;
x
  
d SCREEN_RESET:  PROC;
╚ 
,  CALL WAIT(CYCLE_TIME);
Р  CALL VTPUT(4,1,'');
Ї  CALL QIOWPUT(BYTE(27)||'[J');
X  I=4;
╝
 END SCREEN_RESET;
Д
шEND HOG;