  PROCEDURE [XREF] pup$advised_put_next (VAR bfid: put$file_identifier;
        wsa: ^cell;
        wsl: amt$working_storage_length;
    VAR status: ost$status);
?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc put$file_identifier
*copyc amt$working_storage_length
?? POP ??
