FUNCTION AFIELDSX()

  Short:
  ------
  AFIELDSX() Returns an array of field names for current dbf

  Returns:
  --------
  <aFields> => an array of fields for the current dbf

  Syntax:
  -------
  AFIELDSX()

  Description:
  ------------
  AFIELDSX() creates and returns an array of field names
  from the current dbf. Unlike AFIELDS(), it does not
  require an initialized array beforehand.

  Examples:
  ---------

   aArray := AFIELDSX()
   nSelect :=   mchoice( aArray ,10,10,20,20,"Pick Field")
   if  nSelect > 0
     ?"Field "+aArray[nSelect]+" was selected"
   endif

  Source:
  -------
  S_AFTYPE.PRG