DataMuseum.dk

top - metrics - download

    Length: 1226 (0x4ca)
    Types: TextFile
    Names: »B«

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧ 

TextFile

separate (Tracker.Report_Generator.Subsystem_Summary)


procedure Print_Sumss is
    ----------------------------------------------------------------------
    --|  NAME:  PRINT_SUMSS
    --|
    --|  OVERVIEW:
    --|    This procedure prints out an subsystem line. This line includes the
    --|    the remaining man-hours of work to complete this subsystem by person,
    --|    the current percent complete, and the  total man-hours required to
    --|    complete this subsystem.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   Bonnie Burkhardt   March 1985
    ----------------------------------------------------------------------

begin
    -- print out this subsystem
    Set_Col (Report_File, 2);
    Put (Report_File, Ss_Ptr.Name);
    Set_Col (Report_File, 14);

    for Pr_Index in Start_Pr .. Stop_Pr loop
        Put (Report_File, Time_Done (Pr_Index), 5, 1, 0);
        Put (Report_File, "  ");
    end loop;

    Set_Col (Report_File, 115);
    Put (Report_File, Ss_Time, 6, 1, 0);
    Set_Col (Report_File, 125);
    Put (Report_File, Current_Pct_Done.By_Ss (Ss_Index), 3, 2, 0);
    Put (Report_File, '%');
    New_Line (Report_File);
end Print_Sumss;