ACCEPT P_ID_EM PROMPT "Indique el Id de la Empresa: " DEFAULT 1;
ACCEPT P_ID_COD_USUARIO_BI PROMPT "Indique los Codigos de Usuarios, separados por comas, utilizar en la empresa parametrizado: " ;
DECLARE
--
V_ID_EMPRESA INTEGER := &P_ID_EM;
V_COD_USUARIO varchar2(50) := '&P_ID_COD_USUARIO_BI' ;
with t as (select V_COD_USUARIO as txt from dual);
CURSOR C_USUARIO IS select REGEXP_SUBSTR (txt, '[^,]+', 1, level) USUARIO
from t
connect by level <= length(regexp_replace(txt,'[^,]*'))+1;
i NUMBER:= 0;
--
BEGIN
FOR V_USUARIO IN C_USUARIO LOOP
INSERT INTO BI_T (COD_EM, COD_USUARIO)
VALUES (V_ID_EM, C_USUARIO.USUARIO);
i:= i+1;
--
END LOOP;
END;
/