: !/bin/sh

insightcdr="/u/catcom/wb/ex2_tst/indata/Oct_2009/OPTUSINSIGHTCDR/mobile_phones/10004_Oct09.csv"

datafeed="/u/catcom/wb/ex2_tst/indata/Oct_2009/OPTUS/mobile_phones/10004_20091027.bil"

rm -f ctmob*.out

sed -e 's/"//g;s/,/|/g;s/
$//;s/"$//' "$insightcdr" | \
awk -F'|' '
function trim(s)
{
	sub(/^[ \t]*/,"",s)
	sub(/[ \t]*$/,"",s)
	return s
}
{
	calltype = trim($12)	# insight cdr
	print calltype | "sort -u >ctmob_insight.out"
}
'

sed -e 's/"//g;s/,/|/g;s/
$//;s/"$//' "$datafeed" | \
awk -F'|' '
function trim(s)
{
	sub(/^[ \t]*/,"",s)
	sub(/[ \t]*$/,"",s)
	return s
}
{
	linetype = trim($2)
	if ( linetype == "353501" ) {
		calltype = trim($7)	# datafeed
		print calltype | "sort -u >ctmob_datafeed.out"
	}
}
'