>Local cstr, svr, spName >Clear >Close Tables All >cstr = "Driver={SQL Native client};Server=(local);Database=AWS2W;Trusted_Connection=Yes" >svr = Sqlstringconnect(cstr) >If svr > 0 > If Not Directory("StoredProcedures") > Md "StoredProcedures" > Endif > = SQLExec(svr,"sp_Stored_Procedures null,'dbo'","sp") > If Reccount('sp') > 0 > Index On Procedure_name Tag pn Desc > Locate > Scan > spName = Left(Procedure_name,At(";",Procedure_name)-1) > TEXT TO Cmd TEXTMERGE NOSHOW PRETEXT 15 > SELECT RTRIM(text) ttext FROM syscomments where text like > '%<<ALLTRIM(spName)>>%' and texttype = 2 > ENDTEXT > If SQLExec(svr,Cmd, "spText") > -1 > = Strtofile(ALLTRIM(STRCONV(tText,10)),"StoredProcedures\"+Forceext(spName,"sql")) > Endif > Endscan > Endif >Endif >SQLDisconnect(0) >>