*! version 1.0.0  02/02/93 extrname <exword2> utility; STB-13: dm13
program define _crcexn9 /* `exword2' varname word certword intovar */
	version 3.0
	local v "`1'"
	local word "`2'"
	local cword "`3'"
	local into "`4'"

	tempvar new
	quietly {
		local type : type `into'
		local d=min(length("`cword'")+real(substr("`type'",4,.))+1,80)
		minlen `d' `into'

		local type : type `v'
		gen `type' `new'=`v'

		replword "`word'" "" 1 `v'
		replace `into'=trim(`into'+" " + "`cword'") if `new'!=`v'
		drop `new'
		compress `v'
		compress `into'
	}
end