* В следующем примере открывается база данных TESTDATA. Создается
* временная таблица MYTABLE с одним memo-полем, и команда REPLACE
* помещает в это memo-поле хранимую процедуру MyProcedure. Команда
* COPY MEMO создает временный текстовый файл MYTEMP.TXT, в котором
* находится соодержимое memo- поля.

* Команда APPEND PROCEDURES используется для добавления к базе
* данных хранимой процедуры из этого временного текстового файла.
* Команда DISPLAY PROCEDURES отображает хранимые процедуры базы
* данных, а затем временная таблица и текстовый файл уничтожаются.

CLOSE DATABASES

SET PATH TO (HOME( ) + 'samples\data\') && Sets path to database

OPEN DATABASE testdata && Open testdata database

CREATE TABLE mytable FREE (mProcedure M) && Create a temporary table

APPEND BLANK

REPLACE mProcedure WITH 'PROCEDURE MyProcedure' + CHR(13) + CHR(10)

COPY MEMO mProcedure TO mytemp.txt && Temporary file

USE && Close the temporary table

APPEND PROCEDURES FROM mytemp.txt && Copy procedure to the database

CLEAR

DISPLAY PROCEDURES && Display the procedures

DELETE FILE mytable.dbf && Erase the temporary table

DELETE FILE mytable.fpt && Erase the temporary table memo file

DELETE FILE mytemp.txt && Erase the temporary file