DataMuseum.dk

top - metrics - download

    Length: 2057 (0x809)
    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.Manipulate_Data)
procedure Check_Ac_Percent is
    ----------------------------------------------------------------------
    --|  NAME:  CHECK_AC_PERCENT
    --|
    --|  OVERVIEW:
    --|    This procedure checks to see that the activity percent of project
    --|    adds up to 100.0%.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    ----------------------------------------------------------------------
    use Ac_List_Pkg;
    Ac_Record : Activity_Pointer;
    End_List : Boolean;
    Total_Percent : Float := 0.0;
begin
    loop
        -- until the activity percent = 100
        Total_Percent := 0.0;
        Start_Walk (Ac_List);

        loop
            -- walk the activity list and compute total percent
            Walk (Ac_List, Ac_Record, End_List);
            exit when End_List;
            Total_Percent := Total_Percent + Ac_Record.Percent_Tot_Proj;
        end loop;

        if Total_Percent > 100.01 or Total_Percent < 99.99 then
            Put_Line
               (" The total of each activity's percent of the total project ");
            Put_Line (" does not add up to 100.0%.");
            Put_Line (" You must go back and change the activity data. ");
            New_Line;
            Start_Walk (Ac_List);

            loop
                -- walk the activity list and compute total percent
                Walk (Ac_List, Ac_Record, End_List);
                exit when End_List;
                Put (Ac_Record.Name);
                Put ("       ");
                Put (Ac_Record.Percent_Tot_Proj, 3, 1, 0);
                Put_Line ("%");
            end loop;

            Put_Line ("                 -------");
            Put (" Total percent =");
            Put (Total_Percent, 4, 1, 0);
            New_Line (2);
            Put_Line (" Press <cr> to return to the Data Menu.");
            Skip_Line;
            Data_Menu_Driver;
        else
            exit;
        end if;
    end loop;
end Check_Ac_Percent;