  TYPE
    oct$working_file_list = record
      current_file: ^oct$working_file,
      first_working_file: oct$working_file,
    recend;


  TYPE
    oct$working_file = record
      descriptor: ^oct$open_file_list,
      link: ^oct$working_file,
    recend;

*copyc oct$open_file_list
