Re: file list for ftp in a command procedure

The thread is ignoring the original problem and revolving around dcl syntax.

some of it is my fault for trying to get it to work and focusing on
it...

I clipped this from some old code.
It should be close to what the OP wants.

$ pipe dir/nohead/sel=file=(nodir,nodev)/since=ddd-mm-yyyy/before=ddd-mm-yyyy | @sendthefiles


$type sendthefiles.com


$ copy:=copy
$ readloop:
$READ/END_OF_FILE=ENDIT sys$pipe name
$ if f$extract(0,10,name) .eqs. "Directory "
$ then i=0
$ else if f$extract(0,9,name) .eqs. "Total of "
$ then i=0
$ else if name .eqs. ""
$ then i=0
$ else copy/ftp 'name' servername"userid pasword"::"c:\serverdir\"
$ endif
$ endif
$ endif
$ goto readloop
$ ENDIT:

I don't remember if you can have a THEN with nothing after it so i stuck in the i=0

of course now I find out that some of the files need to be ascii and
some binary... so I may look at zipping them per a list and ftping it
as binary and then unzipping it... of course I can't seem to get it to
put it into the right dir...

thank you all for your help so far...

Paul

.

Relevant Pages