separate (Tracker.Report_Generator.Distribution_Of_Work)


procedure Init_Dist_Headers is
    ----------------------------------------------------------------------
    --|
    --|  NAME:  INIT_DIST_HEADERS
    --|
    --|  OVERVIEW:
    --|    This procedure initalizes the headers for the Percent Complete
    --|    by Subsystem Report.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   Bonnie Burkhardt   March 1985
    --|
    ----------------------------------------------------------------------

    use Ac_List_Pkg;

    Dashes : String (1 .. 15) := (others => '-');
    Ac_Ptr : Activity_Pointer;
    Ac_Index : Integer := 0;

begin
    -- initialize the headers
    Header1 (117 .. 121) := "TOTAL";
    Header1 (126 .. 132) := "PERCENT";

    Header2 (2 .. 10) := "SUBSYSTEM";
    Header2 (115 .. 123) := "REMAINING";
    Header2 (126 .. 132) := "COMPLET";

    Header_Lines (2 .. 10) := Dashes (1 .. 9);
    Header_Lines (115 .. 123) := Dashes (1 .. 9);
    Header_Lines (126 .. 132) := Dashes (1 .. 7);

    -- initialize the header for the activity data
    Start_Walk (Ac_List);

    loop
        Walk (Ac_List, Ac_Ptr, End_List);
        exit when End_List;
        Header2 (14 + 10 * Ac_Index .. 21 + 10 * Ac_Index) :=
           Ac_Ptr.Name (1 .. 8);
        Header_Lines (14 + 10 * Ac_Index .. 21 + 10 * Ac_Index) :=
           Dashes (1 .. 8);
        Ac_Index := Ac_Index + 1;
    end loop;

end Init_Dist_Headers;