DataMuseum.dk

top - metrics - download

    Length: 4239 (0x108f)
    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 (Vt100)



function Print_Pr_Menu (Pr_Ptr : in Personnel_Pointer) return Integer is
    ----------------------------------------------------------------------
    --|
    --|  NAME:  PRINT_PR_MENU
    --|
    --|  OVERVIEW:
    --|    This procedure displays the fields that can be changed on
    --|    a personnel type.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    others   the user is reprompted
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    ----------------------------------------------------------------------
begin
    loop
        begin
            Clear_Screen;
            Put_Line ("                PERSONNEL  DATA  MENU  ");
            Put_Line
               ("==========================================================");
            New_Line (3);
            Put_Line
               ("Choose the number of one of the following personnel fields ");
            Put_Line ("that you would like to modify: ");
            New_Line (2);
            Put (" 1)  Person's Name       ");
            Put (Pr_Ptr.Name);
            New_Line;
            Put (" 2)  Person's Initials   ");
            Put (Pr_Ptr.Initials);
            New_Line;
            Put (" 3)  Production Rate     ");
            Put (Pr_Ptr.Production_Rate, 2, 3, 0);
            New_Line;
            Put (" 4)  Hours Per Week      ");
            Put (Pr_Ptr.Hours_Per_Week, 2);
            New_Line;
            Put (" 5)  First Start/Stop Date         ");

            if Pr_Ptr.Start_Dates (1) = Null_Date then
                Put ("null date ");
            else
                Put (Pr_Ptr.Start_Dates (1).Month, 2);
                Put ("/");
                Put (Pr_Ptr.Start_Dates (1).Day, 2);
                Put ("/");
                Put (Pr_Ptr.Start_Dates (1).Year, 4);
            end if;

            Put ("   ");

            if Pr_Ptr.Stop_Dates (1) = Null_Date then
                Put ("null date ");
            else
                Put (Pr_Ptr.Stop_Dates (1).Month, 2);
                Put ("/");
                Put (Pr_Ptr.Stop_Dates (1).Day, 2);
                Put ("/");
                Put (Pr_Ptr.Stop_Dates (1).Year, 4);
            end if;

            New_Line;
            Put (" 6)  Second Start/Stop Date        ");

            if Pr_Ptr.Start_Dates (2) = Null_Date then
                Put ("null date ");
            else
                Put (Pr_Ptr.Start_Dates (2).Month, 2);
                Put ("/");
                Put (Pr_Ptr.Start_Dates (2).Day, 2);
                Put ("/");
                Put (Pr_Ptr.Start_Dates (2).Year, 4);
            end if;

            Put ("   ");

            if Pr_Ptr.Stop_Dates (2) = Null_Date then
                Put ("null date ");
            else
                Put (Pr_Ptr.Stop_Dates (2).Month, 2);
                Put ("/");
                Put (Pr_Ptr.Stop_Dates (2).Day, 2);
                Put ("/");
                Put (Pr_Ptr.Stop_Dates (2).Year, 4);
            end if;

            New_Line;
            Put (" 7)  Third Start/Stop Date         ");

            if Pr_Ptr.Start_Dates (3) = Null_Date then
                Put ("null date ");
            else
                Put (Pr_Ptr.Start_Dates (3).Month, 2);
                Put ("/");
                Put (Pr_Ptr.Start_Dates (3).Day, 2);
                Put ("/");
                Put (Pr_Ptr.Start_Dates (3).Year, 4);
            end if;

            Put ("   ");

            if Pr_Ptr.Stop_Dates (3) = Null_Date then
                Put ("null date ");
            else
                Put (Pr_Ptr.Stop_Dates (3).Month, 2);
                Put ("/");
                Put (Pr_Ptr.Stop_Dates (3).Day, 2);
                Put ("/");
                Put (Pr_Ptr.Stop_Dates (3).Year, 4);
            end if;

            New_Line (2);
            Put_Line (" 8)  Done With Data - EXIT from Personnel Data Menu");
            Get (Response);
            Skip_Line;
            New_Line (2);
            return Response;
        exception
            when others =>
                Skip_Line;
                New_Line;
                Put_Line (" Please enter a number between 1 and 8. ");
                delay 1.0;
        end;
    end loop;
end Print_Pr_Menu;