>Dear Mark,
>>You can write some code that opens each SCX as a table. Use ADIR() to get an >array of all SCX files. Locate each record that has BaseClass = 'cursor'. For >each record found you can use MLINES() and MEMLINE() functions to look for the >name of the source [CursorSource or Alias].
>
>I am sorry that I don't understand , Could u describe in the detail ??
>'Locate each record that has baseclass = 'cursor' <-- I don't understand..
>
>Thanks in advance .!!!
>From Agnes

lnRetVal = adir(laForms, "*.SCX")
for i = 1 to lnRetVal
    lcForm = laForms[i,1]
    use (lcForm)
    locate for lower(baseclass) = 'cursor'
    do while !eof()
       for j = 1 to memlines(properties)
           if lower(mline[properties, j]) = 'cursorsource'
              lcSource = chrtran(substr(mline[properties, j], 17), '"', '')
              ? "Form:", lcForm, "  Cursor:", lcSource
              exit
           endif
       endfor
       continue
    enddo
    use
endfor
return