create opaque type tmol( internallength = variable, alignment
= 1 );
grant usage on type tmol to public;
create function day_tmolOut (tmol) returns lvarchar
with (class = 'day')
external name "$INFORMIXDIR/extend/day.bld(tmolOutput)"
language c;
grant execute on function day_tmolOut (tmol) to public;
create cast ( tmol as lvarchar with day_tmolOut );
create function day_findassub (lvarchar,tmol) returns
boolean
with (class = 'day')
external name "$INFORMIXDIR/extend/day.bld(day_findassub)"
language c;
grant execute on function day_findassub(lvarchar,tmol)
to public;