{
{   The purpose of this request is to replace an entire record.
{   This request is valid only for mass storage files opened for
{ sequential record access.
{   The file position must be at the end of the record to be replaced.
{ The file position remains at the end of the record replaced.
{   The length of the replacement record must be identical to the
{ length of the previous record for a file whose record-type is
{ CDC-variable (V).  Note the length of the previous record is exclusive
{ of V record-headers, i.e. only the logical length of the records must
{ be identical.  Therefore, a record output with a series of partial PUTs
{ can be replaced.
{   For a file whose record-type is ANSI-fixed (F), the replacement
{ record will be truncated to maximum-record-length, if the replacement
{ record exceeds maximum-record-length.
{   The length of the replacement record must be equal to the length of the
{ previous record for a file whose record-type is undefined (U)
{ and whose block-type is user-specified.
{   Note that a record deleted by an amp$delete_previous_record(*) request
{ cannot be replaced because one cannot position to the end of a deleted
{ record.
{   This request is not supported for a file whose record-type is
{ undefined (U) or trailing_character_delimited (T) and whose block-type is
{ system-specified.
{
{   This request requires 'modify' access to the file.
{
{       AMP$REPLACE_PREVIOUS_RECORD (FILE_IDENTIFIER, WORKING_STORAGE_AREA,
{         WORKING_STORAGE_LENGTH, STATUS)
{
{
{ FILE_IDENTIFIER: (input) This parameter specifies the file access
{       identifier established when the file was opened.
{
{ WORKING_STORAGE_AREA: (input) This parameter specifies the address of the
{       record which is to replace an existing record of the file.
{
{ WORKING_STORAGE_LENGTH: (input) This parameter specifies the length of the
{       record to be output.
{
{ STATUS: (output) This parameter specifies the request status.
{       CONDITION:  ame$ring_validation_error,
{                   ame$improper_file_id,
{                   ame$improper_access_attempt,
{                   ame$improper_wsl_value,
{                   ame$improper_file_position,
{                   ame$unrecovered_write_error,
{                   ame$file_organization_conflict,
{                   ame$improper_device_class,
{                   ame$conflicting_access_level,
{                   ame$record_exceeds_mbl,
{                   ame$record_unequal_to_previous,
{                   ame$unsupported_operation;
{       IDENTIFIER: amc$access_method_id.
{

