  PROCEDURE [XREF] iip$vtp_open_network (VAR file_id: amt$file_identifier;
    VAR status: ost$status);
*copyc amt$file_identifier
*copyc ost$status
