Create Segment using database procedure in Oracle

CREATE OR REPLACE PROCEDURE DATA_SEGMENT_ORCL IS
            cursor all_tab is select distinct table_name
            from SYS.ALL_TABLES
            where owner='YOUR_SCHEMAA' and SEGMENT_CREATED = 'NO';
               
           v_str_or Varchar2(2000);
                   v_err Varchar2(3000);
        BEGIN
         
         
        for i in all_tab loop
                   
            v_str_or :='ALTER TABLE '||i.table_name|| ' ALLOCATE EXTENT';
           
                          begin
                         
                          execute immediate v_str_or;
                         
                         
                           EXCEPTION
                             WHEN others THEN
                                  v_err:=sqlerrm;
                                   --insert into A_ERROR_ALTER(TBLE_NAME, ERR_CODE) Values (i.table_name,v_err);
                                   commit;
                                  -- Null;
                            end;    
                           
                  v_str_or:='';
                     
            end loop;
           
       
                 
           
        END ;