DECLARE ALERT_CHOICE NUMBER;    
M_DATE varchar(50):=:FIND_MEETING_DATE;
M_ROOM varchar(50):=:ROOM_ID;

CURSOR GETMEETING IS
SELECT MEETING_ID,ROOM_ID,MEETING_DATE,MEETING_START_TIME,MEETING_FINISH_TIME
FROM MY_MEETINGS
WHERE MEETING_DATE like '%'||M_DATE||'%' AND ROOM_ID like '%'||M_ROOM||'%';


BEGIN
        GO_BLOCK('MY_MEETINGS');
        CLEAR_BLOCK;
        IF (:SEARCH.FIND_MEETING_DATE IS NULL OR :SEARCH.ROOM_ID IS NULL) THEN
                SET_ALERT_PROPERTY('ERROR_ALERT',ALERT_MESSAGE_TEXT,'fields can not be empty!!!');
                SET_ALERT_PROPERTY('ERROR_ALERT',TITLE,'ERROR');
                ALERT_CHOICE := SHOW_ALERT('ERROR_ALERT');
                GO_ITEM('FIND_MEETING_DATE');
        ELSE        
        
            OPEN GETMEETING;
            LOOP
            FETCH GETMEETING INTO :MEETING_ID,:ROOM_ID,:MEETING_DATE,:MEETING_START_TIME,:MEETING_FINISH_TIME;
            GO_BLOCK('MY_MEETINGS');
                NEXT_RECORD;    
                
            EXIT WHEN GETMEETING%NOTFOUND;
            
            END LOOP;
            
            END IF;
        
            CLOSE GETMEETING;

                :SEARCH.FIND_MEETING_DATE := NULL;
                    :SEARCH.ROOM_ID := NULL;
                GO_ITEM('FIND_MEETING_DATE');



         --THIS PART IS WOT WORKING       
        EXCEPTION
            WHEN NO_DATA_FOUND THEN
            SET_ALERT_PROPERTY('ERROR_ALERT',ALERT_MESSAGE_TEXT,No result found !!!');
                SET_ALERT_PROPERTY('ERROR_ALERT',TITLE,'ERROR');
                ALERT_CHOICE := SHOW_ALERT('ERROR_ALERT');
                :SEARCH.FIND_MEETING_DATE := NULL;
                    :SEARCH.ROOM_ID := NULL;
                GO_ITEM('FIND_MEETING_DATE');
                
            
END;

	 EXCEPTION
  WHEN NO_DATA_FOUND THEN


         message(' No Record Found. Please Check!!!!');
         message(' ');
         raise form_trigger_failure;

fetch getmeeting ...;

if getmeeting%rowcount = 0 then
   put_the_alert_here;
end if;

exit when getmeeting%notfound;