PARAMETERS tcTableName CLOSE ALL CLEAR SET SAFETY OFF LOCAL ; m.FileString, ; m.ViewFunctionsCalls, ; m.ViewFunctionStart, ; m.ViewFunctionEnd, ; m.ExtractedText, ; m.DropViewCode, ; m.WriteText m.FileString = '' m.ViewFunctionsCalls = '' m.ViewFunctionStart = '' m.ViewFunctionEnd = '' m.ExtractedText = '' m.DropViewCode = '' m.WriteText = '' m.FileString = FILETOSTR('d:\development\PlanMgmt.prg') SELECT ObjectName FROM D:\DEVELOPMENT\PlanMgmt\DATA\PlanMgmt.DBC WHERE objecttype='View' AND (ALLTRIM(LOWER(tcTableName)) + '.')$LOWER(property) INTO CURSOR ViewsCursor SCAN m.ViewFunctionsCalls = m.ViewFunctionsCalls + "MakeView_" + ALLTRIM(ViewsCursor.ObjectName) + "()" + CHR(13) m.ViewFunctionStart = "FUNCTION MakeView_" + ALLTRIM(ViewsCursor.ObjectName) + "()" + CHR(13) + CHR(13) m.ViewFunctionEnd = "ENDFUNC" + CHR(13) + CHR(13) m.DropViewCode = "IF INDBC('" + ALLTRIM(ViewsCursor.ObjectName) + "', 'view')" + CHR(13) + CHR(9) + "DROP VIEW " + ALLTRIM(ViewsCursor.ObjectName) + CHR(13) + "ENDIF" + CHR(13) + CHR(13) m.ExtractedText = STREXTRACT(LOWER(m.FileString),'function makeview_' + ALLTRIM(LOWER(ViewsCursor.ObjectName)),'endfunc') + CHR(13) + CHR(13) m.WriteText = m.WriteText + m.ViewFunctionStart + m.DropViewCode + m.ExtractedText + m.ViewFunctionEnd ENDSCAN m.WriteText = m.ViewFunctionsCalls + CHR(13) + m.WriteText =STRTOFILE(m.WriteText,'d:\development\ExtractFile.txt') SET SAFETY ON CLOSE ALL CLEAR ALL CLEAR MODIFY COMMAND D:\DEVELOPMENT\ExtractFile.txt