{}
{  The purpose of this request is to erase the amount of tape specified
{       by the caller in number of bytes.  The minimum erased area is
{       approximately 3 inches.
{}
{       IOP$ERASE_TAPE (SYSTEM_FILE_ID, BLOCK_LENGTH, IO_STATUS, STATUS)
{}
{ SYSTEM_FILE_ID: (input) This parameter specifies the system
{       file identification of the file.
{}
{ BLOCK_LENGTH: (input) This parameter specifies, in bytes, the amount
{       of tape to be erased.  Only used if number_of_erases = 0.
{}
{ NUMBER_OF_ERASES: (input) This parameter is used to erase a specific
{       amount of tape independent of density.  If this parameter is
{       non-zero, it will be used instead of block_length.
{}
{ IO_STATUS: (output) This parameter specifies the I/O status of the
{       request.  Callers of this deck should NOT request I/O status
{       by calling iop$tape_request_status since this VAR parameter
{       provides that status.
{}
{ STATUS: (output) This parameter specifies the request status.
{       Condition:
{               ioc$improper_sequence
{               ioc$improper_system_file_id
{               ioc$os_failure
{       Identifier: ioc$physical_io.
{}
