
  PROCEDURE [XREF] iop$get_tape_usage_data (
        system_file_id: gft$system_file_identifier;
    VAR block_count: ost$non_negative_integers;
    VAR tapemark_count: ost$non_negative_integers;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc gft$system_file_identifier
*copyc osd$integer_limits
*copyc ost$status
?? POP ??

