DataMuseum.dk

top - metrics - download

    Length: 1427 (0x593)
    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.Completion_Date_For_Ms)


procedure Print_Tot_Ms_Dates is
    ----------------------------------------------------------------------
    --|  NAME:  PRINT_TOT_MS_DATES
    --|
    --|  OVERVIEW:
    --|    This procedure prints the total milestone completion date line. This
    --|    line includes the date complete for each person in the range
    --|    START_PR..STOP_PR.  If a person is not assigned to an element,
    --|    a "...." is printed.  If there is not enough time to complete the
    --|    milestone, "99/99/99" is printed.  If the person is finished, "DONE"
    --|    is printed, otherwise the completion date is printed.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   Bonnie Burkhardt   March 1985
    ----------------------------------------------------------------------

begin
    -- output total dates
    Set_Col (Report_File, 9);
    Put (Report_File, Header_Lines (9 .. 132));
    New_Line (Report_File);
    Set_Col (Report_File, 2);
    Put (Report_File, "TOTAL:");
    Set_Col (Report_File, 9);

    for Pr_Index in Start_Pr .. Stop_Pr loop
        Print_A_Date (Tot_Date_Done (Pr_Index), Work_Is_Left_Tot (Pr_Index));
        Put (Report_File, " ");
    end loop;

    Set_Col (Report_File, 114);
    Print_A_Date (Ms_Tot_Date_Done, Tot_Work_Left);
    New_Line (Report_File, 2);
end Print_Tot_Ms_Dates;