>Is there some way to get the procedure names out of a procedure file ? or just check for existance of a procedure / function in a procedure file. ?
>
>like you can with a file itself.
>if file("myprg")
>do myprg
>else
>do something else
>endif
>
>
>but say
>ifexist= procedure("myprocedure","procdecurefile")
>
>or anything close ?
>
>Thanks all
>
>Bob Lee

Nothing that simple.
For programs with less than 65,000 lines this works, YMMV

ALines(laCode,FileToStr("myprog.prg"))
For ji =1  To ALen(laCode,1)
  lcLine = Alltrim(Strtran(laCode[ji],Chr(9)," "))
  lcFirst = Upper(Left(lcLine,At(" ",lcLine)-1))
  If lcFirst $ "PROCEDURE"  Or lcFirst $ "FUNCTION"
    ? lcLine
  EndIf
EndFor