{}
{ COMMON DECK BAH$SYS_BLK_UNDEF_REC_TAPE_FAP }
{}
{   The purpose of this procedure is to perform record access functions via
{ the file access procedure mechanism.  This file access procedure is
{ associated with a file at open time if the file is a system specified
{ blocked, record access level, undefined record type file and is assigned
{ to a tape device.  All access to this file will then go
{ through this file access procedure.
{}
{     BAP$SYS_BLK_UNDEFINED_REC_TAPE_FAP (FILE_IDENTIFIER, CALL_BLOCK,
{         LAYER_NUMBER, STATUS)
{}
{ FILE_IDENTIFIER: (input) This parameter specifies the file identifier
{   ordinal for an instance of open of a file.
{
{ CALL_BLOCK: (input, output) This parameter specifies the operation to be
{   performed.  This parameter returns file position, transfer count, and
{   byte address via pointer reference.
{
{ LAYER_NUMBER: (input) This parameter specifies the layer number of this
{   file access procedure.
{
{ STATUS: (output) This parameter returns the request status.
{
