====== Define_Database subroutine ======


 
==== Description ====
 
Defines a database, using all currently attached tables.
 
==== Syntax ====
 
**Define_Database**(//database//, //overwriteflag, tablelist, removeflag//)
 
==== Parameters ====
 
The Define_Database subroutine has the following parameters.

^Parameter^Description^
|//Database//|Name for the database. The database can contain upper case alphabetic characters, digits, or the underscore ( _ ) character.|
|//Overwriteflag//|If a database definition exists with the same name as the database, the //overwriteflag// determines whether that database definition will be overwritten with the new definition. The default ("" or 0) is to not overwrite. You must pass 1 to overwrite.|
|//Tablelist//|Passes null. If null not passed, goes to debugger.|
|//removeflag//|Passes null. If null not passed, goes to debugger.||

 
==== See Also ====
 
[[create_user|Create_User]], [[save_env|Save_Env]], [[set_env|Set_Env]]
 
==== Example ====
 
<code>
* The last two parameters should be passed as null.

declare subroutine Set_Status, Define_Database
declare function Get_Status
$insert Logical
Set_Status(FALSE$)
Define_Database(@dbid, TRUE$, "", "")
if Get_Status(Error) then
Set_Status(FALSE$)
* handle the error here
end
</code>