Stored Procedure Function Oracle PLSQL

SQL>
SQL>
SQL> CREATE TABLE EMP (EMPNO NUMBER(4) NOT NULL,
  2                    ENAME VARCHAR2(10),
  3                    JOB VARCHAR2(9),
  4                    MGR NUMBER(4),
  5                    HIREDATE DATE,
  6                    SAL NUMBER(7, 2),
  7                    COMM NUMBER(7, 2),
  8                    DEPTNO NUMBER(2));
Table created.
SQL>
SQL> INSERT INTO EMP VALUES (7369, 'SMITH', 'CLERK',    7902, TO_DATE('17-DEC-1980', 'DD-MON-YYYY'), 800, NULL, 20);
1 row created.
SQL> INSERT INTO EMP VALUES (7499, 'ALLEN', 'SALESMAN', 7698, TO_DATE('20-FEB-1981', 'DD-MON-YYYY'), 1600, 300, 30);
1 row created.
SQL> INSERT INTO EMP VALUES (7521, 'WARD',  'SALESMAN', 7698, TO_DATE('22-FEB-1981', 'DD-MON-YYYY'), 1250, 500, 30);
1 row created.
SQL> INSERT INTO EMP VALUES (7566, 'JONES', 'MANAGER',  7839, TO_DATE('2-APR-1981',  'DD-MON-YYYY'), 2975, NULL, 20);
1 row created.
SQL> INSERT INTO EMP VALUES (7654, 'MARTIN', 'SALESMAN', 7698,TO_DATE('28-SEP-1981', 'DD-MON-YYYY'), 1250, 1400, 30);
1 row created.
SQL> INSERT INTO EMP VALUES (7698, 'BLAKE', 'MANAGER', 7839,TO_DATE('1-MAY-1981', 'DD-MON-YYYY'), 2850, NULL, 30);
1 row created.
SQL> INSERT INTO EMP VALUES (7782, 'CLARK', 'MANAGER', 7839,TO_DATE('9-JUN-1981', 'DD-MON-YYYY'), 2450, NULL, 10);
1 row created.
SQL> INSERT INTO EMP VALUES (7788, 'SCOTT', 'ANALYST', 7566,TO_DATE('09-DEC-1982', 'DD-MON-YYYY'), 3000, NULL, 20);
1 row created.
SQL> INSERT INTO EMP VALUES (7839, 'KING', 'PRESIDENT', NULL,TO_DATE('17-NOV-1981', 'DD-MON-YYYY'), 5000, NULL, 10);
1 row created.
SQL> INSERT INTO EMP VALUES (7844, 'TURNER', 'SALESMAN', 7698,TO_DATE('8-SEP-1981', 'DD-MON-YYYY'), 1500, 0, 30);
1 row created.
SQL> INSERT INTO EMP VALUES (7876, 'ADAMS', 'CLERK', 7788,TO_DATE('12-JAN-1983', 'DD-MON-YYYY'), 1100, NULL, 20);
1 row created.
SQL> INSERT INTO EMP VALUES (7900, 'JAMES', 'CLERK', 7698,TO_DATE('3-DEC-1981', 'DD-MON-YYYY'), 950, NULL, 30);
1 row created.
SQL> INSERT INTO EMP VALUES (7902, 'FORD', 'ANALYST', 7566,TO_DATE('3-DEC-1981', 'DD-MON-YYYY'), 3000, NULL, 20);
1 row created.
SQL> INSERT INTO EMP VALUES (7934, 'MILLER', 'CLERK', 7782,TO_DATE('23-JAN-1982', 'DD-MON-YYYY'), 1300, NULL, 10);
1 row created.
SQL>
SQL> select * from emp;
     EMPNO ENAME      JOB              MGR
---------- ---------- --------- ----------
HIREDATE                    SAL       COMM
-------------------- ---------- ----------
    DEPTNO
----------
      7369 SMITH      CLERK           7902
17-DEC-1980 00:00:00        800
        20
      7499 ALLEN      SALESMAN        7698
20-FEB-1981 00:00:00       1600        300
        30
      7521 WARD       SALESMAN        7698
22-FEB-1981 00:00:00       1250        500
        30
      7566 JONES      MANAGER         7839
02-APR-1981 00:00:00       2975
        20
      7654 MARTIN     SALESMAN        7698
28-SEP-1981 00:00:00       1250       1400
        30
      7698 BLAKE      MANAGER         7839
01-MAY-1981 00:00:00       2850
        30
      7782 CLARK      MANAGER         7839
09-JUN-1981 00:00:00       2450
        10
      7788 SCOTT      ANALYST         7566
09-DEC-1982 00:00:00       3000
        20
      7839 KING       PRESIDENT
17-NOV-1981 00:00:00       5000
        10
     EMPNO ENAME      JOB              MGR
---------- ---------- --------- ----------
HIREDATE                    SAL       COMM
-------------------- ---------- ----------
    DEPTNO
----------
      7844 TURNER     SALESMAN        7698
08-SEP-1981 00:00:00       1500          0
        30
      7876 ADAMS      CLERK           7788
12-JAN-1983 00:00:00       1100
        20
      7900 JAMES      CLERK           7698
03-DEC-1981 00:00:00        950
        30
      7902 FORD       ANALYST         7566
03-DEC-1981 00:00:00       3000
        20
      7934 MILLER     CLERK           7782
23-JAN-1982 00:00:00       1300
        10
14 rows selected.
SQL>
SQL> CREATE OR REPLACE PROCEDURE emp_change_s (i_emp_id IN integer)
  2  AS BEGIN
  3  UPDATE emp
  4  set ename = 'S'
  5  WHERE empno =  i_emp_id;
  6  END emp_change_s;
  7  /
Procedure created.
SQL> show error
No errors.
SQL>
SQL> exec emp_change_s(7369);
PL/SQL procedure successfully completed.
SQL>
SQL>
SQL> drop table emp;
Table dropped.
SQL>
SQL> --