*-- SizeArry - Returns the size of the array
PARAMETER laArry
PRIVATE m.lnCount, m.lnLimit

EXTERNAL ARRAY laArry
m.lnCount = 1
m.lnLimit = ALEN(laArry,1)
DO WHILE m.lnCount <= m.lnLimit
	IF EMPTY(laArry[m.lnCount,1])
		RETURN m.lnCount-1
	ENDIF
	m.lnCount = m.lnCount + 1
ENDDO
RETURN m.lnCount-1