Re: PLEAsE PLEASE HELP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

From: John Ammon <BANkye1_at_hotmail.com>
Date: 16 Dec 2001 19:26:18 -0800
Message-ID: <8a790d20.0112161926.208dd134@posting.google.com>

I changed the code to declare the type; the code compiles, but I am still having difficulty testing. What is the correct syntax to test this from the package?

 The code is below:

CREATE OR REPLACE PACKAGE Api_job
AS
TYPE t_enroll_type IS
TABLE OF STUDENT%ROWTYPE
INDEX BY BINARY_INTEGER;

• Fucntion Students Per Enrolldate----------------------------- FUNCTION Students_Per_Enrolldate
  (p_enroll ENROLLMENT.enroll_date%TYPE)
  RETURN Api_job.t_enroll_type;

FUNCTION Students_Per_Enrolldate
(p_enroll ENROLLMENT.enroll_date%TYPE)

  RETURN Api_job.t_enroll_type
AS
 CURSOR c_studname IS

       SELECT DISTINCT(e.student_id) student_id, s.first_name, s.last_name, e.enroll_date, ROWNUM

       FROM STUDENT s, ENROLLMENT e
	   WHERE s.student_id  = e.student_id
	   AND TO_DATE(e.enroll_date, 'DD-MON-YY')  = p_enroll
       ORDER BY 1,2;

    t_enroll t_enroll_type;
   v_count BINARY_INTEGER := 0;
BEGIN

• load PL/SQL table with names FOR r_studname IN c_studname LOOP
  • t_enroll(r_studname.ROWNUM) := r_studname.student; v_count := v_count+ 1; t_enroll(v_count + 1).student_id := r_studname.student_id; t_enroll(v_count + 1).first_name := r_studname.first_name; t_enroll(v_count + 1).last_name := r_studname.last_name; --- t_enroll(v_count + 1).enroll_date := r_studname.enroll_date; END LOOP; RETURN t_enroll; EXCEPTION WHEN OTHERS THEN t_enroll.DELETE; RETURN t_enroll; END Students_Per_Enrolldate;

Received on Sun Dec 16 2001 - 21:26:18 CST