{
{   The purpose of this procedure is to lock the entry
{ for the given socket identifier in the array of job sockets.
{
{       NLP$SK_LOCK_JOB_SOCKET (SOCKET_ID, JOB_SOCKET)
{
{ SOCKET_ID: (input) This parameter specifies the socket identifier.
{
{ JOB_SOCKET: (output) This parameter contains the pointer to the
{       job socket record. Note that a NIL value will be returned
{       if the job socket has not been added yet.
{
