
  PROCEDURE [XREF] amp$skip
    (    file_identifier: amt$file_identifier;
         direction: amt$skip_direction;
         unit: amt$skip_unit;
         count: amt$skip_count;
     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$get_validation_errors
*copyc ame$improper_file_id
*copyc ame$put_program_actions
*copyc ame$ring_validation_errors
*copyc ame$skip_program_actions
*copyc ame$skip_validation_errors
*copyc amt$tape_mark_count
*else
*copyc ame$improper_skip_count
*copyc ame$improper_skip_direction
*copyc ame$improper_skip_unit
*copyc ame$skip_encountered_eoi
*ifend
*copyc amt$file_identifier
*copyc amt$file_position
*copyc amt$skip_count
*copyc amt$skip_direction
*copyc amt$skip_unit
*copyc ost$status
?? POP ??
