proc action_large_copy { field_num selection } {
global PGB env
		set tmpdir $PGB(Tmp)

	if {($field_num==-1)} { set field_num 18}
	Working
    MkNotice "Begining transfer file 1 out of [llength $selection]"
    set cnt 1

	foreach i $selection {
		set g [ split $i | ]
		#lose the spacer monitor lines
		if { ( [llength $g] > 1 ) } {
			set file [lindex $g $field_num]
			set outfile $tmpdir/[string trim $file]
			mkdir -p [dirname $outfile]


			puts stdout " pcat -D $PGB(Db) $file > $outfile "
UpdateNotice "Transfering file $file :  This is number $cnt out of [llength $selection]"

			catch " pcat -D $PGB(Db) $file > $outfile " err 
            incr cnt


			if " ( [file size $outfile ] > 0 ) " {
				puts stdout "Copied $file to $outfile"
			} else {
				puts "Problem with pcat  $file $err"
				rm $outfile
			}
		}
	}
	Waiting
	catch {destroy .ft_note}
}
