jbratu

Function CS_DETACH_VOLUMES_STARTING_WITH(void)

StartingPrefix = '\\server\share\'
StartingPrefixLen = Len(StartingPrefix)

declare function Set_FSError
$Insert Logical

*Readnext through the systables which contains a list of currently attached tables.
TABLE_NAME = "SYSTABLES"

jbratu

project = "CLIENT" and status != closed ORDER BY createdDate

jbratu

Subroutine TEST_DSBFS_EXEC_SQL( connection_name )
/*
**
**  Sample program showing how to use the DSBFS_EXEC_SQL program to
**  send a update statement
**  Send a select, get results
**  Send a parameterized select, get results
**  Call a stored procedure
**  Call a stored procedures, passing in paramters
**  

jbratu

zfs snapshot -r d6/storage@backup
zfs send -R d6/storage@backup | zfs receive -vF extbackups/20200725storage
zfs destroy -r d6/storage@backup



zfs snapshot -r d6@backup
zfs destroy -r d6/.system@backup
#zfs send -R d4@backup | zfs receive -vF extbackup
zfs send -R d4@backup | zfs receive -vF extbackups/2016-09-19

jbratu

Function CS_SIMPLE_KEY_VALUE(Action, Array, Key, Value)

If Action _EQC 'set' Then

	Swap @FM With @VM In Value

	ArrayCount = DCOUNT(Array,@FM)
	
	For i = 1 To ArrayCount
	

jbratu

Function CS_REMOVE_ITEMS_FROM_LIST(ListName, ItemsToRemove, Delim)

$Insert Logical

Declare Subroutine Set_Status

Open 'SYSLISTS' To Table Else
	Set_Status(-1,1,'Unable to open syslists table')
	Return
End

jbratu

Subroutine CS_LIST_TABLES_AND_CLEAR(void)
Declare Function Get_Status, List_Index_Detailed


declare function Set_FSError, CS_RLIST_UTIL, Dialog_box, List_Volume_Sub
declare subroutine RLIST
$Insert Logical

Volume = 'C:\SomePath\Volume\ToClean'
Tables = List_Volume_Sub(Volume,'','','')

jbratu

Subroutine CS_DELETE_EMPTY_KEYS(tablename)

Open TableName To Table Then

	Delete Table, '' Then
	End

End

jbratu

Function CS_MV_TO_HTML_TABLE(Array)

RowCount = DCOUNT(Array,@FM)
ColCount = DCOUNT(Array<1>,@VM)
h = ''

h := '<table style="border: 1px solid black;">' : \0D0A\

For i = 1 To RowCount

jbratu

https://www.revelation.com/o4wtrs/oecgi3.exe/O4W_RUN_FORM?INQID=WORKS_READ&KEY=9A63280D61AE93030A85D434E&SUMMARY=0#/section/breadcrumb/UPDATETABLE/Display

subroutine t_Refresh_blank_rdk(list_id)
     /*
     **  Build rdk from a syslists record
     **  listId is the key to a syslists record is a list of SYSREPOS ids
     **  each line should be a sysrepos id or table/row
     ** commented rows start with #
     ** comments in lines start with ;
     ** e.g.