create or replace package query3 as procedure get_phone_by_last_name(A in varchar2); end query3; / show errors; / create or replace package body query3 as procedure get_phone_by_last_name(A in varchar2) is cursor result(B in varchar2) is select last_name, first_name, phone, location from person, phone where (person.id = phone.id and last_name like ('%'|| lower(B) ||'%')); lname person.last_name%type; fname person.first_name%type; p phone.phone%type; l phone.location%type; begin htp.p(''); htp.p(''); htp.title('CPS616 Homework #7'); htp.p(''); htp.p(''); htp.header(1, 'Find the phone number of a person by the last name.'); htp.p('The search results for last name: ' || A); htp.para; open result(A); loop fetch result into lname, fname, p, l; exit when result%notfound; htp.p('The ' || l || ' phone number of ' || fname || ' ' || lname || ' is ' || p || '.'); htp.para; end loop; close result; htp.p(''); htp.p(''); end get_phone_by_last_name; end query3; / show errors; /