
  PROCEDURE [INLINE] nlp$cc_get_exclusive_via_cid
    (    connection_id: nlt$cl_connection_id;
         system_input_task: boolean;
     VAR connection_exists: boolean;
     VAR access_gained: boolean;
     VAR connection: ^nlt$cc_connection;
     VAR cl_connection: ^nlt$cl_connection);

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??

    VAR
      layer_active: boolean;

    nlp$cl_get_exclusive_access (connection_id, system_input_task, connection_exists, access_gained,
          cl_connection);
    IF (connection_exists AND access_gained) THEN
      nlp$cl_get_layer_connection (nlc$channel_connection_layer, cl_connection, layer_active, connection);
      IF NOT layer_active THEN
        nlp$cl_release_exclusive_access (cl_connection);
        connection_exists := FALSE;
        access_gained := FALSE;
      IFEND;
    IFEND;
  PROCEND nlp$cc_get_exclusive_via_cid;

*copy nlh$cc_get_exclusive_via_cid
*copyc nlt$cc_connection
*copyc nlt$cl_connection
*copyc nlp$cl_get_exclusive_access
*copyc nlp$cl_get_layer_connection
*copyc nlp$cl_release_exclusive_access
?? POP ??
