{
{   The purpose of this procedure is to unlock the entry
{ for the given socket identifier in the array of job sockets.
{
{       NLP$SK_UNLOCK_JOB_SOCKET (SOCKET_ID)
{
{ SOCKET_ID: (input) This parameter specifies the socket identifier.
{
