DECLARE 
   cursor c_stud 
   is 
   select Student.SCode,Student.SNAME,STUDENT.SFIRSTNAME,Student.SSTR,Student.area 
   from Student 
   Where student.Scode in 
   (Select Contract.scode from Contract where contract.ProjCode =:Project.projCode) 
   order by Student.scode; 
   r_stud c_stud%rowtype; 
   type type_coll_stud is table of c_stud%rowtype index by pls_integer; 
   t_stud type_coll_stud; 
Begin 
  go_block('Student'); 
  open c_stud; 
  loop 
     fetch c_stud into r_stud; 
     exit when c_stud%notfound; 
     t_stud (c_stud%rowcount) :=r_stud; 
      
  end loop; 
  close c_stud; 
  for i_index in t_stud.first .. t_stud.last 
  loop 
     :Student.scode := t_stud(i_index).scode; 
     :Student.SNAME := t_stud(i_index).sname; 
     :STUDENT.SFIRSTNAME := t_stud(i_index).sfirstname; 
     :Student.SSTR := t_stud(i_index).sstr; 
     :Student.area := t_stud(i_index).area; 
     next_record; 
  end loop; 
END;