{ This deck is externalized to OSF$SUBSYSTEM_INTERFACE.
{ All changes should be forward compatible, if at all possible.

  TYPE
    fst$tape_security_call_block = record
      case operation: fst$tape_security_operation of
      = fsc$ts_authorize_access_method =
        authorize_access_method: fst$ts_authorize_access_method,
      = fsc$ts_authorize_file_access =
        authorize_file_access: fst$ts_authorize_file_access,
      = fsc$ts_authorize_file_reuse =
        authorize_file_reuse: fst$ts_authorize_file_reuse,
      = fsc$ts_authorize_file_set_mount =
        authorize_file_set_mount: fst$ts_authorize_file_set_mount,
      = fsc$ts_authorize_file_set_reuse =
        authorize_file_set_reuse: fst$ts_authorize_file_set_reuse,
      = fsc$ts_authorize_section_read =
        authorize_section_read: fst$ts_authorize_section_read,
      = fsc$ts_authorize_section_write =
        authorize_section_write: fst$ts_authorize_section_write,
      = fsc$ts_authorize_volume_reuse =
        authorize_volume_reuse: fst$ts_authorize_volume_reuse,
      = fsc$ts_secure_header_labels =
        secure_header_labels: fst$ts_secure_header_labels,
      = fsc$ts_secure_trailer_labels =
        secure_trailer_labels: fst$ts_secure_trailer_labels,
      = fsc$ts_validate_header_labels =
        validate_header_labels: fst$ts_validate_header_labels,
      = fsc$ts_validate_trailer_labels =
        validate_trailer_labels: fst$ts_validate_trailer_labels,
      casend,
    recend;

*copy fst$tape_security_operation
*copy fst$ts_authorize_access_method
*copy fst$ts_authorize_file_access
*copy fst$ts_authorize_file_reuse
*copy fst$ts_authorize_file_set_mount
*copy fst$ts_authorize_file_set_reuse
*copy fst$ts_authorize_section_read
*copy fst$ts_authorize_section_write
*copy fst$ts_authorize_volume_reuse
*copy fst$ts_secure_header_labels
*copy fst$ts_secure_trailer_labels
*copy fst$ts_validate_header_labels
*copy fst$ts_validate_trailer_labels
