?? 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_get_attributes (file_identifier:
    amt$file_identifier;
    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 .. 2] of amt$fetch_item;

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

    amp$fetch (file_identifier, fetch_items, status);

    IF status.normal THEN
      max_block_length := fetch_items [1].max_block_length;
      tape_error_options := $amt$tape_error_options [amc$accept_erroneous_block]; { kludge
                                                    {  until actual data can be returned. }
    IFEND;

  PROCEND bai$fetch_tape_get_attributes;
?? POP ??

