when calling form in a loop it closes itself

Hi,

  I am calling the same form in a loop from a source form.

In my source form i have written the following code:

when it comes to the second call it closes the whole application.

Pls help me.

My code is:

while lvar_chkshareFlag = 'N' loop

  message(2);

:global.proceedInd := 'N';

:global.gomainInd := 'N';

 --Call_form('IntershareRSh');

  message('b4 calling');

  call_form('IntershareRSh',hide,no_replace,no_query_only);

  if :global.gomainInd = 'Y' then

     lvar_chkshareFlag := 'O';

     message('going main menu');

     exit_form(no_validate,no_rollback);

  else

     if :global.proceedInd = 'Y' then

set_alert_property('CONF_ALERT',ALERT_MESSAGE_TEXT,'Have you analyzed all the shared TCE keys?');

set_alert_property('CONF_ALERT',TITLE,'Confirmation');

if show_alert('CONF_ALERT') = ALERT_BUTTON1 then

     lvar_chkshareFlag := 'Y';

else

 message('continue in the loop');

 lvar_chkshareFlag := 'N';

end if;

 elsif :global.proceedInd = 'O' then

  lvar_chkshareFlag := 'O';

 else

  message('file will be rejected');

set_alert_property('ALT_ERROR',ALERT_MESSAGE_TEXT,'The file will not be processed');

set_alert_property('ALT_ERROR',TITLE,'Rejected');

if show_alert('ALT_ERROR') = ALERT_BUTTON1 then

 go_item('control.btn_next');

 null;

end if;

exit_form(no_validate,no_rollback);

end if;

end if;

message('1');

end loop;

--
Posted via http://dbforums.com