O= CREATEOBJECT([myclass])
   WITH m.o.mytableproperty
     FOR iProp=1 to AMEMBERS(aProperties,.mytableproperty)
       ? EVAL("."+aProperties[m.iProp])
     ENDFOR
   ENDWITH