create or replace procedure p_getString(    p_finalString out varchar2,    p_rulestring  in number,     p_sourceString in varchar2)as    v_num number:=1;    v_resoucenum number:=1;    v_getnum number;    v_getsting varchar2(2000);    v_errorstring exception;    v_errorrule exception;begin     if length(p_sourceString) < 18 then       raise v_errorstring;     else         p_finalString:=‘‘;        loop         v_getnum := substr(p_rulestring, v_num, 1);                     -- get the numbers from rule          v_getsting := substr(p_sourceString, v_resoucenum, v_getnum);   -- According to the rule number to get the short String          v_resoucenum := v_resoucenum + v_getnum;                        -- the number of the next short string start position         v_num := v_num + 1;                                                      p_finalString := p_finalString||v_getsting||‘/‘;                -- Splice the short string to the final String         dbms_output.put_line(v_resoucenum);         if substr(p_rulestring, v_num, 1) is null then exit;             end if;        end loop;         if (v_resoucenum -1) < 18 or(v_resoucenum -1) > 18 then             raise v_errorrule;         end if;         p_finalString := substr(p_finalString, 1, length(p_finalString)-1);    end if;    exception  when v_errorstring then    p_finalString:=‘The String length is less than 18!‘;  when v_errorrule then    p_finalString:=‘The sum value of the rule numbers less than or more then 18!‘;  when others then    p_finalString:=‘Others wrong‘;    end p_getString;