{
{   The purpose of this request is to replace the record obtained through
{ an immediately preceding retrieval request with the content of the record
{ in a user's working storage area.  The new record must be the same
{ size as the original record.  If the record type is amc$ansi_fixed,
{ then the record will be padding_character filled, if necessary.  The
{ current_byte_address of the record is not changed as a result of this
{ request.  The request is only valid for mass storage files opened with
{ amc$record access_level.
{ An abnormal STATUS will be returned and this request will be ignored
{ if the preceding request was not one of the versions of GET.
{
{       AMP$REPLACE (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_AREA: (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,
{       IDENTIFIER: amc$access_method_id.
{

