Hi Gregory,

thank you for your fast answer. It sounded good, I downloaded ParseLocals, installed it and used it to test some working code, well known to me, and it returned some questionable results. I assume that one reason for these analysis results might come from the coding style, which I use: I prefer one-line-declarations, use of the >>m.<< prefix and so on (see below).

So again many thanks for this hint, Gregory, but ParseLocals does not seem to do what I am looking for.

By the way: A tool, which does the complementary job, can be found in "MegaFox: 1002 Things You Wanted to Know About Extending Visual FoxPro", p. 20, "How do I set up a hot key to declare local variables?" Example:
DeclareLocals.prg. After tweaking this a little bit, it also generates one-line-declarations. Use: Have the pointer on a variable somewhere in the code, hit ALT+6 (or whatever you assign for this) and this routine checks, whether the variable is declared. If not, then is does this for you, using the VFP naming conventions (lnX = local numeric etc).

Using it when coding is a tremendous help, just excellent! But using this tool to check existing code is very time consuming. So I am still looking for a tool doing that reverse kind of job.

I will now add two examples to show what I observed using ParseLocals. Sorry for the lengthy examples, but I think otherwise the examples might be difficult to follow. Here is Example 1:

Procedure AddASinglePath

  Local loFolder As Object
  Local loFSO As Object
  Local lcInputValue As String
  Local lcNewDir As String
  Local lcNewPath As String
  Local lcOldDir As String
  Local lcPrompt As String

  m.lcPrompt = 'Pick your directory'

  m.lcOldDir = Sys(5)+Curdir()
  m.lcNewDir = ''
  *--  GETDIR([cDirectory [, cText] [, cCaption [, nFlags [, lRootOnly]]]])
  m.lcInputValue = Getdir(m.lcNewDir, m.lcPrompt, HLSTART_APPLICATION_HEADER, 64)

  If Empty(m.lcInputValue)
    Wait Window Chr(13) + ' Nothing selected ! ' + Chr(13)
  Else
    *-- Get the original capitalization of the path name elements.
    m.loFSO = Createobject('Scripting.FileSystemObject')
    m.loFolder = m.loFSO.GetFolder( m.lcInputValue )
    m.lcInputValue = Addbs(m.loFolder.Path)
    Store .Null. To m.loFolder, m.loFSO
  Endif Empty(m.lcInputValue)
.....
Endproc && AddASinglePath

which resulted in the message:

***********************
Function AddASinglePath
***********************
Add ;
	Local m.loFolder, m.loFSO

And here is the example2:

Function AddPath

  Lparameters tcExisting As String, tcAdditional As String

  Local lcElement As String
  Local lnI As Integer
  Local lnLinesInArray As Integer
  Local lcNewPath As String
  Local Array laPathArray[1]

  If Type( "m.tcAdditional") <> "C" Or Empty( m.tcAdditional )
    Return m.tcExisting
  Endif Empty( m.tcAdditional )

  *--  Add new elements, avoid double entries.
  If Empty( m.tcExisting )
    m.lcNewPath = m.tcAdditional
  Else
    m.lcNewPath = m.tcExisting + ";" + m.tcAdditional
  Endif Empty( m.lcNewPath )
  m.lnLinesInArray = Alines(laPathArray,Strtran(Strtran(Strtran(m.lcNewPath,",",";"),";;",";"),";",Chr(13)),4)
  m.lcNewPath = ";"
  For m.lnI = 1 To m.lnLinesInArray
    m.lcElement = Strtran(laPathArray(m.lnI), '"', '')
    If At( ';' + Addbs(Lower(m.lcElement)) + ';', Lower( m.lcNewPath )) = 0
      m.lcNewPath = m.lcNewPath + Addbs( m.lcElement ) + ';'
    Endif At( Addbs( Lower( Alltrim(laP ...
  Next m.lnI
...
Endfunc && AddPath

which which resulted in the message:

****************
Function AddPath
****************
Add ;
	Local m

Remove Local ;
	lnI, ;

>>Hi All,
>>
>>Happy New Year 2007 to everybody!
>>
>>I faintly remember there has been a tool which allows comparing the definitions of the variables at the beginning of program/Subroutine/Function with what is used in the code later on. Can please somebody help me to update my memory?
>>
>>Presently I am working on some old code, some of which I got from somewhere else, and such a tool would be very helpful.
>>
>>Hans
>
>Hans,
>
>Is this what you are looking for ? http://fox.wikis.com/wc.dll?Wiki~ParseLocals