?? PUSH (LISTEXT := ON) ??
*copyc amp$fetch
*copyc amt$tape_error_options
?? POP ??
{
{ The purpose of this request is to use the amp$fetch interface
{ to fetch certain attributes used by the tape management faps.
{

  PROCEDURE [INLINE] bai$fetch_tape_attributes (file_identifier:
    amt$file_identifier;
    VAR forced_write: amt$forced_write;
    VAR max_block_length: amt$max_block_length;
    VAR tape_error_options: amt$tape_error_options;
    VAR status: ost$status);
?? PUSH (LISTEXT := ON) ??

    VAR
      fetch_items: array [1 .. 3] of amt$fetch_item;

    fetch_items [1].key := amc$forced_write;
    fetch_items [2].key := amc$max_block_length;
    { fetch_items[3].key := amc$tape_error_options; }

    amp$fetch (file_identifier, fetch_items, status);

    IF status.normal THEN
      forced_write := fetch_items [1].forced_write;
      max_block_length := fetch_items [2].max_block_length;
      { tape_error_options := fetch_items[3].tape_error_options; }
    IFEND;

  PROCEND bai$fetch_tape_attributes;
?? POP ??
