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: B T

⟦669329bea⟧ TextFile

    Length: 948 (0x3b4)
    Types: TextFile
    Names: »B«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

with Context;
--
with Log;
with Profile;
with Program;
with Scheduler;

procedure Start_Monitoring is
    The_Job_Id : Program.Job_Id;
    The_Status : Program.Condition;
begin
    Program.Create_Job (S => "Performance.Monitor (15 * 60.0);",
                        Job => The_Job_Id,
                        Status => The_Status,
                        Debug => False,
                        Context => Context,
                        After => 0.0,
                        Options => "name = (Performance Monitor)",
                        Response => "<PROFILE>");
    if Program.Started_Successfully (The_Status) then
        Scheduler.Set_Job_Attribute (The_Job_Id);
        Log.Put_Line ("Performance Monitor started successfully as Job " &
                      Program.Job_Id'Image (The_Job_Id), Profile.Positive_Msg);
    else
        Log.Put_Line ("Performance Monitor NOT started", Profile.Error_Msg);
    end if;
end Start_Monitoring;