为提高效率，提问时请提供以下信息，问题描述清晰可优先响应。
【DM版本】:8
【操作系统】：linux
【CPU】:
【问题描述】*：```language

CREATE OR REPLACE PROCEDURE "QKJWL"."P_FASP_DICNOMERCLEAR" AS Cursor cursor IS SELECT
	table_name 
FROM
	user_tables 
WHERE
	table_name LIKE 'FASP_T_PUN%' 
	AND table_name NOT IN ( SELECT upper( tablecode ) FROM fasp_t_normds );
tab VARCHAR2 ( 300 );
tmpSql VARCHAR2 ( 2000 );
s INTEGER;
l INTEGER;
BEGIN
	SELECT
		count( table_name ),
		0 INTO s,
		l 
	FROM
		user_tables 
	WHERE
		table_name LIKE 'FASP_T_PUN%' 
		AND table_name NOT IN ( SELECT upper( tablecode ) FROM fasp_t_normds );
	FOR tab IN cursor
	loop
	BEGIN
			DELETE FASP_T_NORMVERSIONPACE;
		l := l + 1;
		INSERT INTO FASP_T_NORMVERSIONPACE ( PACE, INFO, SUM )
		VALUES
			( l, '删除表' || tab.table_name, s );
		commit;
		tmpSql := ' drop table ' || tab.table_name;
		execute IMMEDIATE tmpSql;
		
	END;
	
END loop;

END P_FASP_DICNOMERCLEAR;