How to get the source file name

[byron.hopp]

I attempted to use ProcFile() 0,1,2,3,4 but never get the actual filename of my source file. Is there a way to do this?

[Antonio Linares]

Byron,

Please run this and tell you what you get:

Code: Select all

function Main()

   local n
   
   for n = 1 to 10
      ? n, ProcLine( n ), ProcFile( n ), ProcName( n )
   next
   
return nil

[byron.hopp]

Thank you, my friend...

[byron.hopp]

Antonio,

I tried this on IIS.

?"*****"
for n=1 to 10
?Str(n) + ", " + Str( Procline(n)) + ", " + ProcFile(n) + ", " + ProcName(n)
next
?"*****"

And got this. MY Function is Rpt_003(), I was hoping it would show up somewhere.

*****
1, 0, , HB_HRBDO
2, 70, ..\source\exec.prg, EXECUTE
3, 0, ,
4, 0, ,
5, 0, ,
6, 0, ,
7, 0, ,
8, 0, ,
9, 0, ,
10, 0, ,
*****

Thanks,

[Antonio Linares]

Byron,

Please try it up to 20