
  PROCEDURE [XREF] amp$get_next ALIAS 'amxgetn'
    (    file_identifier: amt$file_identifier;
*if not $true(osv$unix)
         working_storage_area: ^cell;
*else
         working_storage_area: ^string ( * );
*ifend
         working_storage_length: amt$working_storage_length;
     VAR transfer_count: amt$transfer_count;
     VAR byte_address: amt$file_byte_address;
     VAR file_position: amt$file_position;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*if not $true(osv$unix)
*copyc amc$condition_code_limits
*copyc ame$conflicting_access_level
*copyc ame$improper_file_id
*copyc ame$get_validation_errors
*copyc ame$terminal_validation_errors
*copyc ame$ring_validation_errors
*copyc ame$improper_wsl
*copyc ame$get_program_actions
*else
*copyc ame$condition_codes
*ifend
*copyc amt$file_byte_address
*copyc amt$file_identifier
*copyc amt$file_position
*copyc amt$transfer_count
*copyc amt$working_storage_length
*copyc ost$status
?? POP ??
