
  PROCEDURE [INLINE] nlp$udp_free_exclusive_access
    (VAR global_socket {INPUT, OUTPUT} : ^nlt$udp_global_socket);

?? PUSH (LISTEXT := ON) ??

    osp$clear_job_signature_lock (global_socket^.lock);
    osp$end_subsystem_activity;
    global_socket := NIL;

  PROCEND nlp$udp_free_exclusive_access;

*copy nlh$udp_free_exclusive_access

*copyc nlt$udp_global_socket
*copyc osp$clear_job_signature_lock
*copyc osp$end_subsystem_activity
?? POP ??
