! rmask.nic
! Procedure defining a mask to be use by RESTORE task
!
say "Defining a mask for RESTORE task"
define real save_chan_rms /like chan_rms
let save_chan_rms chan_rms
base /order 0
var * wr
let chan_rms save_chan_rms