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;