Fabio,
Thank you very much for your help and the code.
>
>SET DATABASE TO MyDatabase
>fTmp = DEFAULTEXT(ADDBS(SYS(2023))+SYS(2015),'tmp')
>LIST PROCEDURES TO FILE (m.fTmp) NOCONSOLE
>? SPACE(2)+'myprocedure' $ FILETOSTR(m.fTmp)
>ERASE (m.fTmp)
>
>
>* put procedures into a array
>
>SET DATABASE TO MyDatabase
>fTmp = DEFAULTEXT(ADDBS(SYS(2023))+SYS(2015),'tmp')
>LIST PROCEDURES TO FILE (m.fTmp) NOCONSOLE
>FOR I=1 TO ALINES(aSP,STREXTRACT(FILETOSTR(m.fTmp),SPACE(2)),.T.)
> ? aSP[m.i]
>NEXT
>ERASE (m.fTmp)
>
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham