*copyc osd$default_pragmats
MODULE iim$search_connection_desc;

?? PUSH (LISTEXT := ON) ??
*copyc amt$local_file_name
*copyc iit$connection_description
*copyc iiv$connection_desc_ptr
*copyc iiv$interactive_terminated
?? POP ??

  PROCEDURE [XDCL, #GATE] iip$search_connection_desc (session_file: amt$local_file_name;
    VAR connection_desc_ptr: ^iit$connection_description);

    connection_desc_ptr := iiv$connection_desc_ptr;
    IF iiv$network_identifier = iic$cdcnet_network THEN
    /look_for_connection/
      WHILE connection_desc_ptr <> NIL DO
        IF connection_desc_ptr^.session_layer_file_name = session_file THEN
          EXIT /look_for_connection/;
        IFEND;
        connection_desc_ptr := connection_desc_ptr^.next_connection_desc_ptr;
      WHILEND /look_for_connection/;
    IFEND;

  PROCEND iip$search_connection_desc;

MODEND iim$search_connection_desc;
