
{
{ This procedure requires one or more of the following globally defined and
{ initialized variables that correspond to the current operation:
{
{   file_instance: ^bat$task_file_entry,
{   gfi: ^bat$global_file_information,
{   tape_descriptor: ^bat$tape_descriptor,
{   block_info: ^bat$block_info,
{   global_layer_number: amt$fap_layer_number,
{   operation: amt$fap_operation,
{   dossier: ^bat$sl_tape_dossier_rec.

{
{ This procedure uses the global variables instead of a parameter because
{ inline procedures generate more efficient code with fewer parameters and
{ fewer local variables.  This method also allows faster access to the bam
{ tables.
{
