{
{   The purpose  of  this procedure is to provide a file access procedure that
{ will intervene on all access method requests  to  a  tape  file.   This  fap
{ intervenes   on  all  amp$get_partial,  amp$get_next,  amp$put_partial,  and
{ amp$put_next requests to divide the working storage  length  into  a  length
{ that  can  be  more  easily  and  efficiently  handled.  No change in record
{ structure is visible.
{
{       BAP$TAPE_FAP (FILE_IDENTIFIER, CALL_BLOCK, LAYER_NUMBER, STATUS)
{
{ FILE_IDENTIFIER: (input) This parameter specifies the file access identifier
{       established when the tape file was opened.
{
{ CALL_BLOCK:  (input, This parameter specifies the access method operation to
{       be performed.
{
{ LAYER_NUMBER: (input) This parameter  specifies  the  identity  of  the  fap
{       making the request.
{
{ STATUS: (output) This parameter returns the request status.
{
{       CONDITIONS:
{
{       IDENTIFIER: amc$access_method_id
{
