CREATE OR REPLACE PROCEDURE Organization_By_Continent
      (org_code_in IN organization.code%TYPE,
       continent_code_in IN continent.code%TYPE,
       results_out OUT NUMBER)
    AS
      
    BEGIN
        SELECT COUNT(cr.name)
          INTO results_out
          FROM COUNTRY_ORGANIZATION co
          JOIN country cr
          ON cr.code = co.country_code
          JOIN continent ct
          ON cr.continent = ct.name
          WHERE co.ORGANIZATION_CODE = org_code_in
          AND ct.code = continent_code_in;
    END;
    
    
    -------------------------------------------------------------
    
DECLARE
  
  v_org organization.code%TYPE := 'UN';
  v_continent continent.code%TYPE := 'NA';
  
  v_results PLS_INTEGER;    
          
BEGIN
  Organization_By_Continent(v_org, v_continent, v_results);
  DBMS_OUTPUT.PUT_LINE(v_results);

EXCEPTION
  WHEN OTHERS
   THEN
    DBMS_OUTPUT.PUT_LINE('An error occured');
    DBMS_OUTPUT.PUT_LINE(SQLCODE || ' ' || SQLERRM);
END;