{
{   The purpose of this request is to delete an entire record.}
{   This request is valid only for mass storage files with}
{ CDC-variable (V) record-type opened for sequential access.}
{   The file position must be at the end of the record to be deleted.}
{   After a successful delete, the file will be positioned: 1) at the}
{ end of the first active record prior to the deleted one or 2) at the}
{ beginning of a partition, if the first record of a partition is deleted}
{ or 3) at the beginning of information, if the first record of the file}
{ is deleted.}
{   If the last record of the file is deleted, the file will be logically}
{ and physically shortened, i.e. the eoi-byte-address of the file will be}
{ decreased by the length of the record deleted and extraneous mass storage}
{ space will be released when the file is closed.}
{   If a record other than the last one is deleted, the record is logically}
{ deleted but the length of the file is not affected, i.e. the eoi-byte-address}
{ remains as before the request.  However, if a record-by-record}
{ file copy operation (amp$copy_file/COPY_FILE) is performed, the resultant}
{ file will be logically shorter, i.e. the deleted record(s) of the input}
{ file will not be in the output file.  If a byte-by-byte copy of the file}
{ is performed, an exact copy, including the deleted record(s), is written}
{ to the output file; this preserves the file_byte_address of non-deleted}
{ records.}
{}
{   This request requires 'shorten' access to the file.}
{
{       AMP$DELETE_PREVIOUS_RECORD (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$improper_file_id,
{                   ame$improper_access_attempt,
{                   ame$improper_file_position,
{                   ame$unrecovered_write_error,
{                   ame$file_organization_conflict,
{                   ame$improper_device_class,
{                   ame$conflicting_access_level,
{                   ame$unsupported_operation;
{       IDENTIFIER: amc$access_method_id.
{

