create or replace procedure put_customer(myLname in customers.LastName%type,
          myFname in customers.FirstName%type)  as

   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;
/