como listar todas as variaveis de um prg ?

[edmandc]

Alguém poderia me fazer o favor de informar como posso criar uma lista de todas as variáveis de um determinado prg?

Grato

Edman

FWH8.07 BCC582 xhb1.2.1

 

[joaosolution]

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

 

[edmandc]

só vi agora.... muito obrigado