//[result example]
//
// DEPT table has 5 data
//

require 'dboralib.slb'

run()
exit

function run()

	local dept

	connect scott/tiger
	sql select DEPTNO, DNAME, LOC from DEPT;

	if DBERR eq 0
		dept = fetch(0)
		print('DEPT table has '&count(dept)&' data', stdout)
	else
		print(DBERRMSG, stdout)
	endif

	logout

endfunction

//[result example]
//
//    DEPTNO DNAME      LOC
//        10 ACCOUNTING NEW YORK
//        20 RESEARCH   DALLAS
//        30 SALES      CHICAGO
//        40 OPERATIONS BOSTON
//        50 LOGISTICS  LOS ANGELE
//

require 'dboralib.slb'

run()
exit

function run()

	connect scott/tiger
	sql select DEPTNO, DNAME, LOC from DEPT;

	if DBERR eq 0
		sqlformat(10, 10, 10)
		sqlprint(0, stdout)
	else
		print(DBERRMSG, stdout)
	endif

	logout

endfunction

//[result example]
//
//    DEPTNO DNAME      LOC
//        10 ACCOUNTING NEW YORK
//        20 RESEARCH   DALLAS
//        30 SALES      CHICAGO
//        40 OPERATIONS BOSTON
//        50 LOGISTICS  LOS ANGELE
//

require 'dboralib.slb'

run()
exit

function run()

	connect scott/tiger
	sql select DEPTNO, DNAME, LOC from DEPT;

	if DBERR eq 0
		sqlformat(10, 10, 10)
		sqlprint(0, stdout)
	else
		print(DBERRMSG, stdout)
	endif

	logout

endfunction

//[result example]
//
// input number:3
// sqrt(3) = 1.732051
//

exit get_sqrt()

function get_sqrt()

	local input = 0

	input = getopt('input number: ')
	print("sqrt("&input&") = "& sqrt(input) )

endfunction

//[result example]
//
// Standard deviation is 6.244998
// 

exit Run()

function Run()

	local arr[3] = {18, 9, 6}
	local stddev_arr

	stddev_arr = stddev(arr)

	print('Standard deviation is ${stddev_arr}', stdout)

endfunction

//[result example]
//
// The sum total is 6.000000
//

exit Run()

function Run()

	local arr[3] = {1, 2, 3}
	local sum_arr

	sum_arr = sum(arr)

	print('The sum total is ${sum_arr}', stdout)

endfunction

//[result example]
//
//ABC=sample
//

run()
exit

function run()

	setenv('ABC', 'sample')
	print('ABC=${getenv("ABC")}')

endfunction

//[result example]
//
//input suspend time(sec): 30
//now suspending...
//30 seconds suspended.
//

sleeptime()
exit

function sleeptime()

	local input_time = 10

	input_time = getopt('input susptend time(sec): ')
	print('now suspending...')
	sleep(input_time)
	print('${input_time} seconds susptended.')

endfunction

run()
exit(0)

function run()

	local s_file
	local n_rc = 0

	s_file = getopt('delete file: ')

	print("\n*** system(\"cmd /c del /q " & s_file & "\") ***\n", stdout)

	// system
	n_rc = system('cmd /c del /q ' & s_file)

	if n_rc == 0
		print("completed.", stdout)
	endif

	print("--------------------------------", stdout)

endfunction

//[result example]
//
// --------------------------------
// a_array[0] => elem1
// a_array[1] => elem2
// a_array[2] => elem3
//
// *** s_elem = shift(a_array) ***
//
// a_array[0] => elem2
// a_array[1] => elem3
//
// s_elem => elem1
// --------------------------------
//

run()
exit(0)

function run()

	local a_array = { 'elem1', 'elem2', 'elem3' }
	local s_elem
	local i

	print("--------------------------------", stdout)
	loop i=0; i<count(a_array); i++
		print("a_array[" & i & "] => " & a_array[i], stdout)
	endloop

	print("\n*** s_elem = shift(a_array) ***\n", stdout)

	// shift
	s_elem = shift(a_array)

	loop i=0; i<count(a_array); i++
		print("a_array[" & i & "] => " & a_array[i], stdout)
	endloop
	print("", stdout)

	print("s_elem => " & s_elem)

	print("--------------------------------", stdout)

endfunction

//[result example]
//
// 3.000000
// 6.000000
// 9.000000
// 18.000000
// 27.000000
// 100.000000
//

exit Run()

function Run()

	local arr[6] = {18, 9, 6, 27, 100, 3}
	local sort_arr
	local i

	sort(6, '+N', arr)

	loop i=0; i<count(arr); i++
		print('${arr[i]}', stdout)
	endloop

endfunction

//[result example]
//
// input words : to be or not to be that is the question
// word[0] : to
// word[1] : be
// word[2] : or
// word[3] : not
// word[4] : to
// word[5] : be
// word[6] : that
// word[7] : is
// word[8] : the
// word[9] : question
//

run()
exit

function run()

	local input_str
	local w_array, i

	input_str = getopt('input words : ')
	w_array = split(' ', input_str)

	loop i=0; i<count(w_array); i++
		print('word[${i}] : ${w_array[i]}', stdout)
	endloop

endfunction

//[result example]
//
// ....0
// ....1
// ....2
// ....3
// ....4
// ....5
// ....6
// ....7
// ....8
// ....9
// sys=0.000000 : user=0.000000 : rtime=10.024000
//

run()
exit

function run()
	local t_sys, t_user, t_rtime, j
	
	loop j=0; j<10; j++
		print('....${j}')
		sleep(1)
	endloop
	
	systemtime(t_sys, t_user, t_rtime)
	print('sys=${t_sys} : user=${t_user} : rtime=${t_rtime}')

endfunction

//[result example]
//
// 1:CD
// 2:EF
//

run()
exit

function run()
	local a = 'ABCDEFG'
	
	print(substr(a,3,2),stdout)
	print(substr(a,-3,2),stdout)
endfunction