Do a ds_transfer using source concurrency mode on :singleuser

transfer.magik

_block
	sw_module_manager.load_module(:ds_transfer)	
_endblock
$

_block
	ds_environment.concurrency_mode << :singleuser
	ds_environment.init()
_endblock
$

_block
	thread_manager.open()
_endblock
$

_global ds_transfer_view<<
_proc @ ds_transfer_view(v)
	ds_dir_name << system.pathname_components(v.searchpath.an_element())
	target_dir << system.pathname_down(system.temp_directory_name, ds_dir_name)
	_if _not system.file_exists?(target_dir)
	_then
		system.mkdir(target_dir)
	_endif
	_for f _over v.files.fast_elements()
	_loop
		ds_transfer.run(:from_ds_file, f.name,
				:to_ds_file, f.name,
				:searchpath, v.searchpath,
				:directory, target_dir,
				:target_concurrency_mode, :singleuser_nf,
				:alternatives, {:only, "|"},
				:checkpoints, {:only},
				:pg_report?, _true)
	_endloop
_endproc
$