DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦d12a90348⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Monitor_Performance, seg_0066b5

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

E3 Source Code



procedure Monitor_Performance (Max_Samples : Natural := 500;
                               Sample_Interval : Duration := 60.0 * 12;
                               Output_File : String := ">>filename<<";
                               Append_To_File : Boolean := False;
                               Header : String := "Performance data");
-- Monitor system performance at a global level.  Take Max_Samples, one
-- every Sample_Interval time, and write the output to Output_File.
-- If Append_To_File is true, append the data to the end of the file, else
-- overwrite it.  The Header string is output to the file before
-- anything else.
--
-- Output file contains one entry per line with each entry having the
-- following meaning:
--
--      Time        Time that the entry is written
--      Cpu         Cpu % used during the sample interval.  If the load is
--                  high, this number will be very inflated as it must
--                  be computed.  Values >100% are common under high loads,
--                  so this value must be considered approximate.
--      DiskW       Number of disk waits in this sample.  Roughly, the number
--                  of disk transfers which is a function of the number of
--                  page faults.
--      Users       Number of users logged on at the end of the interval.
--      Jobs        Number of jobs running at the end of the interval.
--      Jobs_T      Number of jobs that terminated during the interval.
--                  Indicates the level of command activity.
--      Load15      CPU run load for last 15 min.
--      Disk15      Disk load for last 15 min.
--      Whld15      Withheld task load for last 10 min.
--

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=13 rec1=00 rec2=01 rec3=05c
        [0x01] rec0=0e rec1=00 rec2=02 rec3=000
    tail 0x215015dc681c04ac7e6e2 0x42a00088462060003