if(Get_Block_Property('Z_TEST', STATUS) = 'QUERY')then return; end if;

declare
	rec_num number := 1;
begin
	go_block('Z_TEST');
	first_record;
	loop
                if(get_record_property(rec_num,'Z_TEST',STATUS) in ('NEW','INSERT', 'CHANGED'))then
	     null;
	   end if;
	   exit when :System.Last_Record = 'TRUE';
	   Next_Record;
	end loop;
end;