Here it is,
PACKAGE emp_package IS
TYPE emp_part_rec IS RECORD
(fname employee.fname%type, lname employee.lname%type);
TYPE emp_cursor IS REF CURSOR
RETURN emp_part_rec;
PROCEDURE open_emp (c_emp OUT emp_cursor,
select_type IN NUMBER);
END emp_package;
PACKAGE BODY emp_package IS
PROCEDURE open_emp (c_emp OUT emp_cursor,
select_type IN NUMBER) IS
BEGIN
IF select_type=1 THEN
OPEN c_emp FOR SELECT fname, lname FROM EMPloyee
WHERE comm IS NOT NULL;
ELSE
OPEN c_emp FOR SELECT fname, lname FROM EMPloyee;
END IF;
END open_emp;
END emp_package;
====================================================================
++ Amarjyoti Das
++ email: [EMAIL PROTECTED]
++ phone: (207) 594-3048 x 23
++ fax:(207) 594-3021
++ web: www.stgeorgeconsulting.com
====================================================================
___________________________________________________________________________
To unsubscribe, send email to [EMAIL PROTECTED] and include in the body
of the message "signoff SERVLET-INTEREST".
Archives: http://archives.java.sun.com/archives/servlet-interest.html
Resources: http://java.sun.com/products/servlet/external-resources.html
LISTSERV Help: http://www.lsoft.com/manuals/user/user.html
