{
{   The purpose of this procedure is to close the given
{ global socket. All queued senders and receivers are
{ signalled/readied and release socket request are sent to
{ all UDP devices that support IP address bound to the socket.
{ If there are no active senders and receivers, the global
{ socket is deleted. Otherwise, the last sender or receiver
{ will delete the global socket. This procedure is meant to
{ be called via NAM/VE socket layer and the application
{ management code.
{
{       NLP$UDP_CLOSE_SOCKET (GLOBAL_SOCKET_ID,
{             TERMINATE_VIA_APPLICATION_MGMT)
{
{ GLOBAL_SOCKET_ID: (input) This parameter specifies the
{       global socket identifier.
{
{ TERMINATE_VIA_APPLICATION_MGMT: (input) This parameter is
{       set to TRUE if the procedure is invoked via application
{       management.
{
