Char Functions Oracle PLSQL

SQL>
SQL>
SQL> DECLARE
  2     lv_training_code_txt VARCHAR2(10) := 'T_Code';
  3     lv_non_training_code_txt VARCHAR2(10) := 'TUSC';
  4     PROCEDURE training_class_check (p_class_check VARCHAR) IS p_class_check1 VARCHAR2(10) := p_class_check;
  5  BEGIN
  6        IF SUBSTR(p_class_check1,1,2) = 'T_' THEN
  7           p_class_check1 := 'T-' || SUBSTR(p_class_check1, 3);
  8        END IF;
  9        IF p_class_check1 LIKE 'T-%' THEN
 10           DBMS_OUTPUT.PUT_LINE(p_class_check ||' is a Training Class');
 11        ELSE
 12           DBMS_OUTPUT.PUT_LINE(p_class_check ||' is a Non-Training Class');
 13        END IF;
 14  END training_class_check;
 15
 16  BEGIN
 17     training_class_check(lv_training_code_txt);
 18     training_class_check(lv_non_training_code_txt);
 19  END;
 20  /
PL/SQL procedure successfully completed.
SQL>
SQL>