*! version 1.0.0  02/02/93 extrname <stripp> utility; STB-13: dm13
program define _crcexnd /* fname mname lname */
	version 3.0
	local fn "`1'"
	local mn "`2'"
	local ln "`3'"

	replace `fn'="" if `fn'=="."
	replace `mn'="" if `mn'=="."
	replace `fn'=substr(`fn',1,1) if length(`fn')==2 & substr(`fn',2,1)=="."
	replace `mn'=substr(`mn',1,1) if length(`mn')==2 & substr(`mn',2,1)=="."
	replace `ln'=substr(`ln',1,1) if length(`ln')==2 & substr(`ln',2,1)=="."
	compress `fn' `mn' `ln'
end