%external %routine %spec To Upper %alias "3L_IMP_TO_UPPER" ( %string(*) %name S )
%external %routine %spec To Lower %alias "3L_IMP_TO_LOWER" ( %string(*) %name S )
%external %routine %spec To Mixed %alias "3L_IMP_TO_MIXED" ( %string(*) %name S )
%external %routine %spec Dot Ctrl %alias "3L_IMP_DOT_CTRL" ( %string(*) %name S )
%end %of %file