OS/2 Shareware BBS: 18 REXX/18-REXX.zip/rxbas223.zip/ADDON.EXT

Text File | 1996-10-11 | 5KB | 235 lines

@RexxBase Functions
%Rexxbase Environment Initialazation
$
call  rxfuncadd rexxbase_init, Rexxbase, "Rexxbase_Init" )
call  rexxbase_init()
%Rexxbase_OpenDBF
$
rc = RexxBase_OpenDBF("database")
if rc <> '' then do
   end
%Rexxbase_OpenDBF with tag
$
rc = RexxBase_OpenDBF("database", "TAG=TAGID")
if rc <> '' then do
   end
%Rexxbase_OpenDBF with ndx file
$
rc = RexxBase_OpenDBF("database", ndxfile)
if rc <> '' then do
   end
%Rexxbase_CloseDBF
$
rc = RexxBase_CloseDBF("database")
if rc <> '' then do
   end
%Rexxbase_CloseAllDBF
$
rc = RexxBase_CloseAllDBF()
if rc <> '' then do
   end
%Rexxbase_ReadDBF
$
rc = RexxBase_ReadDBF("database")
if rc <> '' then do
   end
%Rexxbase_ReadPrevDBF
$
rc = RexxBase_ReadPrevDBF("database")
if rc <> '' then do
   end
%Rexxbase_GoToRecord
$
rc = RexxBase_GoToRecord("database")
if rc <> '' then do
   end
%Rexxbase_WriteDBF
$
rc = RexxBase_WriteDBF("database")
if rc <> '' then do
   end
%Rexxbase_UpdateDBF
$
rc = RexxBase_UpdateDBF("database")
if rc <> '' then do
   end
%Rexxbase_CreateDBF
$
database.fieldcount = 2
database.fieldname.1 = field1
database.field1.type = 'c'
database.field1.length = '10'
database.fieldname.2 = field2
database.field2.type = 'l'
rc = RexxBase_CreateDBF("database")
if rc <> '' then do
   end
%Rexxbase_CreateFromDBF
$
rc = RexxBase_CcreateFromDbf('fromonedbf','toanewdbf')
if rc <> '' then do
   end
%Rexxbase_ModifyDBF
$
rc = rexxbase_modifydbf('dbf')
if rc <> '' then do
   end
%Rexxbase_DeleteRecord
$
rc = RexxBase_DeleteRecord("database")
if rc <> '' then do
   end
%Rexxbase_UndeleteRecord
$
rc = RexxBase_UndeleteRecord("database")
if rc <> '' then do
   end
%Rexxbase_PackDBF
$
rc = RexxBase_PackDBF("database")
if rc <> '' then do
   end
%Rexxbase_FindRecord
$
rc = RexxBase_FindRecord("database", findvalue)
if rc <> '' then do
   end
%Rexxbase_FindRecord with exact option
$
rc = RexxBase_FindRecord("database", findvalue, 'EXACT')
if rc <> '' then do
   end
%Rexxbase_SetIndexTagName
$
rc = RexxBase_SetIndexTagname('database',tagname)
if rc <> '' then do
   end
%Rexxbase_CreateIndex
$
rc = RexxBase_CreateIndex('database',indexfilename,fieldlist)
if rc <> '' then do
   end
%Rexxbase_CreateMultipleIndexFile
$
rc = Rexxbase_CreateMultipleIndexFile(database,mdxfilename)
if rc <> '' then do
   end

%Rexxbase_AddTagToIndex
$
rc = Rexxbase_AddTagToIndex('database',tagid, fieldlist)
if rc <> '' then do
   end
%Rexxbase_DropTagFromIndex
$
rc = Rexxbase_DropTagFromIndex('database', tagid)
if rc <> '' then do
   end
%Rexxbase_ReindexDBF
$
rc = RexxBase_ReindexDBF("database")
if rc <> '' then do
   end
%Rexxbase_SortDBF
$
if rc <> '' then do
   end
%Rexxbase_ReadAndLockDBF
$
rc = RexxBase_ReadAndLockDBF("database")
if rc <> '' then do
   end
%Rexxbase_ReadAndLockPrevDBF
$
rc = RexxBase_ReadAndLockPrevDBF("database")
if rc <> '' then do
   end
%Rexxbase_FindAndLockRecord
$
rc = RexxBase_FindAndLockPrevDBF("database")
if rc <> '' then do
   end
%Rexxbase_WriteDBFWithLock
$
rc = RexxBase_WriteDBFWithLock("database")
if rc <> '' then do
   end
%Rexxbase_GotoAndLockRecord
$
rc = RexxBase_GotoAndLockDBF("database")
if rc <> '' then do
   end
%Rexxbase_LockDBF
$
rc = RexxBase_LockDBF("database")
if rc <> '' then do
   end
%Rexxbase_UnlockDBF
$
rc = RexxBase_UnlockDBF("database")
if rc <> '' then do
   end
%Rexxbase_SetLockTimeout
$
rc = Rexxbase_SetLockTimeout(timevalue)
if rc <> '' then do
   end
%Rexxbase_FilterDBF
$
rc = Rexxbase_FilterDBF('database', filterstring)
if rc <> '' then do
   end
%Rexxbase_FilterDBF turn off filtering
$
rc = Rexxbase_FilterDBF('database')
if rc <> '' then do
   end
%Rexxbase_ScanForRecord
$
rc = Rexxbase_ScanForRecord('database', filterstring)
if rc <> '' then do
   end
%Rexxbase_ChangePrimaryIndex
$
rc = Rexxbase_ChangePrimaryIndex('database', relativeindexnumber)
if rc <> '' then do
   end
%Rexxbase_SummarizeDBF
$
rc = Rexxbase_SummarizeDBF('database',outputfilename)
if rc <> '' then do
   end
%Rexxbase_ExportDBF
$
rc = Rexxbase_ExportDBF('database',exportfilename)
if rc <> '' then do
   end
%Rexxbase_ImportDBF
$
rc = Rexxbase_ImportDBF('database',importfilename,
if rc <> '' then do
   end
%Rexxbase_FormatDate
$
formatteddate = Rexxbase_FormatDate(19970606)
%Rexxbase_InternalDate
$
unformatteddate = Rexxbase_InternalDate('1997/06/06')
%Rexxbase_DaysDifference
$
daycount = Rexxbase_DaysDifference(19960707,19970707)
%Rexxbase_DateCalc
$
date= Rexxbase_DateCalc(19970707, -365)
%Rexxbase_DayOfWeek
$
dow=RexxBase_DayofWeek(19970808)
%Rexxbase_JoinDBF
$
rc = RexxBase_JoinDBF('database1', 'database2', filterstring)
if rc <> '' then do
   end
%Rexxbase_Soundex
$
soundstring = RexxBase_Soundex('Sound Me Out')