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)