home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Product
/
Product.zip
/
viper092.zip
/
COPYDB.CMD
next >
Wrap
OS/2 REXX Batch file
|
1995-09-20
|
535b
|
21 lines
/* VIPER Database Engine
Copy a database example.
Copyright (c) - 1995 by Douglas A. Bebber
*/
/* Register the VIPER Database Engine functions... */
rc = RxFuncAdd("SysLoadViperFuncs","Viper", "SysLoadViperFuncs")
call SysLoadViperFuncs
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!'
call SysDropFuncs