CREATE OR replace PACKAGE p21 IS 
  PROCEDURE p21(p_do IN NUMBER, p_xy OUT VARCHAR); 
  FUNCTION F21(p_no IN NUMBER,p_nm  OUT VARCHAR) RETURN VARCHAR; 
  END;

CREATE OR replace PACKAGE BODY p21 IS 
  PROCEDURE p21 (p_do IN NUMBER) 
  IS 
  p_xy VARCHAR(20); 
   BEGIN 
  SELECT department_name IN TO p_xy FROM departments WHERE department_id=p_do; 
  INSERT INTO table1 VALUES(p_xy,p_do); 
  END; 
     
  FUNCTION F21    (p_no IN NUMBER) 
    RETURN VARCHAR 
    IS p_nm VARCHAR(20); 
    BEGIN 
    SELECT last_name INTO p_nm FROM employees WHERE employee_id=p_no; 
    RETURN p_nm; 
    END; 
     
    CREATE TABLE table1(pxy VARCHAR(30),p_do NUMBER); 
     
    show errors:

SQL> CREATE OR replace PACKAGE p21 IS
  2    PROCEDURE p21(p_do IN NUMBER, p_xy OUT VARCHAR);
  3    FUNCTION F21(p_no IN NUMBER,p_nm  OUT VARCHAR) RETURN VARCHAR;
  4    END;
  5  /

Package created.

SQL> sho err
No errors.

SQL> CREATE OR replace PACKAGE BODY p21 IS
  2    PROCEDURE p21 (p_do IN NUMBER)
  3    IS
  4    p_xy VARCHAR(20);
  5     BEGIN
  6    SELECT department_name IN TO p_xy FROM departments WHERE department_id=p_do;
  7    INSERT INTO table1 VALUES(p_xy,p_do);
  8    END;
  9
 10    FUNCTION F21    (p_no IN NUMBER)
 11      RETURN VARCHAR
 12      IS p_nm VARCHAR(20);
 13      BEGIN
 14      SELECT last_name INTO p_nm FROM employees WHERE employee_id=p_no;
 15      RETURN p_nm;
 16      END;
 17  /

Warning: Package Body created with compilation errors.

SQL> sho err
Errors for PACKAGE BODY P21:
LINE/COL ERROR
-------- -------------------------------------------------------------------------------------
6/3      PL/SQL: SQL Statement ignored
6/26     PL/SQL: ORA-00923: FROM keyword not found where expected
16/8     PLS-00103: Encountered the symbol "end-of-file" when expecting one of the following:
         begin end function pragma procedure

CREATE OR replace PACKAGE BODY 
  p21 
IS 
PROCEDURE p21 (p_do IN NUMBER) 
IS 
  p_xy VARCHAR(20); 
BEGIN 
  SELECT department_name IN TO p_xy 
  FROM   departments 
  WHERE  department_id=p_do; 
   
  INSERT INTO table1 VALUES 
              ( 
                          p_xy, 
                          p_do 
              ); 

END; 
FUNCTION F21 (p_no IN NUMBER) 
  RETURN VARCHAR 
IS 
  p_nm VARCHAR(20); 
BEGIN 
  SELECT last_name 
  INTO   p_nm 
  FROM   employees 
  WHERE  employee_id=p_no; 
   
  RETURN p_nm; 
END; 
END; 
CREATE TABLE table1 
             ( 
                          pxy  VARCHAR(30), 
                          p_do NUMBER 
             );

SQL> CREATE OR replace PACKAGE BODY
  2    p21
  3  IS
  4  PROCEDURE p21 (p_do IN NUMBER)
  5  IS
  6    p_xy VARCHAR(20);
  7  BEGIN
  8    SELECT department_name IN TO p_xy
  9    FROM   departments
 10    WHERE  department_id=p_do;
 11
 12    INSERT INTO table1 VALUES
 13                (
 14                            p_xy,
 15                            p_do
 16                );
 17
 18  END;
 19  FUNCTION F21 (p_no IN NUMBER)
 20    RETURN VARCHAR
 21  IS
 22    p_nm VARCHAR(20);
 23  BEGIN
 24    SELECT last_name
 25    INTO   p_nm
 26    FROM   employees
 27    WHERE  employee_id=p_no;
 28
 29    RETURN p_nm;
 30  END;
 31  END;
 32  /

Warning: Package Body created with compilation errors.

SQL> sho err
Errors for PACKAGE BODY P21:
LINE/COL ERROR
-------- -------------------------------------------------------------------------------------
8/3      PL/SQL: SQL Statement ignored
8/26     PL/SQL: ORA-00923: FROM keyword not found where expected

CREATE OR replace PACKAGE xab 
IS 
  PROCEDURE p21( 
    p_do IN NUMBER, 
    p_xy OUT VARCHAR); 
  FUNCTION F21( 
    p_no IN NUMBER, 
    p_nm OUT VARCHAR) 
  RETURN VARCHAR; 
END; 

/ 
CREATE OR replace PACKAGE BODY xab 
IS 
  PROCEDURE P21 (p_do IN NUMBER) 
  IS 
    p_xy VARCHAR(20); 
  BEGIN 
      SELECT department_name 
      INTO   p_xy 
      FROM   departments 
      WHERE  department_id = p_do; 

      INSERT INTO table1 
      VALUES     (p_xy, 
                  p_do); 
  END; 
  FUNCTION F21 (p_no IN NUMBER) 
  RETURN VARCHAR 
  IS 
    p_nm VARCHAR(20); 
  BEGIN 
      SELECT last_name 
      INTO   p_nm 
      FROM   employees 
      WHERE  employee_id = p_no; 

      RETURN p_nm; 
  END; 
END; 

  PLS-00323: subprogram or cursor 'P21' is declared in a package
         specification and must be defined in the package body

3/16     PLS-00323: subprogram or cursor 'F21' is declared in a package
         specification and must be defined in the package body

CREATE OR replace PACKAGE xab 
IS 
  PROCEDURE p21( 
    p_do IN NUMBER, 
    p_xy OUT VARCHAR); 
  FUNCTION F21( 
    p_no IN NUMBER) 
  RETURN VARCHAR; 
END; 

/ 
CREATE OR replace PACKAGE BODY xab 
IS 
  PROCEDURE P21 (p_do IN NUMBER, 
                 p_xy OUT VARCHAR) 
  IS 
    p_xy VARCHAR(20); 
  BEGIN 
      SELECT department_name 
      INTO   p_xy 
      FROM   departments 
      WHERE  department_id = p_do; 

      INSERT INTO table1 
      VALUES     (p_xy, 
                  p_do); 
  END; 
  FUNCTION F21 (p_no IN NUMBER) 
  RETURN VARCHAR 
  IS 
    p_nm VARCHAR(20); 
  BEGIN 
      SELECT last_name 
      INTO   p_nm 
      FROM   employees 
      WHERE  employee_id = p_no; 

      RETURN p_nm; 
  END; 
END; 

PROCEDURE P21 (p_do IN NUMBER, 
                 p_xy OUT VARCHAR) 
  IS 
    p_xy VARCHAR(20);