home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Product
/
Product.zip
/
viper092.zip
/
GETNFLDS.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-09-20
|
864b
|
38 lines
/* VIPER Database Engine
Get number of database fields example.
Copyright (c) - 1995 by Douglas A. Bebber
*/
/* Register the VIPER Database Engine functions... */
rc = RxFuncAdd("SysLoadViperFuncs","Viper", "SysLoadViperFuncs")
call SysLoadViperFuncs
/* OPEN THE DATABASE */
status = RxViperOpenDatabase('CUSTOMER')
if status = 0 then
Do
say 'Failed to open CUSTOMER database!'
exit
End
else
say 'Successfully opened CUSTOMER database!'
/* GET NUMBER OF DATABASE FIELDS */
NFields = RxViperGetNFields('CUSTOMER')
say 'The database contains 'NFields' fields!'
/* CLOSE THE DATABASE */
status = RxViperCloseDatabase('CUSTOMER')
if status = 0 then
Do
say 'Failed to close CUSTOMER database!'
exit
End
else
say 'Successfully closed CUSTOMER database!'