*copyc osd$default_pragmats

MODULE rmm$request_null_device;

*copyc fmp$request_null_device

  PROCEDURE [XDCL, #GATE] rmp$r3_request_null_device
    (VAR evaluated_file_reference: {i/o} fst$evaluated_file_reference;
     VAR status: ost$status);

    status.normal := TRUE;

    fmp$request_null_device (rmc$null_device,
          evaluated_file_reference, status);

  PROCEND rmp$r3_request_null_device;

MODEND rmm$request_null_device;
