5. FILES › 5.3 VAX/VMS Monitor Information Area Files › 5.3.6 VMS System Profile File (DEMSPR) › 5.3.6.4 DEMSPR Retrieval Examples
5.3.6.4 DEMSPR Retrieval Examples
This section presents typical DEMSPR retrieval examples.
1. SYSTEM Record Elements
o Print the minimum free page count during prime time
(Zone 1) yesterday for each SYSID.
DATA;
SET &pDEMX..DEMSPR01; BY SYSID;
IF DATEPART(ENDTS)=TODAY()-1;
IF SYSID='DEV1';
IF ZONE=1;
RETAIN FPC;
IF FIRST.SYSID THEN DO;
FPC=0;
END;
FPC=MIN(SPRFRPG,FPC);
IF LAST.SYSID THEN DO;
PUT FPC;
END;
o Print the maximum page fault rate during prime time
(Zone 1) yesterday for each SYSID.
DATA;
SET &pDEMX..DEMSPR01; BY SYSID;
IF DATEPART(ENDTS)=TODAY()-1;
IF SYSID='DEV1';
IF ZONE=1;
RETAIN PGFLT;
IF FIRST.SYSID THEN DO;
PGFLT=0;
END;
PGFLT=MIN(SPRPSFLT,PGFLT);
IF LAST.SYSID THEN DO;
PUT PGFLT;
END;
2. STATES Record Elements
o Print the ratio of all processes in the LEFO, SUSPO,
and COMO process states yesterday.
DATA;
SET &pDEMX..DEMSPR01 END=EOF;
IF DATEPART(ENDTS)=TODAY()-1;
RETAIN LEFO SUSPO COMO CNTR 0;
LEFO+SPRLEFO;
SUSPO+SPRSUSPO;
COMO+SPRCOMO;
CNTR=CNTR+LEFO+SUSPO+COMO;
IF EOF THEN DO;
IF CNTR GT 0 THEN DO;
LEFO=LEFO/CNTR;
SUSPO=SUSPO/CNTR;
COMO=COMO/CNTR;
END;
PUT LEFO SUSPO COMO;
END;
o Print the percentage of processes in the MWAIT state.
DATA;
SET &pDEMX..DEMSPR01 END=EOF;
IF DATEPART(ENDTS)=TODAY()-1;
RETAIN MWAIT CNTR 0;
MWAIT+SPRMWAIT;
CNTR+SPRCUR;
IF EOF THEN DO;
MWAIT=MWAIT/CNTR;
PUT MWAIT;
END;
3. PAGE Record Elements
o Plot the average page fault rate for node DEV1
yesterday during prime time (Zone 1).
DATA;
SET &pDEMX..DEMSPR01;
IF DATEPART(ENDTS)=TODAY()-1;
IF SYSID='DEV1';
IF ZONE=1;
PROC PLOT;
PLOT SPRPSPFL*ENDTS;
o Print the ratio of the page faults to the sum of the
page reads and page writes yesterday on node DEV1
between 9 am and noon.
DATA;
SET &pDEMX..DEMSPR01;
IF DATEPART(ENDTS)=TODAY()-1;
IF SYSID='DEV1';
IF HOUR GE 9 AND HOUR LT 12;
IF (SPRPGERD+SPRPGEWR) GT 0 THEN
RATIO=SPRPGEFL/(SPRPGERD+SPRPGEWR);
PUT RATIO;
4. IO Record Elements
o Print the number of logical name translations
yesterday between 3 pm and 5 pm on node DEV1.
DATA;
SET &pDEMD..DEMSPR01 END=EOF;
IF SYSID='DEV1';
IF DATEPART(ENDTS)=TODAY()-1;
IF HOUR GE 15 AND HOUR LT 17;
RETAIN LNT 0;
LNT+SPRLOGNM;
IF EOF THEN DO;
PUT LNT;
END;
o Plot the file open rate for node DEV1 for each hour
yesterday.
DATA;
SET &pDEMD..DEMSPR01;
IF SYSID='DEV1';
IF DATEPART(ENDTS)=TODAY()-1;
PROC PLOT;
PLOT SPRPSFOP*HOUR;
5. FCP Record Elements
o Print the average window turn rate for node SERV over
the last week.
DATA;
SET &pDEMW..DEMSPR01 END=EOF;
IF SYSID='SERV';
RETAIN TRNDUR TRNSUM 0;
TRNDUR+DURATION;
TRNSUM+SPRTURN;
IF EOF THEN DO;
TRNAVG=TRNSUM/TRNDUR;
PUT TRNAVG;
END;
o Print the average FCP call rate for nodes P1 and G1
during yesterday's prime time (zone 1).
DATA;
SET &pDEMX..DEMSPR01; BY SYSID;
IF SYSID='P1' OR SYSID='G1';
RETAIN XFCPCAL XFCPDUR;
IF FIRST.SYSID THEN DO;
XFCPCAL=0;
XFCPDUR=0;
END;
XFCPCAL+SPRCALLS;
XFCPDUR+DURATION;
IF LAST.SYSID THEN DO;
AVGFCP=XFCPCAL/XFCPDUR;
PUT AVGFCP;
END;
6. POOL Record Elements
o Print the minimum number of small, intermediate, and
large request packets free throughout yesterday on
node DEV1.
DATA;
SET &pDEMX..DEMSPR01 END=EOF;
IF DATEPART(ENDTS)=TODAY()-1;
IF SYSID='DEV1';
RETAIN SRP IRP LRP 0;
SRP=MIN(SPRSPFRE,SRP);
IRP=MIN(SPRIPFRE,IRP);
LRP=MIN(SPRLPFRE,LRP);
IF EOF THEN DO;
PUT SRP IRP LRP;
END;
o Print the average number of kilobytes of pool in use
over the last week.
DATA;
SET &pDEMX..DEMSPR01 END=EOF;
RETAIN KBPOOL CNTR 0;
KBPOOL+SPRKBUSE;
CNTR+SPRPOLCT;
IF EOF THEN DO;
KBPOOL=KBPOOL/CNTR;
PUT KBPOOL;
END;
7. LOCK Record Elements
o Print the maximum enqueue wait rate during yesterday
for node DEV1.
DATA;
SET &pDEMX..DEMSPR01 END=EOF;
IF DATEPART(ENDTS)=TODAY()-1;
IF SYSID='DEV1';
RETAIN MAXENQW 0;
MAXENQW=MAX(SPRPSEWT,MAXENQW);
IF EOF THEN DO;
PUT MAXENQW;
END;
o Print the number of new enqueues and converted
enqueues by hour yesterday for node DEV1.
DATA;
SET &pDEMD..DEMSPR01 END=EOF;
IF DATEPART(ENDTS)=TODAY()-1;
IF SYSID='DEV1';
PROC PRINT;
VAR MONTH DAY YEAR HOUR SPRNENQ SPRCENQ;
8. DECNET Record Elements
o Print the total number of packets lost yesterday for
each hour of the day.
DATA;
SET &pDEMD..DEMSPR01;
IF DATEPART(ENDTS)=TODAY()-1;
PROC PRINT;
VAR SYSID MONTH DAY YEAR HOUR SPRPKLOS;
o Print the ratio of local packets arriving to local
packets sent for each hour yesterday for node DEV1
DATA;
SET &pDEMD..DEMSPR01;
IF DATEPART(ENDTS)=TODAY()-1;
IF SYSID='DEV1';
IF SPRDPLPK GT 0 THEN
RATIO=SPRARLPK/SPRDPLPK;
PROC PRINT;
VAR SYSID MONTH DAY YEAR HOUR RATIO;
9. FSC Record Elements
o Print the minimum extent cache hit percentage and
quota cache hit percentage on node DEV1 during the
last week.
DATA;
SET &pDEMW..DEMSPR01 END=EOF;
IF SYSID='DEV1';
RETAIN MINECHIT MINQCHIT 0;
MINECHIT=MIN(SPRPCEXT,MINECHIT);
MINQCHIT=MIN(SPRPCQOT,MINQCHIT);
IF EOF THEN DO;
PUT MINECHIT MINQCHIT;
END;
o Plot the extent cache hit percentage for prime time
(Zone 1) yesterday for each SYSID.
DATA;
SET &pDEMX..DEMSPR01;
PROC PLOT;
PLOT SPRPCEXT*ENDTS; BY SYSID;
10. DLOCK Record Elements
o Print the average deadlock message rate per hour over
the last week.
DATA;
SET &pDEMW..DEMSPR01;
PROC PRINT;
VAR SYSID WEEK YEAR HOUR SPRPSDLM;
o Print the ratio of local new locks to incoming new
locks per hour over the last week.
DATA;
SET &pDEMW..DEMSPR01;
IF SPRNLI GT 0 THEN
RATIO=SPRNLL/SPRNLI;
PROC PRINT;
VAR SYSID WEEK HOUR RATIO;
11. CLUSTER Record Elements
o Print the total number of enqueues and dequeues
requested during yesterday's processing whenever CPU
Busy was 90 percent or more.
DATA;
SET &pDEMX..DEMSPR01;
IF DATEPART(ENDTS)=TODAY()-1;
CPUBUSY=SPRCLSTM/DURATION;
IF CPUBUSY GE 0.9;
ENQUEUES=SPRNEL+SPRNEI+SPRNEO+SPRECL+SPRECI+SPRECO;
DEQUEUES=SPRDQL+SPRDQI+SPRDQO;
PROC PRINT;
VAR SYSID ENDTS CPUBUSY ENQUEUES DEQUEUES;
o Plot the CPU time over prime time (Zone 1) yesterday
for each SYSID.
DATA;
SET &pDEMX..DEMSPR01;
IF DATEPART(ENDTS)=TODAY()-1;
IF ZONE=1;
PROC PLOT;
PLOT SPRCLSTM*ENDTS; BY SYSID;
12. MSCP SERVER Record Elements
o Print the total number of reads and writes yesterday
on node DEV1.
DATA;
SET &pDEMX..DEMSPR01 END=EOF;
IF DATEPART(ENDTS)=TODAY()-1;
IF SYSID='DEV1';
RETAIN READS WRITES 0;
READS+SPRMSCRD;
WRITES+SPRMSCWR;
IF EOF THEN DO;
PUT READS WRITES;
END;
o Print the times when buffer waits occurred yesterday on
node DEV1.
DATA;
SET &pDEMX..DEMSPR01;END=EOF;
IF DATEPART(ENDTS)=TODAY()-1;
IF SYSID='DEV1';
IF SPRBWAIT;
PROC PRINT;
VAR ENDTS SPRBWAIT;
13. TRANSACTION Record Elements
o Print the average transaction completion rates indexed
by their duration categories, for each hour over the
last week.
DATA;
SET &pDEMW..DEMSPR01;
CRATE1=SPRCNTD1/DURATION; /* < 1 second */
CRATE2=SPRCNTD2/DURATION; /* 1-2 seconds */
CRATE3=SPRCNTD3/DURATION; /* 2-3 seconds */
CRATE4=SPRCNTD4/DURATION; /* 3-4 seconds */
CRATE5=SPRCNTD5/DURATION; /* 4-5 seconds */
CRATE6=SPRCNTD6/DURATION; /* > 5 seconds */
PROC PRINT;
VAR SYSID WEEK HOUR CRATE1-CRATE6;
