create or replace package pkg_nkw_hfs
timestamp '2006-07-07:10:10:10'
is
   ------------------------------------------------------------------
   -- 2006 DataPRO Developers - m@urelio
   ------------------------------------------------------------------
   -- Version: 2.0.2
   ------------------------------------------------------------------
   -- Collections, Records, Variables, Constants, Exceptions, Cursors
   ------------------------------------------------------------------
   gv_string  pkg_nkw_env.gv_char%TYPE;
   type tab_string is table of gv_string%TYPE index by binary_integer;
   gt_string  tab_string;
   gv_path    pkg_nkw_env.gv_hfspath%TYPE := pkg_nkw_env.gv_hfspath;
   gv_file    pkg_nkw_env.gv_hfsfile%TYPE := pkg_nkw_env.gv_hfsfile;
   gv_buffer  pkg_nkw_env.gv_plchar%TYPE;
   gv_lines   integer := 4096;
   gv_bytes   integer := 131072;
   ge_hfs     exception;
   gv_message pkg_nkw_env.gv_char%TYPE;
   ------------------------------------------------------------------
   -- FAPPEND
   ------------------------------------------------------------------
   procedure fappend(ft_string in gt_string%TYPE,
                     fv_file   in gv_file%TYPE  := gv_file,
                     fv_path   in gv_path%TYPE  := gv_path,
                     fv_lines  in gv_lines%TYPE := gv_lines,
                     fv_bytes  in gv_bytes%TYPE := gv_bytes);
   procedure fappend(fv_buffer in gv_buffer%TYPE,
                     fv_file   in gv_file%TYPE  := gv_file,
                     fv_path   in gv_path%TYPE  := gv_path);
   ------------------------------------------------------------------
   -- FWRITE
   ------------------------------------------------------------------
   procedure fwrite(ft_string in gt_string%TYPE,
                    fv_file   in gv_file%TYPE  := gv_file,
                    fv_path   in gv_path%TYPE  := gv_path,
                    fv_lines  in gv_lines%TYPE := gv_lines,
                    fv_bytes  in gv_bytes%TYPE := gv_bytes);
   procedure fwrite(fv_buffer in gv_buffer%TYPE,
                    fv_file   in gv_file%TYPE  := gv_file,
                    fv_path   in gv_path%TYPE  := gv_path);
   ------------------------------------------------------------------
   -- FREAD
   ------------------------------------------------------------------
   procedure fread(fv_file   in  gv_file%TYPE  := gv_file,
                   fv_path   in  gv_path%TYPE  := gv_path,
                   fv_lines  in  gv_lines%TYPE := gv_lines,
                   fv_bytes  in  gv_bytes%TYPE := gv_bytes,
                   ft_string out gt_string%TYPE);
end pkg_nkw_hfs;
/
show errors