>DIMENSION cursor_tb[3] >cursor_tb[1] = "cur_dx1" >cursor_tb[2] = "cur_dx2" >cursor_tb[3] = "certificate1" > >FOR x = 1 TO ALEN(cursor_tb) > IF USED(cursor_tb[x]) > USE IN (cursor_tb[x]) > ENDIF >ENDFOR >My immediate reaction was, why bother? With more than 32000 available work areas, you will most likely not run out of resources. But if you really need to close all cursors, you can do something like
lnMax=aused(temp) for x=1 to lnMax if JUSTPATH(DBF(temp(x,1)))=sys(2023) && Cursor use in temp(x,1) endif endfor