
  CONST
    bac$create_file = 1,
    bac$delete_data = 2,
    bac$error_exit_procedure = 3,
    bac$error_exit_procedure_name = 4,
    bac$error_limit {Advanced Access Method files only} = 5,
    bac$label_exit_procedure = 6,
    bac$label_exit_procedure_name = 7,
    bac$message_control {Advanced Access Method files only} = 8,
    bac$open_position = 9,
    bac$password = 10,
    bac$private_read = 11,
    bac$sequential_access = 12,
    bac$tape_attachment = 13,
    bac$validation_ring = 14,
    bac$wait_for_attachment = 15,

    bac$max_attach_choice = 15;

  TYPE
    bat$single_attachment_choices = 1 .. bac$max_attach_choice;

