 TYPE
    cmt$subsystem_io_completion_sta = (cmc$subsystem_io_started,
      cmc$subsystem_io_completing, cmc$subsystem_io_complete,
      cmc$subsystem_io_not_active, cmc$subsystem_io_term_by_rec,
      cmc$subsystem_dummy_status_6, cmc$subsystem_dummy_status_7,
      cmc$subsystem_cleanup_req);

  TYPE
    cmt$subsystem_io_completion = record
      request_identification: cmt$subsystem_io_request_id,
      completion_status: cmt$subsystem_io_completion_sta,
    recend,
    cmt$subsystem_io_status = array [1 .. * ] of cmt$subsystem_io_completion;

?? PUSH (LISTEXT := ON) ??
*copyc cmt$subsystem_io_request_id
?? POP ??
