create or replace package bakery as

  procedure put_customer(myLname in customers.LastName%type,
          myFname in customers.FirstName%type);

   function max_item_price(myFood in goods.food%type)
  return goods.price%type;

end;
/

create or replace package body bakery as


procedure put_customer(myLname in customers.LastName%type,
          myFname in customers.FirstName%type)  is

   myCID customers.cid%type;

   cursor highIdx is select max(CID) from customers;


begin
  -- dbms_output.enable;

  open highIdx;
  fetch highIdx into myCID;
  myCID := myCID+1;
  
  
  insert into customers values(myCID, myLname, myFname);
  
  
end;

function max_item_price(myFood in goods.food%type)
  return goods.price%type  is

  answer goods.price%type;

 cursor mPrice(foodType in goods.food%type)
        is select max(price) from goods where food = foodType;

begin

   open mPrice(myFood);
   fetch mPrice into answer;

    return (answer);

end;


end;
/