>PROCEDURE AppendProcedure(tcDBC As String, tcSPFile As String) > >USE (tcDBC) AGAIN SHARED ALIAS tmpData IN 0 > >SELECT tmpData >LOCATE FOR ObjectType = "Database" AND ObjectName = "StoredProceduresSource" >IF FOUND() > REPLACE Code WITH Code + FILETOSTR(tcSPFile) >ENDIF > >USE IN SELECT("tmpData") >ENDFUNC >>