|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 1089 (0x441)
Types: TextFile
Names: »B«
└─⟦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⟧
with Time_Utilities;
with Job_Accounting;
with Io;
procedure Job_Accounting_Test (File_Name : in String :=
">> JOB ACCOUNTING FILE NAME <<") is
package Sio renames Io;
package Acc renames Job_Accounting;
Iter : Acc.Iterator;
An_Entry : Acc.Entry_Type;
begin
Acc.Initialize (File_Name, Iter);
while not Acc.Done (Iter) loop
An_Entry := Acc.Value (Iter);
case Acc.Entry_Kind (An_Entry) is
when Acc.Session =>
Sio.Put ("S ");
when Acc.Job =>
Sio.Put ("J ");
end case;
Sio.Put (Time_Utilities.Image (Acc.Elapsed_Time (An_Entry)) & " ");
Sio.Put (Time_Utilities.Image (Acc.Cpu_Time (An_Entry)) & " ");
Sio.Put (Acc.Jobs_Spawned (An_Entry));
Sio.Put (" ");
Sio.Put (Acc.Disk_Io_Requests (An_Entry));
Sio.Put (" ");
Sio.Put (Acc.User_Name (An_Entry) & " ");
Sio.Put (Acc.Session_Name (An_Entry) & " ");
Sio.New_Line;
Acc.Next (Iter);
end loop;
end Job_Accounting_Test;