jbratu

Function test_jab(void)

Password = '123456789012345'
Max = 4000
Offset = 0

For i = 1 To Max

	Id = i + offset
	UserName = 'USER' : Fmt(ID,"R(0)#21")

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