oracle 一行变多行，pl/sql

建表语句：
create table MY_CHANGE (MY_ID int,
MY_VALUE varchar(100));

insert into MY_CHANGE values(1,'a,b,c');
insert into MY_CHANGE values(2,'d,r');
insert into MY_CHANGE values(3,'x,y,z');
commit;
所谓的一行变多行就是要实现下面的效果：
1 a
1 b
1 c
2 d
2 r
3 x
3 y

3 z

pl/sql:
declare num int; --判断表是否存在的标识
cur_my_ID int; --游标变量值
cur_my_value varchar2(100); --游标变量值
s1 varchar(100);
s2 varchar(100); --s1,s2为拆分做准备
len_1 int; --字符串长度
cursor cur_my is
select my_ID,my_value from my_change; --定义游标
begin
/*
* 存在表MY_TABLE则删除，不存在则创建
*/
select count(1) into num from all_tables where TABLE_NAME = 'MY_TABLE' and OWNER='SCOTT';
if(num=1) then
execute immediate 'drop table MY_TABLE';
end if;
execute immediate '
create table MY_TABLE(
my_ID int,
my_value_now varchar2(100))';

open cur_my;
fetch cur_my into cur_my_id,cur_my_value;
while cur_my%found
loop --外循环，游标取值
select replace(cur_my_value,',','') into s1 from dual; -- 去除字符中间的 ，
select length(s1) into len_1 from dual; -- 取当前字符串长度
while len_1>0 --内循环,拆分数据
loop
s2:=substr(s1,1,1); -- 取出第一个字符
insert into my_table values(cur_my_id,s2); --插入
s1:=substr(s1,2,len_1-1); -- 把第一个字符删除
len_1:=len_1-1; -- 循环次数-1
end loop;
fetch cur_my into cur_my_id,cur_my_value;
end loop;
close cur_my;
end ;
存储过程：

create or replace
procedure cc  as
        num  int;                      --判断表是否存在
        cur_my_ID int;                 --游标值       
        cur_my_value varchar2(100);    --游标值 
        s1 varchar(100);
        s2 varchar(100);
        len_1 int;
        cursor cur_my is
        select my_ID,my_value from my_change;
        str_sql varchar2(500);
        tb_name varchar2(100);


begin
    tb_name:='MY_TABLE';
    select count(1) into num from all_tables where TABLE_NAME = 'MY_TABLE' and OWNER='SCOTT'; 
    if(num=1) then
         str_sql:='drop table '|| tb_name; 
         execute immediate str_sql;
    end   if;  
   
     str_sql:=' create table  '|| tb_name ||' (
      my_ID int,
      my_value_now varchar2(100))';
       execute immediate str_sql;
    open cur_my; 
    fetch cur_my into cur_my_id,cur_my_value;
    while cur_my%found
    loop
        select replace(cur_my_value,',','') into s1 from dual; -- 去除字符中间的 , 
        select length(s1) into len_1 from dual;      -- 取当前字符串长度
        while len_1>0
          loop
          s2:=substr(s1,1,1);               -- 取出第一个字符
          str_sql:='insert into  '|| tb_name|| '(my_ID,my_value_now) values(' || cur_my_id ||','''|| s2 ||''')';   --两个单引号输出单引号
          execute immediate str_sql;
          -- dbms_output.put_line(s2);        -- 输出
          s1:=substr(s1,2,len_1-1);         -- 把第一个字符删除
          len_1:=len_1-1;                   -- 循环次数-1
          end loop;
        fetch  cur_my into cur_my_id,cur_my_value;
    end loop;
    close cur_my; 
   
end cc;