2001-05-23 15:26:42 +02:00
|
|
|
/*
|
|
|
|
|
* The contents of this file are subject to the Interbase Public
|
|
|
|
|
* License Version 1.0 (the "License"); you may not use this file
|
|
|
|
|
* except in compliance with the License. You may obtain a copy
|
|
|
|
|
* of the License at http://www.Inprise.com/IPL.html
|
|
|
|
|
*
|
|
|
|
|
* Software distributed under the License is distributed on an
|
|
|
|
|
* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
|
|
|
|
|
* or implied. See the License for the specific language governing
|
|
|
|
|
* rights and limitations under the License.
|
|
|
|
|
*
|
|
|
|
|
* The Original Code was created by Inprise Corporation
|
|
|
|
|
* and its predecessors. Portions created by Inprise Corporation are
|
|
|
|
|
* Copyright (C) Inprise Corporation.
|
|
|
|
|
*
|
|
|
|
|
* All Rights Reserved.
|
|
|
|
|
* Contributor(s): ______________________________________.
|
|
|
|
|
*/
|
2003-03-17 13:06:48 +01:00
|
|
|
modify database 'yachts.fdb';
|
2001-05-23 15:26:42 +02:00
|
|
|
|
|
|
|
|
delete relation rdb$parameters;
|
|
|
|
|
|
|
|
|
|
define relation rdb$procedure_parameters
|
|
|
|
|
rdb$procedure_name,
|
|
|
|
|
rdb$parameter_name,
|
|
|
|
|
rdb$parameter_number,
|
|
|
|
|
rdb$parameter_type,
|
|
|
|
|
rdb$field_source based on rdb$field_name,
|
|
|
|
|
rdb$description,
|
|
|
|
|
rdb$system_flag;
|
