setting maximum length of TERec structure ( mac)

Hi,

How could we set the maximum lenght of a TERec structure.
We want to set the maximum lenght for extended-edit type in mac to suppose
32767,
How should we do it ?

we coded like as below. But still (*teHandle)->teLength is not modified.
where teHandle is of typr **TERec

if( len > 32767 )	
{
	len = 32767;
	HLock ((Handle)teHandle) ; 
	(*teHandle)->teLength = len;
	(*teHandle)->selEnd = (*teHandle)->teLength ;
	HUnlock ((Handle)teHandle) ;
}

Please suggest any way to achieve this ?

Thanks and Regards
Sanjaya