[RBASE-L] - Re: Check for cursors?

[John Minyo II]

At 05:54 PM 6/8/2010, you wrote:

Is there a program way to check for the existence of
any defined cursors and drop them by name?  I'm assuming
they must be stored in a system table somewhere....

Karen,

You can make use of the CHKCUR Function.

The resulting variable will return a 1 if the
cursor exists, or a 0 if it does not exist.

  SET VAR vCheckCursor INTEGER = (CHKCUR('c1'))
  IF vCheckCursor = 1 THEN
    DROP CURSOR c1
  ENDIF

John