Boa tarde
Verifique a \fivewin\source\function\errsysw.prg.
cErrorLog := ""
cErrorLog += CRLF + "Variaveis em uso" + CRLF + "================" + CRLF
cErrorLog += " Procedure Type Value" + CRLF
cErrorLog += " ==========================" + CRLF
i := 2 // we don't disscard any info again !
while ( i < 74 )
if ! Empty( ProcName( i ) )
cErrorLog += " " + Trim( ProcName( i ) ) + CRLF
for j = 1 to ParamCount( i )
cErrorLog += " Param " + Str( j, 3 ) + ": " + ;
ValType( GetParam( i, j ) ) + ;
" " + cGetInfo( GetParam( i, j ) ) + CRLF
next
for j = 1 to LocalCount( i )
cErrorLog += " Local " + Str( j, 3 ) + ": " + ;
ValType( GetLocal( i, j ) ) + ;
" " + cGetInfo( GetLocal( i, j ) ) + CRLF
next
endif
i++
end