>PRIVATE pa_rptaccs > DIMENSION pa_rptaccs[1] > STORE "" TO pa_rptaccs > IF NOT EMPTY(userdbf.crptgrp) > lcAlias = ALIAS() > *** new added by Liew 10/12/2009 *** > *USE shrmsrg IN 0 > IF NOT USED('shrmsrg') > USE shrmsrg IN 0 > ENDIF > ************************************ > SELECT shrmsrg > LOCATE FOR ccode = userdbf.crptgrp > IF FOUND() AND NOT EMPTY(mreport) > RESTORE FROM MEMO shrmsrg.mreport ADDITIVE > ENDIF > USE IN shrmsrg > SELECT (lcAlias) > ELSE > IF NOT EMPTY(userdbf.mreport) > RESTORE FROM MEMO userdbf.mreport ADDITIVE > ENDIF > ENDIF > DIMENSION _SCREEN.oApp.areports[ALEN(pa_rptaccs)] *** ERROR >I suppose that pa_rptaccs is in the memo mreport but in the memo it is not an array