create or replace package body pkg_nkw_srw
timestamp '2006-07-07:10:10:10'
is
   ------------------------------------------------------------------
   -- 2006 DataPRO Developers - m@urelio
   ------------------------------------------------------------------
   -- Version: 2.0.2
   ------------------------------------------------------------------
   -- Collections, Records, Variables, Constants, Exceptions, Cursors
   ------------------------------------------------------------------
   ------------------------------------------------------------------
   ---------------------- Private Section ---------------------------
   ------------------------------------------------------------------
   ------------------------------------------------------------------
   ----------------------- Public Section ---------------------------
   ------------------------------------------------------------------
   ------------------------------------------------------------------
   -- HAS_WCIES
   ------------------------------------------------------------------
   function has_wcies(fv_name in nkw_frmsrw.frm_name%TYPE)
      return boolean
   is
      retval boolean := (FALSE);
   begin
      begin
         declare cursor has_cur is
                 select 1
                   from nkw_frmsrw
                  where (frm_name = upper(fv_name));
                      i integer(1);
         begin
            if (not has_cur%ISOPEN) then
               open has_cur;
            end if;
               fetch has_cur into i;
               if (has_cur%FOUND) then
                  retval := (TRUE);
               end if;
            if (has_cur%ISOPEN) then
               close has_cur;
            end if;
         end;
      end;
      return retval;
      exception
         when others then raise;
   end has_wcies;
   ------------------------------------------------------------------
   -- GET_WCIES
   ------------------------------------------------------------------
   function get_wcies(fv_name nkw_srw.srw_name%TYPE)
      return gt_wcies%TYPE
   is
      rettab gt_wcies%TYPE;
   begin
      begin
         declare cursor get_cur is
                 select a.srw_name, a.srw_view, b.srw_item, b.srw_column,
                        b.srw_datatype, b.srw_label
                   from nkw_srwcies b, nkw_srw a
                  where (a.srw_name = upper(fv_name))
                    and (a.srw_name = b.srw_name)
                    and (b.srw_parameter = 'Y')
               order by b.srw_item;
                get_row get_cur%ROWTYPE;
                      i binary_integer;
         begin
            if (not get_cur%ISOPEN) then
               open get_cur;
            end if;
            << get_loop >>
            loop
               fetch get_cur into get_row;
               exit get_loop when (get_cur%NOTFOUND);
               i := get_cur%ROWCOUNT;
               begin
                  rettab(i).srw_name := get_row.srw_name;
                  rettab(i).srw_view := get_row.srw_view;
                  rettab(i).srw_item := get_row.srw_item;
                  rettab(i).srw_column := get_row.srw_column;
                  rettab(i).srw_datatype := get_row.srw_datatype;
                  rettab(i).srw_label := get_row.srw_label;
               end;
            end loop get_loop;
            if (get_cur%ISOPEN) then
               close get_cur;
            end if;
         end;
      end;
      return rettab;
      exception
         when others then raise;
   end get_wcies;
end pkg_nkw_srw;
/
show errors