
  PROCEDURE [XREF] iop$set_auto_tape_assignment (
    sfid: gft$system_file_identifier;
    VAR set_assignment_results: iot$set_assignment_results;
    VAR assigned_element_name: ost$name;
    VAR status: ost$status);


?? PUSH (LISTEXT := ON) ??
*copyc gft$system_file_identifier
*copyc iot$set_assignment_results
*copyc ost$name
*copyc ost$status
?? POP ??
