create or replace procedure
retrieve_countrycode as
code country.country_code%type;
begin
   select country_code into code from country;
   exception when no_data_found then
   raise_application_error(-20101,'Record does not exist');
   null;
end;
/