separate (Tracker.Report_Generator.Percent_Completion)


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

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

begin
    -- initialize the headers
    Header1 (108 .. 113) := "% DONE";
    Header1 (117 .. 123) := "% AVAIL";
    Header1 (126 .. 132) := "%ENTIRE";

    Header2 (2 .. 10) := "SUBSYSTEM";
    Header2 (108 .. 115) := "CONTRACT";
    Header2 (117 .. 124) := "AT START";
    Header2 (126 .. 132) := "PROJECT";

    Header_Lines (2 .. 10) := Dashes (1 .. 9);
    Header_Lines (108 .. 115) := Dashes (1 .. 8);
    Header_Lines (117 .. 124) := Dashes (1 .. 8);
    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;
        Ac_Index := Ac_Index + 1;
        Header2 (5 + 9 * Ac_Index .. 11 + 9 * Ac_Index) := Ac_Ptr.Name (1 .. 7);
        Header_Lines (5 + 9 * Ac_Index .. 11 + 9 * Ac_Index) := Dashes (1 .. 7);
    end loop;

end Init_Pct_Headers;