CREATE OR REPLACE PROCEDURE pHello (who VARCHAR2)
ISBEGIN DBMS_OUTPUT.PUT_LINE('Hello ' || who);END;/
CREATE OR REPLACE FUNCTION fDateDuJour RETURN date
IS vDate date;BEGINSELECT SYSDATE INTO vDate FROM DUAL;
RETURN vDate;END;/
SET SERVEROUTPUT ON;
BEGIN pHello('World');DBMS_OUTPUT.PUT_LINE(fDateDuJour);
END;/