I have many programs which loop through files.

Is there a simple method to allow the user to interrupt the loop:

  eof=N'

  loop

      :  set eof=Y'

      readnext @id else eof=Y'

  while eof=N'

      repeat

A VERY simple way is to have a cancel button on the Window that launches the report/process. On the cancel button, simply QuickEvent CLOSE the Window. In your code, call Yield() within the loop every 10 rows or somesuch then check for the handle of the Window. If the Handle property of the Window is null, the Window has been closed so you can abort your process by ABORT ALLing.

I am calling the program from a menu and wish to return to the menu if the user wishes to abort, hence I would prefer not to abort the menu.

Simarly, how do I shut down the program if the report is going to OIPI?

Thanks

Well use the GasGauge functionality of MSG in 3.6+. Taken directly from MSG_EQUATES

* to display a gauge (percent bar), use the "G" type; sub-types are C (show

* cancel button) and Y (yield on each cycle):

*

* Def="

* Def=Processing Orders…"

* Def=GC"

* Def=OrderCnt

* MsgUp=Msg(@window, Def)

* for Order=1 to OrderCnt

* gosub ProcessOrder

* * update the gauge and check if cancel was pressed

* while Msg(@window, MsgUp, Order, MSGINSTUPDATE$)

* next Order

* Msg(@window, MsgUp) ;* take down the gauge

Regards

[email protected]

Sprezzatura Ltd

World Leaders in all things RevSoft

When do you want to reboot today?[/b] </QUOTE> —- === At 31 JUL 1998 04:10AM Andrew P McAuley wrote: === <QUOTE>OIPI returns an error if the user presses esc which ou have to trap for and ABORT ALL on, or exit in a more controlled fashion. [email protected] Sprezzatura Ltd World Leaders in all things RevSoft When do you want to reboot today?[/b] </QUOTE> View this thread on the forum...