=ASELOBJ(aa,2) FOR EACH oCur IN aa[1].objects IF oCur.BaseClass='Cursor' * give them proper names, cursor1... cursor32 don't mean a thing in PEM window: oCur.Name='cur'+PROPER(oCur.Alias) IF !EMPTY(oCur.Database) OPEN DATABASE (oCur.Database) ENDIF IF !USED(oCur.alias) SELECT 0 USE (oCur.CursorSource) again ALIAS (oCur.alias) ENDIF SELECT (oCur.alias) IF !EMPTY(oCur.Filter) IF TYPE(ocur.Filter)#"L" =messagebox('bad filter in '+ocur.Name) ENDIF endif IF !EMPTY(oCur.order) IF TAGNO(ocur.Order)=0 =messagebox('bad order in '+ocur.Name) ENDIF endif ENDIF endfor