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

⟦528359826⟧ Ada Source

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

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



-- This procedure is intended to be executed from the operator/system manager's
-- Login procedure to generate an error report.  This report is a summary of
-- system errors such as Disk and ECC.  If a large number of these errors are
-- detected, Rational should be notified.
--
-- The file Last_Summary_Filename is maintained to contain the time this
-- routine was last executed, and the summary information from that
-- execution. Each time this routine is executed, that file is examined and
-- a report is generated for the period from the last execution to the
-- current time, thus only displaying errors that have occurred since the
-- last report.
--
-- If the default value is used for Last_Summary_Filename, then a file in
-- the users home library called Last_Error_Summary_Time is created/used.
--
-- For comparison, the error report displayed by the last execution is
-- displayed after the current error report has been displayed.
--
-- In the event the Last_Error_Summary_Time file does not exist, a default
-- of -7 days from the current time is used as the starting date.
--
procedure Error_Summary_Server (Last_Summary_Filename : String := "<DEFAULT>");

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=14 rec1=00 rec2=01 rec3=038
        [0x01] rec0=04 rec1=00 rec2=02 rec3=000
    tail 0x2070067647da18901cb23 0x42a00088462060003