SCAN WHILE BINTOC(XX101P)=BINTOC(m.XX101P) AND; BINTOC(SYS2007)=BINTOC(VAL(SYS(2007,m.OBJNAME))); FOR OBJNAME==m.OBJNAME llFound=.T. ENDSCANto:
SCAN WHILE BINTOC(XX101P)=BINTOC(m.XX101P) AND ; BINTOC(SYS2007)=BINTOC(VAL(SYS(2007,m.OBJNAME))) IF OBJNAME==m.OBJNAME llFound=.T. EXIT ENDIF ENDSCANMartinJ