{   NLT$CC_WORK_LIST }

  TYPE
    nlt$cc_work_list = record
      first: ^nlt$cc_work_unit,
      append: ^^nlt$cc_work_unit,
    recend,

    nlt$cc_work_unit_kind = (nlc$cc_event_work_unit,
      nlc$cc_connection_work_unit),

  nlt$cc_work_unit = record
    next_work_unit: ^nlt$cc_work_unit,
    connection_id: nlt$cl_connection_id,
    CASE kind: nlt$cc_work_unit_kind OF
    = nlc$cc_event_work_unit =
      device_received_on: nlt$device_identifier,
      sequence#: nlt$cc_sequence_number,
      cc_header: nlt$cc_protocol_header,
      data: nlt$bm_message_id,
    CASEND,
  recend;

*copyc nlt$bm_message_id
*copyc nlt$cc_protocol_data_unit
*copyc nlt$cc_sequence_number
*copyc nlt$cl_connection
*copyc nlt$device_identifier
