CREATE OR REPLACE PROCEDURE list_cities
      (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;
  BEGIN
    FOR the_city IN cities_in(the_country)
    LOOP
    dbms_output.put_line(the_city.name);
    END LOOP;
  END;
END;
/