create or replace PROCEDURE P_CREARUSUARIOS AS
  CURSOR cEmpleados IS SELECT ENAME, EMPNO FROM EMP;
  vNombre EMP.ENAME%TYPE;
  vCodigo EMP.EMPNO%TYPE;
  vContrasena USUARIOS.PSW%TYPE;
  vUsuario USUARIOS.USUARIO%TYPE;
  vContador INT :=1;
BEGIN
  OPEN cEmpleados;
  FETCH cEmpleados INTO vNombre, vCodigo;
  WHILE cEmpleados%FOUND LOOP
    vUsuario := GENERARUSUARIOS(vNombre, vCodigo);
    SELECT DBMS_RANDOM.RANDOM INTO vContrasena FROM DUAL;
    INSERT INTO USUARIOS VALUES(vContador, vUsuario, vContrasena, 0, vCodigo);
    FETCH cEmpleados INTO vNombre, vCodigo;
    vContador :=vContador+1;
  END LOOP;
  close cEmpleados;
END P_CREARUSUARIOS;