19-1:
	CREATE OR REPLACE FUNCTION cur_datetime
	RETURN VARCHAR2
	IS
	BEGIN
	  RETURN TO_CHAR(sysdate,
	    'YYYY""MM""DD""HH24"ʱ"MI""SS""');
	END;
	/
19-2:
	CREATE OR REPLACE FUNCTION get_sal(name VARCHAR2)
	RETURN NUMBER
	AS
	  v_sal emp.sal%TYPE;
	BEGIN
	  SELECT sal INTO v_sal FROM emp WHERE upper(ename)=upper(name);
	  RETURN v_sal;
	END;
	/
19-3:
	CREATE OR REPLACE FUNCTION get_info
	(eno NUMBER,title OUT VARCHAR2) RETURN VARCHAR2
	AS
	  name emp.ename%TYPE;
	BEGIN
	  SELECT ename,job INTO name,title FROM emp
	  WHERE empno=eno;
	  RETURN name;
	END;
	/
19-4:
	CREATE OR REPLACE FUNCTION get_upd_info
	(eno NUMBER,sal_chg IN OUT NUMBER) RETURN VARCHAR2
	AS
	  name emp.ename%TYPE;
	BEGIN
	  UPDATE emp SET sal=sal+sal_chg WHERE empno=eno
	    RETURNING ename,sal INTO name,sal_chg;
	  RETURN name;
	END;
	/

19-5:
CREATE OR REPLACE FUNCTION get_name(no VARCHAR2)
RETURN NUMBER RESULT_CACHE RELIES_ON(emp)
AS
  v_name emp.ename%TYPE;
BEGIN
  SELECT ename INTO v_name FROM emp WHERE empno=no;
  RETURN v_name;
END;
/

19-6:
	BEGIN
	  dbms_output.put_line(cur_datetime);
	END;
	/
19-7:
	BEGIN
	  dbms_output.put_line(':'||get_sal('&name'));
	END;
	/
19-8:
	DECLARE
	  v_name emp.ename%TYPE;
	  v_job emp.job%TYPE;
	BEGIN
	  v_name:=get_info(&eno,v_job);
	  dbms_output.put_line(':'||v_name||',λ:'||v_job);
	END;
	/
19-9:
	DECLARE
	  v_empno emp.empno%TYPE;
	  v_name emp.ename%TYPE;
	  v_salchg emp.sal%TYPE;
	BEGIN
	  v_empno:=&eno;
	  v_salchg:=&incre;
	  v_name:=get_upd_info(v_empno,v_salchg);
	  dbms_output.put_line(':'||v_name||',¹:'||v_salchg);
	END;
	/
19-10:
	SELECT get_sal('&name')  FROM dual;
19-11:
	VAR salary NUMBER
	EXEC :salary:=get_sal(name=>'&name')
19-12:
	VAR name VARCHAR2(10)
	VAR sal_chg NUMBER
	EXEC :sal_chg:=200
	EXEC :name:=get_upd_info(&eno,:sal_chg)
	PRINT name sal_chg
19-13:
  	SELECT get_sal(name=>'scott') salary FROM dual;
19-14:
	CREATE OR REPLACE FUNCTION get_sal(name VARCHAR2)
	RETURN NUMBER
	AS
	  v_sal emp.sal%TYPE;
	BEGIN
	  SELECT sal INTO v_sal FROM emp
	   WHERE upper(ename)=upper(name);
	  RETURN v_sal;
	EXCEPTION
	  WHEN NO_DATA_FOUND THEN
	    RAISE_APPLICATION_ERROR(-20000,'ùԱ');
	END;
	/
19-15:
	CREATE OR REPLACE FUNCTION get_info
	(eno NUMBER) RETURN emp%ROWTYPE
	IS
	  emp_record emp%ROWTYPE;
	BEGIN
	  SELECT * INTO emp_record FROM emp WHERE empno=eno;
	  RETURN emp_record;
	EXCEPTION
	  WHEN NO_DATA_FOUND THEN
	    RAISE_APPLICATION_ERROR(-20000,'ùԱ');
	END;
	/
	DECLARE
	  emp_record emp%ROWTYPE;
	BEGIN
	  emp_record:=get_info(&eno);
	  dbms_output.put_line(':'||emp_record.ename||',ź:'||emp_record.deptno);
	END;
	/
19-16:
	CREATE OR REPLACE TYPE ename_table_type IS TABLE OF VARCHAR2(10);
	/
	CREATE OR REPLACE FUNCTION get_name
	(dno NUMBER) RETURN ename_table_type IS
	  ename_table ename_table_type;
	BEGIN
	  SELECT ename BULK COLLECT INTO ename_table FROM emp WHERE deptno=dno;
	  RETURN ename_table;
	EXCEPTION
	  WHEN NO_DATA_FOUND THEN
	     RAISE_APPLICATION_ERROR(-20099,'òŲ');
	END;
	/
	DECLARE
	  ename_table ename_table_type;
	BEGIN
	  ename_table:=get_name(&dno);
	  FOR i IN 1..ename_table.COUNT LOOP
	    dbms_output.put_line(''||ename_table(i));
	  END LOOP;
	END;
	/
19-17:
	DROP FUNCTION get_name;
19-18:
	SHOW ERRORS
19-19:
	SELECT object_name FROM user_objects WHERE status='INVALID' AND object_type='FUNCTION';
19-20:
	ALTER FUNCTION get_info COMPILE;
19-21:
	SELECT text FROM user_source WHERE name='GET_INFO';






