parm group
parm ftp_user="username"
parm ftp_password="password"
parm ftp_open="111.222.333.444"

# FTPFETCH.XEQ - use this cmd file to transfer down a PC directory
# to the corresponding directory on the HP3000.
#
# For example: Logon to the 3000 and use "ftpfetch progs" to
# transfer down all the files in the "progs" directory on the
# PC to the progs directory on the HP3000.
#
# Jamie Dickson.

setvar ftp_options, ";rec=-256,1,f,ascii; disc=100000"
setvar ftp_con,     "FTPCON.!HPGROUP.!HPACCOUNT"
setvar ftp_cmd,     "FTPCMD.!HPGROUP.!HPACCOUNT"
setvar ftp_list,    "FTPLIST.!HPGROUP.!HPACCOUNT"

purge !ftp_con
purge !ftp_cmd
purge !ftp_list

echo open !ftp_open                               >  !ftp_con
echo user !ftp_username !ftp_password             >> !ftp_con
echo ascii                                        >> !ftp_con
echo prompt                                       >> !ftp_con

copy !ftp_con, !ftp_cmd; yes

echo cd ./!group                                  >> !ftp_cmd
echo lcd ./!group                                 >> !ftp_cmd
echo ls . !ftp_list                               >> !ftp_cmd
echo quit                                         >> !ftp_cmd

ftp < !ftp_cmd

run qedit.pub.robelle; parm=128; &
  info="t !ftp_list;set int off;cq 1 'get ./' @;cq 30 '!ftp_options' @;kq"

copy !ftp_con, !ftp_cmd; yes

echo cd ./!group                                  >> !ftp_cmd
echo lcd ./!group                                 >> !ftp_cmd
print !ftp_list;page=0                            >> !ftp_cmd
echo quit                                         >> !ftp_cmd

ftp < !ftp_cmd