{
{    The purpose of this procedure is to close the channel connection
{ corresponding to the given connection id.  All active senders and receivers
{ are signalled and a release socket or flush release socket (graceful close =
{ true) request is sent to the peer.  The TCP socket interface layer connection
{ is deactivated if there are no active senders or receivers queued on the
{ connection.
{
{       NLP$SK_TCP_CLOSE_SOCKET (CONNECTION_ID, GRACEFUL_CLOSE)
{
{ CONNECTION_ID: (input)  This parameter specifies the channel connection
{       identifier.
{
{ GRACEFUL_CLOSE: (input)  This parameter is set to TRUE if graceful close has
{       been requested.
{
