separate (Tracker.Report_Generator.Work_Units_Per_Ss)


procedure Init_Size_Headers is
    ----------------------------------------------------------------------
    --|
    --|  NAME:  INIT_SIZE_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 => '-');

begin
    -- initialize the headers
    Header1 (14 .. 21) := "ORIGINAL";
    Header1 (24 .. 30) := "CURRENT";
    Header1 (34 .. 40) := "EQ. NEW";
    Header1 (46 .. 51) := "OLDEST";
    Header1 (58 .. 68) := "MOST RECENT";

    Header2 (2 .. 10) := "SUBSYSTEM";
    Header2 (16 .. 19) := "SIZE";
    Header2 (26 .. 29) := "SIZE";
    Header2 (36 .. 39) := "SIZE";
    Header2 (44 .. 55) := "VERIFICATION";
    Header2 (58 .. 69) := "VERIFICATION";

    Header_Lines (2 .. 10) := Dashes (1 .. 9);
    Header_Lines (14 .. 21) := Dashes (1 .. 8);
    Header_Lines (24 .. 31) := Dashes (1 .. 8);
    Header_Lines (34 .. 41) := Dashes (1 .. 8);
    Header_Lines (44 .. 55) := Dashes (1 .. 12);
    Header_Lines (58 .. 69) := Dashes (1 .. 12);

end Init_Size_Headers;