ISBT128

CREATE OR REPLACE FUNCTION isbt128 (p_input VARCHAR2) RETURN VARCHAR2

IS

  v_caracter VARCHAR2(2);
  v_digito VARCHAR2(2);
  v_f_string_nova VARCHAR2(200);
  v_pos1 INTEGER := 0;
  v_peso INTEGER := 0;
  v_soma INTEGER := 103;
  v_resto INTEGER;
  v_valcaracter INTEGER;

BEGIN

  v_f_string_nova := 'Ë' || p_input;

  WHILE v_pos1 < LENGTH(p_input) LOOP
      v_caracter := SUBSTR(p_input, v_pos1 + 1, 1);
      v_peso := v_pos1 + 1;

      v_valcaracter := ASCII(v_caracter) - 32;

      v_soma := v_soma + (v_peso * v_valcaracter);
      v_pos1 := v_pos1 + 1;
      v_resto := v_soma MOD 103;
  END LOOP;

  v_digito := CHR(v_resto + 32);

  v_f_string_nova := v_f_string_nova || v_digito || 'Î';

  RETURN v_f_string_nova;

END;