{
{    The purpose of this procedure is to create a unique socket of the
{ specified type for the given application.  Two types of sockets can be
{ created - UDP (datagram) socket or TCP (stream) socket.  The assigned
{ socket identifier is unique within the current job.
{
{    This request establishes the current task as the owner of the socket.
{
{       NAP$SK_GET_SOCKET (APPLICATION, SOCKET_TYPE, SOCKET_ID, STATUS)
{
{ APPLICATION: (input)  This parameter specifies the name of the application
{       for which the socket is to be created.  A NULL value for the parameter
{       indicates that the default value be used for the application name.  The
{       default application name is 'UNNAMED_UDP_APPLICATION' or
{       'UNNAMED_TCP_APPLICATION'. This name must have been defined by the MANNA
{       utility.
{
{ SOCKET_TYPE: (input)  This parameter specifies the type of socket to be
{       created.
{
{ SOCKET_ID: (output)  This parameter specifies the socket identifier.
{
{ STATUS: (output) This parameter specifies the request status.
{       CONDITIONS:
{             nae$sk_application_inactive
{             nae$sk_insufficient_resources
{             nae$sk_invalid_user
{             nae$sk_max_sockets_limit
{             nae$sk_protocol_mismatch
{             nae$sk_tcpip_host_not_defined
{             nae$sk_unknown_socket_type
{
