CREATE OR REPLACE PROCEDURE TAKE_REF_TBL (TOKEN VARCHAR2)
AS
  DWKQUERY LONG;
BEGIN 	   	
    DECLARE 		
		TYPE ARRAY_REF IS VARRAY(10) OF VARCHAR2(20);
		ARRAY ARRAY_REF := ARRAY_REF('MEM','CLASS'); 

	  BEGIN
		
		  FOR i IN 1..ARRAY.COUNT
		  LOOP

			DWKQUERY :=
      '  
      CREATE TABLE DWK_'||ARRAY(i)||'_TBL
      AS SELECT * FROM '||TOKEN||'_MM_'||ARRAY(i)||'      
      ';		
			  BEGIN EXECUTE IMMEDIATE DWKQUERY;
				  EXCEPTION WHEN OTHERS THEN
					  DBMS_OUTPUT.PUT_LINE('ERROR IN CREATING TABLE: '||SQLERRM);
			  END;
			  COMMIT;
		  END LOOP;
    END;
END;
/

-- EXEC TAKE_REF_TBL('TEST');