
PROCEDURE [XREF] iip$vt_close (file_identifier: amt$file_identifier;
  VAR status: ost$status);
?? PUSH (LISTEXT := ON) ??
*copyc amt$file_identifier
*copyc ost$status
?? POP ??
