{
{   The purpose of this request is to write a tape mark on an unlabelled}
{ tape volume. This request is not supported for mass storage files.}
{   This request causes the current block to be terminated for a record access}
{ file. Any blocks in memory will be written before the tapemark.}
{   Two consecutive tapemarks encountered during an input operation signal
{ the end of data on the volume.  If two consecutive tapemarks are written
{ using this request and then additional records are written, the data
{ on the volume after the two tapemarks cannot be read by BAM.
{   If this request is issued for a file opened for amc$physical(*) access,
{ any outstanding no_wait requests will be completed before the tapemark}
{ is written.}
{   This request is invalid for an amc$labelled file because such files}
{ are intended for data interchange according to the ANSI standard.}
{   This request is invalid for files opened with amc$segment access_level.}
{
{       AMP$WRITE_TAPE_MARK (FILE_IDENTIFIER, STATUS)
{
{ FILE_IDENTIFIER: (input) This parameter specifies the file access
{       identifier established when the file was opened.
{
{ STATUS: (output) This parameter specifies the request status.
{       CONDITION:  ame$ring_validation_error,
{                   ame$conflicting_access_level,
{                   ame$improper_file_id,
{                   ame$improper_device_class,
{                   ame$improper_output_attempt,
{                   ame$improper_ANSI_operation,
{                   ame$unrecovered_write_error.
{       IDENTIFIER: amc$access_method_id.
{
