 CREATE OR REPLACE PROCEDURE first_city
      (the_country country.code%TYPE)
 IS BEGIN
  DECLARE CURSOR cities_in
  (crs_country Country.Code%TYPE)
   IS SELECT Name
      FROM City
      WHERE Country = crs_country;
  city_in cities_in%ROWTYPE;
  BEGIN
    OPEN cities_in (the_country);
    FETCH cities_in INTO city_in;
    IF cities_in%FOUND
    THEN DBMS_OUTPUT.PUT_LINE(city_in.name);
    ELSE DBMS_OUTPUT.PUT_LINE('Nothing found!');
    END IF;
    CLOSE cities_in;
  END;
 END;
 /
