Not comming out of loop

Question

Gurus
Below is the code which I have written, the problem is, when record is not found, its showing alert, but system getting hanged .. Can you suggest a solution
Declare
     CURSOR C_SUBCLASS IS SELECT DEPT, CLASS, SUBCLASS
                FROM SUBCLASS
           WHERE DEPT = TRIM(TO_NUMBER(:HEAD.DEPT))
           AND CLASS = TRIM(TO_NUMBER(:HEAD.CLASS));
  C_L_SUBCLASS C_SUBCLASS%ROWTYPE;                               
Begin
          OPEN C_SUBCLASS;
          FETCH C_SUBCLASS INTO C_L_SUBCLASS;
          IF C_L_SUBCLASS.DEPT IS NULL THEN
               L_ALERT := SHOW_ALERT('ALT_OK');
               IF L_ALERT = 'ALERT_BUTTON1' THEN
                       GO_BLOCK('HEAD');
                    CLEAR_BLOCK;
               END IF;
          END IF;
end;Regards
Message was edited by:
Seshu

Answer 1

Hi,
Sorry, to paste the L_alert declaration...
It is declared as L_alert varchar2(50);
The problem here is .. the place where dept and class are selected, they belong to one block ..
And the push button where I have written the code is in another block... I have tried another alternative ...
Declare
L_alert varchar2(50);
L_dept number;
BEGIN
     SELECT DEPT INTO L_DEPT
     FROM SUBCLASS
     WHERE DEPT = TRIM(:HEAD.DEPT);
EXCEPTION
     WHEN NO_DATA_FOUND THEN
     EMESSAGE('SUBCLASS WHEN NO DATA FOUND');
     L_ALERT := SHOW_ALERT('ALT_OK');     
                GO_BLOCK('HEAD')
END;Now the problem is, its showing message ... and alert .. and now when I am shifting the control back to the head block (where i will be selecting the dept and class), its displaying error "No navigable items in the block" ... Can you suggest something for this
Regards