
  TYPE
    cmt$upline_connection = record
      case configured: boolean of
      = TRUE =
        { The following table identifies the meaning of "element_name"
        { for each upline element type.

        { Type of upline element:               Element_name identifies:
        {---------------------------------------------------------------
        {cmc$central_memory_element             owning mainframe name
        {cmc$channel_adapter_element            channel adapter element name
        {cmc$communications_element             communications element name
        {cmc$controller_element                 controller element name
        {cmc$data_channel_element               channel

        element_name: cmt$element_name,

        case upline_connection_type: cmt$element_type of
        = cmc$central_memory_element =
          memory_port: cmt$central_memory_port_number,
        = cmc$data_channel_element =
          mainframe_ownership: cmt$element_name,
          iou: cmt$element_name,
        = cmc$channel_adapter_element, cmc$communications_element,
              cmc$controller_element =
          ,
        casend,
      = FALSE =
        ,
      casend,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc cmt$central_memory_port_number
*copyc cmt$element_name
*copyc cmt$element_type
?? POP ??

