lnRecord = getnextmodified(0, lcAlias) >do while lnRecord <> 0 > go lnRecord in (lcAlias) > lcState = getfldstate(-1, lcAlias) > llRemove = not isnull(lcState) and ; > (lcState = replicate('3', fcount(lcAlias) + 1) or ; > left(lcState, 1) = '4') > if llRemove > tablerevert(.F., lcAlias) > endif llRemove > lnRecord = getnextmodified(lnRecord, lcAlias) >enddo while lnRecord <> 0>