create or replace package tst_pkg is
  function tstname (name in varchar2)
    return varchar2;

  pragma restrict_references (tstname, wnds, wnps);
end tst_pkg;
/
create or replace package body tst_pkg is
  type varchr_arr is table of varchar2 (5)
    index by binary_integer;

--  NOTE :
--  Cannot use the <pls table>.<property> syntax (eg. tst_tab.last) at all
--  in the file as this causes the pragmas to fail.  Array sizes are now
--  initialised in package initialisation.
--  Could not use composite data type for the same reason. Converted each
--  composite record to 2 scalar varchar2(4) arrays.
  tst_tab_end   pls_integer;
  tst_tab       varchr_arr;

  function tstname (name in varchar2)
    return varchar2 is
    name_copy   varchar2 (50);
  begin
    name_copy  := name;
--
-- remove non alpha chars by translating them to blanks and removing blanks
--
    name_copy  := translate (name, '''-._~@#$%^&*()+=|/', '                  ');
    if length (name_copy) = 0 then
      return ('0');
    end if;
    name_copy  := replace (name_copy, ' ', '');
    if length (name_copy) = 0 then
      return ('0');
    end if;
    return (name_copy);
  end tstname;
--***********************************************************************
--      PACKAGE INITIALISATION
--**********************************************************************
begin
--  initialize tst_tab
--
  tst_tab (1)  := ('A');
  tst_tab (2)  := ('E');
  tst_tab (3)  := ('I');
  tst_tab (4)  := ('O');
  tst_tab (5)  := ('U');
  tst_tab_end  := 5;
end tst_pkg;