
  PROCEDURE [INLINE] fsp$adjust_tape_defaults
    (    tape_density: rmt$density;
     VAR static_label_attributes: bat$static_label_attributes);

    IF static_label_attributes.label_type_source = amc$access_method_default THEN
      static_label_attributes.label_type := amc$labelled;
    IFEND;

    IF (static_label_attributes.max_block_length_source = amc$access_method_default) AND
          (tape_density = rmc$38000) THEN
      static_label_attributes.max_block_length := 32640;
    IFEND;

  PROCEND fsp$adjust_tape_defaults;

?? PUSH (LISTEXT := ON) ??
*copyc bat$static_label_attributes
*copyc rmt$density
?? POP ??
