|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package System_Report, seg_012b1f
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
package System_Report is
-- Report generation from system availability information.
-- Provide a variety of reports.
type Report_Class is (Availability, -- Uptime/downtime by classes
Usage, -- Per half hour, # users, etc.
Disk, -- Used disk space each day
Devices, -- Disk, Mem, Tape, etc errors
Daemons, -- Daemon state sizes and times
Outages, -- System outages and reasons
Trouble, -- Potential trouble areas
Advice, -- Advice on cleaning things up
Everything, -- All reports
Tape_Mounts); -- Tape processing for backups
procedure Generate (Report_Type : Report_Class := System_Report.Everything;
Start_Time : String := "";
End_Time : String := "";
Log_Directory : String := "!Machine.Error_Logs");
-- Run a report of the specified type. Output goes to current
-- output. Start_Time null or illegal means "earliest time for
-- which there is information". End_Time null of illegal
-- means "now". Log_Directory is directory from which error
-- log files will be read; this is changed mostly for testing.
procedure Show_Bad_Blocks;
procedure Show_Machine_Information;
-- Produce a specific report about some specific subject.
end System_Report;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=14 rec1=00 rec2=01 rec3=04e
[0x01] rec0=11 rec1=00 rec2=02 rec3=000
tail 0x2150da0d282b14db00470 0x42a00088462060003