declare 
	a varchar(60);
	b varchar(60);
	c varchar2(60);
begin
	
	/*Let the user enter the query*/
	enter_query;
	
	/*get the active form name*/
	b := get_application_property(current_form_name);
	/*get the active block name*/
	a := get_form_property(b, first_block);
	
	loop
		
	/*test if there is an underlying table for that block*/
	 c := get_block_property(a, dml_data_target_name);
	 
	 /*disable the form*/
	 if c is not null then
      
       /*calling procedure which in the library to make the form non updateable*/
	 item_enable_disable(a, property_off);
	 
	 end if;
	 
	 a := get_block_property(a, nextblock);
	 
	 if a is null then
	 	
	 	exit;
	 end if;
	 end loop;
	
	end;