diff --git a/ora/string_util_pkg.pkb b/ora/string_util_pkg.pkb index 1d2e90e..8999916 100755 --- a/ora/string_util_pkg.pkb +++ b/ora/string_util_pkg.pkb @@ -487,6 +487,28 @@ begin end remove_non_alpha_chars; +function is_str_alpha (p_str in varchar2) return boolean +as + l_returnvalue boolean; +begin + + /* + + Purpose: returns true if string only contains alpha characters + + Who Date Description + ------ ---------- ------------------------------------- + MJH 12.05.2015 Created + + */ + + l_returnvalue := regexp_instr(p_str, '[^a-z|A-Z]') = 0; + + return l_returnvalue; + +end is_str_alpha; + + function is_str_alphanumeric (p_str in varchar2) return boolean as l_returnvalue boolean; diff --git a/ora/string_util_pkg.pks b/ora/string_util_pkg.pks index 6800abd..bf5667f 100755 --- a/ora/string_util_pkg.pks +++ b/ora/string_util_pkg.pks @@ -92,6 +92,9 @@ as -- remove all non-alpha characters (A-Z) from string function remove_non_alpha_chars (p_str in varchar2) return varchar2; + -- returns true if string only contains alpha characters + function is_str_alpha (p_str in varchar2) return boolean; + -- returns true if string is alphanumeric function is_str_alphanumeric (p_str in varchar2) return boolean;