function mycompobj LPARAMETERS o1,o2 LOCAL llSame,lnProps,ix,lcTemp LOCAL array aProps[1] llSame = compobj(o1,o2) IF llSame lnProps=aMembers(aProps,o1) FOR ix=1 to lnProps IF !pemstatus(o1, aProps[ix], 2) ; and !sys(1269,o1,aProps[ix],1) ; and !type("o1."+aProps[ix])="G" && !protected,rw, !General lcTemp = getpem(o1,aProps[ix]) && Temporarily change prop STORE "" to ("o1."+aProps[ix]) STORE lcTemp to ("o1."+aProps[ix]) && and restore llSame = sys(1269,o2,aProps[ix],0) && Is o2 changed too ? EXIT ENDIF ENDFOR ENDIF * * If all props are protected or RO then would be informed as same * RETURN llSameCetin