my  ($rpt_name, $desname, $btch, $record) = @ARGV[0..3];