DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T V

⟦8f3ccacd1⟧ TextFile

    Length: 1548 (0x60c)
    Types: TextFile
    Names: »V«

Derivation

└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─⟦91c658230⟧ »DATA« 
        └─⟦458657fb6⟧ 
            └─⟦a5bbbb819⟧ 
                └─⟦this⟧ 
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─⟦fc9b38f02⟧ »DATA« 
        └─⟦9b46a407a⟧ 
            └─⟦eec0a994f⟧ 
                └─⟦this⟧

TextFile

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;