
  PROCEDURE [XREF] fmp$record_open_cycle_info
    (   path_handle: fmt$path_handle;
        validation_ring: ost$valid_ring;
        access_level: amt$access_level;
        preserved_attributes: bat$static_label_attributes;
        instance_attributes: bat$instance_attributes;
        cd_attachment_options: fmt$cd_attachment_options;
        open_count: integer;
        device_class: rmt$device_class;
    VAR open_cleanup_work_list: {i/o} fmt$open_cleanup_work_list;
    VAR global_file_information: ^bat$global_file_information;
    VAR segment_pointer: ^cell;
    VAR system_file_label: ^fmt$system_file_label;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc bat$global_file_information
*copyc bat$instance_attributes
*copyc bat$instance_attributes
*copyc bat$static_label_attributes
*copyc dmt$chapter_number
*copyc fmt$cd_attachment_options
*copyc fmt$open_cleanup_work_list
*copyc fmt$path_handle
*copyc fmt$system_file_label
*copyc mmt$attribute_keyword
*copyc osd$virtual_address
*copyc ost$status
*copyc rmt$device_class
?? POP ??
