{
{   The purpose of this procedure is to update the port number in
{ job socket structure for the given socket id. The TCP socket type
{ is also initialized.
{
{       NLP$SK_UPDATE_LISTEN_SOCKET (SOCKET_ID, PORT)
{
{ SOCKET_ID: (input) This parameter specifies the socket identifier.
{
{ PORT: (input) This parameter specifies the port number to which the
{       listen socket is bound.
{
