5. FILES › 5.3 VMX Information Area Files › 5.3.18 VMX DASD Cache Activity File (VMXCDI) › 5.3.18.4 VMXCDI Retrieval Examples

5.3.18.4 VMXCDI Retrieval Examples

Compare activity for the storage directors controlling volume
VMXARS.

   DATA CACHE;
     SET &VMXX..VMXCDI01;
     FORMAT TIME TIME8. DATE DATE7.;
     IF VOLSER = 'VMXARS';
     TIME = TIMEPART(ENDTS);
     DATE = DATEPART(ENDTS);
   RUN;
   %LET BY = SYSID VOLSER DATE TIME CDISDID;
   PROC SORT DATA=CACHE;
     BY &BY;
   RUN;
   DATA CACHE(KEEP=SYSID DATE TIME CDICAPAV CDICAPOF VOLSER
                   READ1 WRITE1 READ2 WRITE2);
     SET CACHE;BY &BY;
     ARRAY READ(*)  8 READ1-READ2;
     ARRAY WRITE(*)  8 WRITE1-WRITE2;
     RETAIN READ1-READ2 WRITE1-WRITE2;
     IF FIRST.CDISDID THEN I=0;
     I+1;
     READ(I)  = SUM(CDISRNRQ,CDISRSRQ);
     WRITE(I) = SUM(CDIWNRQ,CDIWSQRQ);
     IF LAST.TIME;
       CDICAPAV = CDICAPAV/1048576;
       CDICAPOF = CDICAPOF/1048576;
   RUN;
   PROC TIMEPLOT;
     BY SYSID VOLSER DATE;
     ID TIME CDICAPAV CDICAPOF;
     PLOT READ1='1' READ2='2' WRITE1='A' WRITE2='B' /
     OVERLAY;
     LABEL DATE='Date' TIME='Time'
       CDICAPAV='Available Storage'
       CDICAPOF='Offline Storage'
       READ1='Reads SD1'
       READ2='Reads SD2'
       WRITE1='Writes SD1'
       WRITE2='Writes SD2';
   RUN;