*TESTCREATE.PRG SET PROC TO TESTcrea ox=createobj('arrayobj') ? alen(ox.aary,1) ? alen(ox.aary,2) ox.changearray() ? alen(ox.aary,1) ? alen(ox.aary,2) PROCEDURE testit DEFINE CLASS arrayobj AS CUSTOM DECLARE aary[4,2] PROC CHANGEARRAY DIMENSION this.aary[9,4] ENDPROC ENDDEFINE