oT = createobject('cusTest') oT.TestGetPem() define class cusTest as custom dimension TestArray[10] procedure TestGetPem() ?getpem(this,'TestArray[9]') && error endproc enddefine