$ dump_device = f$getenv("dump_dev")
  $ write sys$output "The dump device for this system is ", dump_
 device

      This function writes out the dump device for the system.