home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / blackb10.zip / CREATEDB.CMD < prev    next >
OS/2 REXX Batch file  |  1995-01-31  |  2KB  |  22 lines
  1. rem call dbm drop database blackb
  2. call dbm create database BLACKB on C
  3. call dbm change database BLACKB comment with "BlackBoard/2 Version 1.0"
  4. call dbm connect to BLACKB
  5.  
  6. Call DBM Create Table BLACKB.Projects(ProjName varchar(32) Not Null , Descr varchar(80) Not Null , Log varchar(1024) Not Null , Owner varchar(18) Not Null , ProjTs TimeStamp Not Null , Primary Key ( ProjName ) )
  7. Call DBM Create Table BLACKB.Tables(TBCreator varchar(8) Not Null , TBName varchar(18) Not Null , TBDescr varchar(80) Not Null , Primary Key ( TBCreator , TBName ) )
  8. Call DBM Create Table BLACKB.Columns(ColName varchar(18) Not Null , ColDescr varchar(80) Not Null , ColPrim Integer Not Null , ColNotNull Integer Not Null , ColType varchar(50) Not Null , ColVS varchar(1024) not null,Primary Key ( ColName )  , TBCreator varchar(8) Not Null , TBName varchar(18) Not Null,colforname varchar(18) not null)
  9. Call DBM Create Table BLACKB.ProjTab(XPos Integer Not Null , YPos Integer Not Null ,ForeignTable Integer Not Null , ProjName varchar(32) Not Null , TBCreator varchar(8) Not Null , TBName varchar(18) Not Null)
  10. Call DBM Create Table BLACKB.Rels(TBRefCreator varchar(9) not null,TBRefName varchar(18) not null , RelCar Integer Not Null , RelDR Integer Not Null , TBCreator varchar(8) Not Null , TBName varchar(18) Not Null)
  11. Call DBM Create Table BLACKB.DATATypes(DTNAME varchar(18) not null,dtdef char(80) not null,ts timestamp not null,projname varchar(32) not null, Primary Key ( DTName ))
  12.  
  13. Call DBM Alter Table BLACKB.Columns Foreign key (TBCreator , TBName )  References BLACKB.Tables On Delete Cascade
  14. Call DBM Alter Table BLACKB.ProjTab Foreign key (ProjName )  References BLACKB.Projects On Delete Cascade Foreign key (TBCreator , TBName )  References BLACKB.Tables On Delete Cascade
  15. Call DBM Alter Table BLACKB.Rels Foreign key (TBCreator , TBName )  References BLACKB.Tables On Delete Cascade
  16. Call DBM Alter Table BLACKB.Datatypes Foreign key (ProjName )  References BLACKB.projects On Delete Cascade
  17.  
  18. call dbm connect reset
  19.  
  20. sqlbind blackb.bnd BLACKB
  21.  
  22.