Previous Topic: 5.3.5.3 DEMRMS Usage Considerations

Next Topic: 5.3.6 VMS System Profile File (DEMSPR)

5.3.5.4 DEMRMS Retrieval Examples


This section presents typical DEMRMS retrieval examples.

1.  Print the average number of bytes transferred per read
    I/O yesterday on node DEV1.

    DATA;
    SET &pDEMX..DEMRMS01 END=EOF;
    IF DATEPART(ENDTS)=TODAY()-1;
    IF SYSID='DEV1';
    RETAIN BYTES READS 0;
    BYTES+RMSRDBT;
    READS+RMSREAD;
    IF EOF THEN DO;
      BYTESIO=BYTES/READS;
      PUT BYTESIO;
      END;

2.  Print the total number of file opens yesterday on node
    DEV1.

    DATA;
    SET &pDEMX..DEMRMS01 END=EOF;
    IF DATEPART(ENDTS)=TODAY()-1;
    IF SYSID='DEV1';
    RETAIN OPENS 0;
    OPENS+RMSOPEN;
    IF EOF THEN DO;
      PUT OPENS;
      END;