{
{   The purpose of this request is to retrieve the next record from a
{ file opened with access_level of amc$record. The location of the
{ record is the current byte address of the file.
{   The record is moved from buffers maintained by the access method to the
{ user's working_storage_area. Data movement always begins at a record
{ boundary and continues until either the end of the record or the end of
{ the working_storage_area is encountered, whichever occurs first. If the
{ entire record is not moved, amc$mid_record file position will be returned.
{ In this event, subsequent amp$get_partial requests may be issued to
{ obtain the remainder of the record.
{   If the file_position is amc$mid_record when this request is issued, the
{ file will be positioned to the beginning of the next record prior to
{ data movement.
{  If a partition delimiter or EOI is encountered, the working_storage_area
{ is not modified by this request, i.e. no data is transferred.
{  Once an amc$eoi file_position has been reached, further attempts to GET
{ at EOI by this task will cause abnormal status to be returned.
{
{       AMP$GET_NEXT (FILE_IDENTIFIER, WORKING_STORAGE_AREA,
{         WORKING_STORAGE_LENGTH, TRANSFER_COUNT, BYTE_ADDRESS,
{         FILE_POSITION, 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
{       first byte of a contiguous area bounded by the working_storage_length
{       into which all or part of a record from the file will be moved.
{       If the length of the record is less than the working storage length
{       the access method does NOT guarantee that the area between the
{       transfer count and the end of the working storage area will be left
{       unmodified.
{
{ WORKING_STORAGE_LENGTH: (input) This parameter specifies the size of the
{       working storage area. The size of the working storage area should
{       equal or exceed the length of the longest record to be input.
{       If a record exceeds the working storage length, subsequent
{       amp$get_partial requests may be issued to obtain the remainder.
{       A zero or negative value for working_storage_length is improper.
{
{ TRANSFER_COUNT: (output) This parameter specifies the number of bytes
{       of data moved to the working_storage_area by this request.
{
{ BYTE_ADDRESS: (output) This parameter specifies the file byte address of
{       the beginning of the record which was moved to the
{       working_storage_area by this request.
{       This parameter is only returned for mass storage files.
{
{ FILE_POSITION: (output) This parameter specifies the position of the file
{       following this request.
{       The following file positions may be returned by this request:
{         amc$mid_record,
{         amc$eor,
{         amc$eop,
{         amc$eoi.
{
{ STATUS: (output) This parameter specifies the request status.
{       CONDITION:  ame$ring_validation_error,
{                   ame$conflicting_access_level,
{                   ame$improper_file_id,
{                   ame$improper_input_attempt,
{                   ame$improper_record_header,
{                   ame$input_after_output
{                   ame$improper_wsl_value,
{                   ame$input_after_eoi,
{                   ame$unrecovered_read_error,
{                   ame$accept_bad_block,
{                   ame$terminal_disconnected,
{                   ame$max_cancellable_input,
{                   ame$cancel_group_encountered.
{       IDENTIFIER: amc$access_method_id.
{
