parm script,tries,mins,jname="FTPJOB"
#
# Written by Mark Wilkinson, Sony Pictures Entertainment
#
continue
purge xscr,temp > $null
build xscr;disc=10000;rec=-256,,v,ascii;nocctl;temp;msg
print !script;page=0                                                  > xscr
echo $job !jname,!HPUSER.!HPACCOUNT,!HPGROUP;outclass=LP,1            >  jf
echo $comment                                                         >> jf
echo $comment Counting down - this is number !tries                   >> jf
echo $comment                                                         >> jf
echo $continue                                                        >> jf
echo $ftp.arpa.sys                                                    >> jf
print !script;page=0                                                  >> jf
echo $if ftplasterr = 0 then                                          >> jf
echo $   eoj                                                          >> jf
echo $endif                                                           >> jf
echo $if !tries > 1 then                                              >> jf
echo $   file myscr;rec=-256,,f,ascii;disc=10000;temp                 >> jf
echo $   fcopy from=;to=*myscr;new                                    >> jf
while finfo("xscr","eof") > 0 do
   input rec < xscr
   setvar rec rtrim(rec)
   echo !rec                                                          >> jf
endwhile
echo :eod                                                             >> jf
echo $   reset myscr                                                  >> jf
echo $   setvar mytries !tries - 1                                    >> jf
echo $   doftp myscr,!!mytries,!mins                                  >> jf
echo $else                                                            >> jf
echo $   tellop *** FTP Script Processor Failed ***                   >> jf
echo $endif                                                           >> jf
echo $eoj                                                             >> jf
stream jf,$;in=0,0,!mins