program define _3dsvusr
version 2.1
	mac def D3_LFN "%S_FN"
	quietly save _w_o_r_k, replace
end
exit
/*
	_3dsvusr
		utility to save user's (current) dataset as _w_o_r_k and
		preserve the dataset's name in macro D3_LFN.
		Also see restore
*/