create or replace PROCEDURE Get_TXT_Count
   (
    in_txt       IN  varChar2,
    txtCount     OUT Number,
    o_msg       OUT VARCHAR2
   )
   IS
       v_words      varchar2(4000);
       v_count      Number;
       v_position        number;
   BEGIN
     
      IF substr(in_txt,LENGTH(in_txt),1) != ',' THEN
          v_words := in_txt||',';
      ELSE
          v_words := in_txt;
      END IF;
      v_count := 1;
      v_position := INSTR(v_words,',',1,v_count);
      WHILE v_position <> 0 LOOP
        BEGIN
            SELECT count(*)
            INTO txtCount(v_count)
            FROM VW_TXT_TBL
            WHERE word_txt = SUBSTR(UPPER(GET_ELEMENT(v_words,',',v_count))||
                                    '                              ',1,30);
            o_msg(v_count) := ' ';
        EXCEPTION
            WHEN others THEN
                txtCount(v_count) := 0;
                o_msg(v_count) := SQLERRM;
        END;
        v_count := v_count + 1;
        v_position := INSTR(v_words,',',1,v_count);
      END LOOP;
   EXCEPTION
       WHEN others THEN
           txtCount(1) := 0;
           o_msg(1) := SQLERRM;
   END Get_TXT_Count;

    DECLARE 

    TYPE T_OutputNbr IS TABLE OF NUMBER
      INDEX BY BINARY_INTEGER;
    TYPE T_OutputTxt IS TABLE OF Varchar2(4000)
      INDEX BY BINARY_INTEGER;
    in_txt      varChar2(30);
    txtCount    T_OutputNbr;
    o_msg       T_OutputTxt;
    
    begin
    in_txt  := 'FGHJKUL';
    get_TXT_count(in_txt ,txtCount,o_msg );
    END;
    

    in_txt       IN  varChar2,
    txtCount     OUT Number,
    o_msg       OUT VARCHAR2