/*
    procedure: count_empls
    purpose: expects nothing, returns nothing, 
        prints to the screen how many rows 
        are currently in the empl table
	 IF set serveroutput it on
    example:
        if empl currently has 11 rows, and in SQL*Plus
        you have:
	     set serveroutput on
	     and you type:
            exec count_empls
        then you should see, printed:
There are currently 11 employee(s).

        From another PL/SQL subroutine, you could just
	 have the statement:
	     count_empls;
        ...and get the same message printed.
*/

create or replace procedure count_empls as
    num_empls integer;
begin
    select count(*)
    into num_empls
    from empl;

    dbms_output.put_line('There are currently ' || num_empls 
                         || ' employee(s).');
end;
/
show errors