How to Determine If All Elements in an Array Are Empty

MORE INFORMATION

The following function will return a logical false if any element in the entire array is populated with anything other than .F.:

   FUNCTION aempty
   PARAMETERS aname
   FOR pass = 1 to ALEN(aname) STEP 1
   retval = EMPTY(aname(pass))
   IF retval
      LOOP
   ELSE
       RETURN retval
   ENDIF
   ENDFOR
				

This function takes a single parameter <arrayname>. The syntax to call this function is as follows:

   SET UDFPARMS TO REFERENCE
   DIMENSION x(10)
   x(5) = "junk"
   ? aempty(x)
				

NOTE: The elements in any array will initially be false (.F.) by default. Therefore, any element with a logical value of .F. is considered empty.