I am using two boxes. One OpenVMS V7.1, Runing UCX and the other is Linux Mandrake release 7.1b. What I would like to do is set up an ftp that auto logs in from the VMS to the Linux and puts my files in my dir. I am able to do it from VMS running Multinet, but not from VMS running UCX. Any ideas?

You don't write what you're doing. But this works for me (UCX 4.2) : ----------- $ define /user sys$command sys$input $ ftp mylinux.mysite.my /user="myuser" mypassword set type binary cd mydirectory put myfile.exe close quit -----------

You may use the following for transferring multiple files from a directory. Include the directory name in file "myfile.dat" Modify to your requirements. ============================== $!Program Name : FTP_UNIX.com [VMS To Unix Transfer] $!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $ set message/notext/nofacility/noidentification/noseverity $ myfile = "myfile.dat;" $ count = 0 $ err_cnt = 0 $ nofile = 0 $ sep = "," $ log_file == "ftp_unix.log" $ trf_file == "temp.com" $ today= f$cvtime("",,"date") $ fday= f$extract(8,2,today) $ fmon = f$extract(5,2,today) $ fyear = f$extract(2,2,(f$cvtime("today","absolute","year"))) $ file_date=fday+fmon+fyear $ write sys$output " FTP to Unix Server in Progress..." $ write sys$output " " $ open/read local_list 'myfile $ read_loop: $ on control_y then goto end $ on warning then gosub error $ on error then gosub error $ flcount=0 $ read/end_of_file=end local_list each_record $ local_name =f$edit(f$element(0,sep,each_record),"upcase") $ if f$extract(0,1,local_name) .eqs. "!" then goto read_loop $ if "''local_name'" .eqs. "" then goto end $ local_dir = "$disk123:[agents.''local_name']" $ remote_dir = "/pub/''local_name'/download" $ all_file = local_dir+"*"+file_date $ all_ja_file = local_dir+"j*"+file_date+".inv" $ all_pr_file = local_dir+"r*"+file_date+".inv" $ cum_ja_file = "J_''local_name'_ALLLINES_''file_date'.txt" $ cum_pr_file = "R_''local_name'_ALLLINES_''file_date'.txt" $ copy/nolog 'all_ja_file sys$login:'cum_ja_file; $ copy/nolog 'all_pr_file sys$login:'cum_pr_file; $! $ open/write ftpout 'trf_file $ write ftpout "$set noon" $ write ftpout "$define sys$output ''log_file';" $ write ftpout "$ftp" $ write ftpout "enable parse" $ write ftpout "open 10.1.100.24" $ write ftpout "user abc" $ write ftpout "abcd945" $ write ftpout "cd ''remote_dir'" $ write ftpout "put sys$login:''cum_ja_file' ''cum_ja_file'" $ write ftpout "put sys$login:''cum_pr_file' ''cum_pr_file'" $file_loop: $ local_file = f$search("''all_file'.inv") $ if "''local_file'" .eqs. "" then goto process $ file_name = f$parse(local_file,,,"NAME") $ flcount =flcount+1 $ write ftpout "put ''local_file' ''file_name'.txt" $ goto file_loop $process: $ write ftpout "quit" $ write ftpout "$exit" $ close ftpout $ deassign sys$output $ set on $ @'trf_file $ if flcount .ge. 1 $ then $ count=count+1 $ w ''count'=> ''local_name' Transferred " $ else $ nofile=nofile+1 $ w No file to Transfer for ''local_name " $ endif $ delete/nolog 'trf_file;* $ delete/nolog 'cum_ja_file;* $ delete/nolog 'cum_pr_file;* $ purge/nolog 'log_file $ goto read_loop $end: $ write sys$output " " $ writ ''count' Agent's Files Transferred" $ write sys$output " " $ writ ''nofile' Agent's had No file " $ if err_cnt .ge. 1 $ then $ write sys$output " " $ writ ''err_cnt' Failed Transfer[s],Check OPER Mail" $ endif $ close local_list $ set message/text/facility/identification/severity $ set on $ exit $! $error: $mail nl: oper /subject="FTP to Unix Server for Agent ''local_name' Failed" $err_cnt=err_cnt+1 $write sys$output " " $read/pro Agent ''local_name' Transfer not Ok,Press Return" sys$command xx $write sys$output " " $if f$trnlnm("ftpout") .nes. "" then close ftpout $set noon $return