create or replace procedure ddt is
  V_CreateUser_stmt VARCHAR2(100);
  V_User_Name       VARCHAR(20);
  V_Num             NUMBER := 2;
begin  WHILE V_Num < 3 LOOP
    V_User_Name := 'US' || V_Num;
    V_CreateUser_stmt := 'CREATE USER ' || V_User_Name || ' IDENTIFIED BY ' || V_User_Name
                      ||' DEFAULT TABLESPACE users QUOTA 5M on users';
    EXECUTE IMMEDIATE V_CreateUser_stmt ;    V_Num := V_Num + 1;
  END LOOP;
end;