*** *** gen_setproc.prg *** * 13.05.04 11:27:59 * Visual FoxPro 08.00.0000.3117 for Windows *** *** ---------------------------------- *** #DEFINE hLF CHR(10) #DEFINE hCR CHR(13) #DEFINE hCRLF CHR(13)+CHR(10) #DEFINE hTab CHR(9) LOCAL a[1], i, lcComma, lctext TEXT TO lctext NOSHOW TEXTMERGE *** *** setproc.prg *** * <<datetime()>> * <<version()>> * Generated by <<program()>> *** *** ---------------------------------- *** Set Procedure To Set Classlib To ENDTEXT cTab=hTab lcSemi=";" *[2009/03/25 18:48] ndragan - AND NOT exclude is now excluded because *-- some dummy calls may be there just for the sake of completeness. SELECT NAME FROM your.pjx INTO ARRAY a WHERE TYPE="P" ASORT(a) lctext = lctext + hCR+"Set Procedure To " lcComma="" FOR i=1 TO ALEN(a) lcName=CHRTRAN(a[i], CHR(0), "") IF NOT FILE(lcName) LOOP ENDIF *[2007/09/28 22:59:16] dragan - check for weirder names IF " "$lcName OR OCCURS(".", lcName)>1 lcName=CHR(34)+lcName+CHR(34) ENDIF lctext = lctext + lcComma+lcSemi+hCRLF+cTab+lcName lcComma="," ENDFOR lctext = lctext + hCR + hCR+"Set Classlib To " SELECT NAME FROM ids.pjx INTO ARRAY a ; WHERE TYPE="V" AND NOT exclude ASORT(a) lcComma="" FOR i=1 TO ALEN(a) lcName=CHRTRAN(a[i], CHR(0), "") IF NOT FILE(lcName) LOOP ENDIF *[2007/09/28 22:59:16] dragan - check for weirder names IF " "$lcName OR OCCURS(".", lcName)>1 lcName=CHR(34)+lcName+CHR(34) ENDIF lctext = lctext + lcComma+lcSemi+hCRLF+cTab+lcName lcComma="," ENDFOR USE IN your lctext = lctext + hCR+ hCR STRTOFILE(lctext, "prgs\setproc.prg")Then it's just a "do setproc" somewhere in your startup.