I'm looking for the easiest way to detect the name the alias of all my cursor in the data environment.

I have something like this to scroll thru all the entries:

IF AMEMBERS(laCursor,ThisForm.DataEnvironment,2)>0
   FOR lnCompteur=1 TO ALEN(laCursor)
      lcExec='ThisForm.DataEnvironment.'+laCursor[lnCompteur]
      =AMEMBERS(laCursor2,&lcExec)
      IF laCursor2[1]='ALIAS'
         * We have an alias
         * We can add the code here to do some process
      ENDIF
   NEXT
ENDIF

So, basically, is that the proper approach? Also, once I am on an alias, what is the easiest way to detect the alias name?