declare

blk_id  BLOCK;

begin

    blk_id := Find_block('ADRP_HEADER');

         Set_block_property(blk_id,insert_allowed,property_false);

    	   Set_block_property(blk_id,update_allowed,property_false);

         Set_block_property(blk_id,delete_allowed,property_false);

end;