{
{    The purpose of this procedure is to mark a socket as assigned.
{ The caller is expected to inhibit job recovery before calling this routine.
{
{       NLP$TCPIP_SET_SOCKET_ASSIGNED (APPLICATION, CONNECTION_ID, STATUS)
{
{ APPLICATION: (input)  This parameter specifies the name of the application to
{       which the socket belongs.
{
{ CONNECTION_ID: (input)  This parameter specifies the connection identifier of
{       the socket.
{
{ STATUS: (output) This parameter specifies the request status.
{       CONDITION:
{             nae$application_inactive
{             nae$unknown_application
{             nae$unknown_socket
{
