SQL-Oracle存储过程-循环A表，向B表插入数据

--存储过程，查询A表，向B表插入数据
create or replace procedure prc_sg_sjtj_config(p_flag out varchar2) IS
BEGIN
  FOR c_row IN (SELECT T.UNIT_NAME,
                       T.DATA_NAME,
                       T.TABLE_NAME,
                       T.UPDATE_ODR,
                       DECODE(T.DATA_METHODS,
                              ‘文件‘,
                              ‘拷贝‘,
                              ‘接口‘,
                              ‘服务接口‘,
                              ‘交换平台‘) AS DATA_METHODS
                  FROM v_dataservice_ext t
                 where t.data_type = ‘0‘
                   AND T.DATA_NAME NOT IN (SELECT s.msxx FROM t_sg_sjdjtj s)) LOOP

    INSERT INTO t_sg_sjdjtj
      (ywdw, ywb, msxx, ms, djfs, tjbz)
    VALUES
      (c_row.unit_name,
       c_row.table_name,
       c_row.data_name,
       c_row.UPDATE_ODR,
       c_row.DATA_METHODS,
       ‘1‘);
    COMMIT;
  END LOOP;
  p_flag := ‘1‘;
END prc_sg_sjtj_config;