home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Product
/
Product.zip
/
viper092.zip
/
DESTRYDB.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-09-20
|
786b
|
26 lines
/* VIPER Database Engine
Destroy a database example.
Copyright (c) - 1995 by Douglas A. Bebber
*/
/* Register the VIPER Database Engine functions... */
rc = RxFuncAdd("SysLoadViperFuncs","Viper", "SysLoadViperFuncs")
call SysLoadViperFuncs
/* FIRST CREATE THE DATABASE TO BE DESTROYED (COPY AN EXISTING DATABASE) */
status = RxViperCopyDatabase("CUSTOMER", "CUSTBKP", "LNAME", '0')
if status = 0 then
say 'Failed to copy CUSTOMER database to CUSTBKP database!'
else
say 'Successfully copied CUSTOMER database to CUSTBKP database!'
status = RxViperDestroyDatabase( 'CUSTBKP')
if status = 0 then
say 'Failed to destroy the CUSTBKP database!'
else
say 'Destroyed the CUSTBKP database!'
call SysDropFuncs