create or replace package body my_package is
   procedure password_check(in_password in varchar2) is
      co_digitarray  constant string(10 char)  := '0123456789';
      co_lower_bound constant simple_integer   := 1;
      co_errno       constant simple_integer   := -20501;
      co_errmsg      constant string(100 char) := 'Password must contain a digit.';
      l_isdigit      boolean                   := false;
      l_len_pw       pls_integer;
      l_len_array    pls_integer;
   begin
      l_len_pw    := length(in_password);
      l_len_array := length(co_digitarray);

      <<check_digit>>
      for i in co_lower_bound..l_len_array
      loop
         <<check_pw_char>>
         for j in co_lower_bound..l_len_pw
         loop
            if substr(in_password, j, 1) = substr(co_digitarray, i, 1) then
               l_isdigit := true;
               goto check_other_things;
            end if;
         end loop check_pw_char;
      end loop check_digit;

      <<check_other_things>>
      null;

      if not l_isdigit then
         raise_application_error(co_errno, co_errmsg);
      end if;
   end password_check;
end my_package;
/

create or replace package body my_package is
   procedure password_check(in_password in varchar2) is
      co_digitarray  constant string(10 char)  := '0123456789';
      co_lower_bound constant simple_integer   := 1;
      co_errno       constant simple_integer   := -20501;
      co_errmsg      constant string(100 char) := 'Password must contain a digit.';
      l_isdigit      boolean                   := false;
      l_len_pw       pls_integer;
      l_len_array    pls_integer;
   begin
      l_len_pw    := length(in_password);
      l_len_array := length(co_digitarray);

      <<check_digit>>
      for i in co_lower_bound..l_len_array
      loop
         <<check_pw_char>>
         for j in co_lower_bound..l_len_pw
         loop
            if substr(in_password, j, 1) = substr(co_digitarray, i, 1) then
               l_isdigit := true;
               goto check_other_things;
            end if;
         end loop check_pw_char;
      end loop check_digit;

      <<check_other_things>>null;

      if not l_isdigit then
         raise_application_error(co_errno, co_errmsg);
      end if;
   end password_check;
end my_package;
/