{
{   The purpose of this request is to transfer a record from the user's
{ working storage area to the "next" location in a file opened with}
{ amc$record access_level.}
{   If the record_type is amc$ansi_fixed, the record is padding_character}
{ filled, if necessary.}
{   This request will unconditionally establish end of information (EOI)}
{ when issued on a file opened with amc$sequential file_organization.}
{   This request will establish a new end of information (EOI) if the sum}
{ of byte_address and working_storage_length exceeds the current EOI.}
{   If the file_position is amc$mid_record when this request is issued, the}
{ preceding partial record is terminated prior to data movement initiated by}
{ this request.}
{}
{       AMP$PUT_NEXT (FILE_IDENTIFIER, WORKING_STORAGE_AREA,
{         WORKING_STORAGE_LENGTH, BYTE_ADDRESS, 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 to be output.}
{}
{ WORKING_STORAGE_LENGTH: (input) This parameter specifies the length of the}
{       record to be output.}
{
{ BYTE_ADDRESS: (output) This parameter specifies the address of the start}
{       of the record which has been output. This address could be saved in a}
{       directory for subsequent random access to the record. This parameter}
{       is only returned for mass storage files.}
{
{ STATUS: (output) This parameter specifies the request status.
{       CONDITION:  ame$ring_validation_error,
{                   ame$conflicting_access_level,
{                   ame$improper_file_id,
{                   ame$improper_output_attempt,
{                   ame$put_beyond_file_limit,
{                   ame$record_exceeds_mbl,
{                   ame$improper_wsl_value,
{                   ame$unrecovered_write_error,
{                   ame$terminal_disconnected.
{       IDENTIFIER: amc$access_method_id.
{
