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 = ''

                   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,

       '');

    COMMIT;

  END LOOP;

  p_flag := '';

END prc_sg_sjtj_config;