Use of data packets in Oracle

/* Data packets (related functions, processes, types,
Variables are put into a data packet to implement public variables,
Use of process functions for custom types )*/
-- Description of data packets
Create or replace package mypack
As
Type mytype is ref cursor return EMP % rowtype;
Function myemp (DNO number) return mytype;
End;
/

-- Main part of the data packet
Create or replace package body mypack
As
Function myemp (DNO number) return mytype
As
Eee mytype;
Begin
Open EEE for select * from EMP where deptno = DNO;
Return EEE;
End myemp;
End mypack;
/

-- How to call the data packet name (method name/type name)

Declare
E mypack. mytype;
Eee EMP % rowtype;
Begin
E: = mypack. myemp (20 );
Loop
Fetch e into EEE;
Exit when (E % notfound );
Dbms_output.put_line (EEE. empno | ',' | Eee. ename | ',' | Eee. Job );
End loop;
End;
/