An external name must be specified when this clause is used. In the following example, append as "myfunc" (or any other permissible name) to the line Function-id. myfunc:
$set dialect(entcobol) nooutdd nosettings
Identification division.
Function-id. myfunc
is prototype
entry-name longmixed.
Data division.
Linkage section.
1 retval pic 9(4).
Procedure division returning retval.
End function myfunc.