  PROCEDURE [XREF] iip$vtp_put_next (file_identifier:
    amt$file_identifier;
    working_storage_area: ^cell;
    working_storage_length: amt$working_storage_length;
    VAR status: ost$status);
*copyc amt$file_identifier
*copyc amt$working_storage_length
*copyc ost$status
