|
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
5 BEGIN
6 IF p_class_check LIKE 'T_%' THEN
7 DBMS_OUTPUT.PUT_LINE(p_class_check ||' is a Training Class');
8 ELSE
9 DBMS_OUTPUT.PUT_LINE(p_class_check ||' is a Non-Training Class');
10 END IF;
11 END training_class_check;
12
13 BEGIN
14 training_class_check(lv_training_code_txt);
15 training_class_check(lv_non_training_code_txt);
16 END;
17 /
T_Code is a Training Class
TUSC is a Training Class
PL/SQL procedure successfully completed.
SQL>
SQL>
--
|