Re: Does Database exist

> >chaps, > >is there a way of knowing whether or not a database exists? dbdiff2 uses a routine called db_check which currently is as follows: (of course you probably don't care about figuring out what engine it is). ####################################################################### # ensure we can open database ####################################################################### FUNCTION db_check(dbname) DEFINE dbname CHAR(64), err SMALLINT LET err = 0 IF LENGTH(dbname) = 0 THEN LET msg = "Must specify database" CALL op_log(msg) LET err = 1 END IF WHENEVER ERROR CONTINUE DATABASE dbname IF status != 0 THEN LET msg = "Can't open:", dbname clipped, "-", status CALL op_log(msg) LET err = 1 ELSE IF ONLINE_SW THEN SET LOCK MODE TO WAIT 30 IF STATUS THEN LET ONLINE_SW = 0 LET msg = "RESETTING TO SE !!!!! - ", dbname clipped CALL op_log(msg) END IF END IF END IF CLOSE DATABASE RETURN err END FUNCTION _____________________________________________________________________________ Jack Parker | Hewlett Packard, BSMC Boise, Idaho, USA| Domini, Domini, Domini jparker@hpbs3645.boi.hp.com | you're all Catholic now. (208) 396-5388 (W) (208) 384-1623 (H) | - FT _____________________________________________________________________________ Any opinions expressed herein are my own and not those of my employers. _____________________________________________________________________________