
{   This common deck contains the type declarations for the attributes
{ used in the dynamic file label.  Each field has a source
{ variable associated with it, describing where the value originated.

  TYPE
    bat$dynamic_label_attributes = record
      access_mode: pft$usage_selections,
      access_mode_source: amt$attribute_source,
      error_exit_name: pmt$program_name,
      error_exit_name_source: amt$attribute_source,
      error_exit_procedure: amt$error_exit_procedure,
      error_exit_procedure_source: amt$attribute_source,
      error_options: amt$tape_error_options,
      error_options_source: amt$attribute_source,
      label_exit_name: pmt$program_name,
      label_exit_name_source: amt$attribute_source,
      label_exit_procedure: amt$label_exit_procedure,
      label_exit_procedure_source: amt$attribute_source,
      label_options: amt$label_options,
      label_options_source: amt$attribute_source,
      open_position: amt$open_position,
      open_position_source: amt$attribute_source,
      open_share_modes: fst$file_access_options,
      open_share_modes_source: amt$attribute_source,
      return_option: amt$return_option,
      return_option_source: amt$attribute_source,
      error_limit: amt$error_limit,
      error_limit_source: amt$attribute_source,
      message_control: amt$message_control,
      message_control_source: amt$attribute_source,
    recend;

*copyc amt$error_exit_procedure
*copyc amt$error_limit
*copyc amt$label_exit_procedure
*copyc amt$label_options
*copyc amt$message_control
*copyc amt$open_position
*copyc amt$return_option
*copyc amt$tape_error_options
*copyc fst$file_access_options
*copyc pft$usage_selections
*copyc pmt$program_name
