separate (Tracker.Report_Generator.List_By_Milestone)



procedure Init_Headers is
    ----------------------------------------------------------------------
    --|  NAME:  INIT_HEADERS
    --|
    --|  OVERVIEW:
    --|    This procedure initializes all the headers of this List by
    --|    Milestone Report.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    others   an error message is printed and execution continues
    --|
    --|  HISTORY:
    --|    written by   Bonnie Burkhardt   March 1985
    ----------------------------------------------------------------------

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

begin
    -- initialize the headers
    Header1 (65 .. 80) := "** ACTIVITIES **";
    Header1 (84 .. 90) := "ORIGINL";
    Header1 (93 .. 99) := "CURRENT";
    Header1 (102 .. 108) := "EQ. NEW";
    Header1 (110 .. 117) := "SIZE LST";
    Header1 (126 .. 132) := "MAN-HRS";

    Header2 (2 .. 3) := "PR";
    Header2 (5 .. 13) := "SUBSYSTEM";
    Header2 (17 .. 27) := "DESCRIPTION";
    Header2 (53 .. 57) := "ABREV";
    Header2 (60 .. 61) := "RP";
    Header2 (85 .. 88) := "SIZE";
    Header2 (94 .. 97) := "SIZE";
    Header2 (103 .. 106) := "SIZE";
    Header2 (110 .. 117) := "VERIFIED";
    Header2 (119 .. 124) := "COMPXY";
    Header2 (126 .. 132) := "TO COMP";

    Header_Lines (2 .. 3) := Dashes (1 .. 2);
    Header_Lines (5 .. 13) := Dashes (1 .. 9);
    Header_Lines (17 .. 27) := Dashes (1 .. 11);
    Header_Lines (53 .. 58) := Dashes (1 .. 6);
    Header_Lines (60 .. 61) := Dashes (1 .. 2);
    Header_Lines (84 .. 90) := Dashes (1 .. 7);
    Header_Lines (93 .. 99) := Dashes (1 .. 7);
    Header_Lines (102 .. 108) := Dashes (1 .. 7);
    Header_Lines (110 .. 117) := Dashes (1 .. 8);
    Header_Lines (119 .. 124) := Dashes (1 .. 6);
    Header_Lines (126 .. 132) := Dashes (1 .. 7);

    -- initialize the header for the activity data
    Start_Walk (Ac_List);
    Ac_Index := 0;

    loop
        Walk (Ac_List, Ac_Ptr, End_List);
        exit when End_List;
        Header2 (64 + 2 * Ac_Index) := Ac_Ptr.Name (1);
        Header_Lines (64 + 2 * Ac_Index) := '-';
        Ac_Index := Ac_Index + 1;
    end loop;
exception
    when others =>
        Put_Line ("exception raise in MS INIT_HEADERS");
end Init_Headers;