ftp command procedure

[Jesse Chambless]

I think this has been discussed before but here goes.
Compaq TCP/IP Services for OpenVMS VAX Version V5.3
VMS 7.3
The command procedure is below.
$ date = f$extract(0,10,f$cvtime())
$ mo = f$extract(5,2,date)
$ da = f$extract(8,2,date)
$ yr = f$extract(2,2,date)
$ fil = "dbt_"'mo''da''yr' + ".dat"
$ set def dka200:[jnc]
$ ftp/user=chambjx/pass=xxxxxxx upenn2 -
get pg_disk:[chambjx.jesse.sytools.sydata]'fil' dka200:[jnc]'fil'

When this is executed I receive the following error.

%DCL-W-NUMBER, invalid numeric value - supply an integer
\GET\

Any help would be appreciated.

[Marc Van den Broeck]

Jesse,

remove the minus sign at the end of the ftp line.

Rgds
Marc

[Ian Miller.]

You may also wish to consider using the COPY/FTP syntax. See HELP.

[Jesse Chambless]

The - at the end is a line continuator for the procedure.

Below is a very similiar procedure using Multinet.

$ date = f$extract(0,10,f$cvtime())
$ mo = f$extract(5,2,date)
$ da = f$extract(8,2,date)
$ yr = f$extract(2,2,date)
$ fil = "dbt_"'mo''da''yr' + ".dat"
$ ftp/user=system/pass=xxxxxx cm1 -
get dka200:[jnc]'fil' cachesys:'fil'
$!

This procedure works great.

I must admit, I had the procedure list working and managed to delete it! I am now trying to re-create it on TCPIP.

[Antoniov.]

Jesse,
I'm with Marc, remove hyphen.

In vms, every line with end hyphen means continue with next line.
Without hyphen, your command procedure open ftp and then execute get command.

Antonio Vigliotti

[Jesse Chambless]

The problem with that is I am passing in a symbol and ftp will not see the file name.

[Willem Grooters · Accepted solution]

Multinet <> TCPIP....

This is how we do it, sending all files from a previously prepared directory:

$ ftp
/user= /passw=
prompt
asci
send bps$exp:*.*;*
bye
$

ftp + addrtess + user + password on one line, rest on a line by themselves.

So no "-" in your FTP-line...

In other occasions, a commandprocedure as above is created in that procedure, executed and deleted:

$ open/write FTPFILE ftp.com
$ write FTPFILE "ftp
/user= /passw="
$ write FTPFILE "prompt"
$ write FTPFILE "asci"
$ write FTPFILE "send bps$exp:*.*;*"
$ write FTPFILE "bye"
$ close FTPFILE
$ @ftp.com
$ delete/nolog ftp.com;*

Not very elegant, but who cares. It works...
Be sure though to redefine SYS$INPUT to TT: (as we have in ou command procedure)

[Jan van den Ende]

Jesse,

we essentially use Willem's solution.
Clumsy, but works great.

Proost.

Have one on me.

jpe

[Ian Miller.]

$ COPY/FTP/ASCII upenn2"chambjx xxxxxx"::pg_disk:[chambjx.jesse.systools.sydata]'fil' dka200:[jnc]'fil'

(all one line)

[Bojan Nemec]

Jesse,

I will go for the COPY/FTP solution as mentioned by Ian:

$ COPY/FTP upenn2"chambjx xxxxxxx":: pg_disk:[chambjx.jesse.sytools.sydata]'fil' dka200:[jnc]'fil'


With TCP/IP Services you can not do the command in one line so you must remove the minus sign at the end of yours command. So you get the same thing as if you type the command:

$ ftp/user=chambjx/pass=xxxxxxx upenn2

get the FTP> prompt and type

FTP> get pg_disk:[chambjx.jesse.sytools.sydata]'fil' dka200:[jnc]'fil'

But now you get problems with symbol replacement. The symbols are not replaced.

If you want to replace this symbols you can use the pipe command:

$ PIPE WRITE SYS$OUTPUT -
"get pg_disk:[dir]''fil' dka200:[jnc]''fil'" -
| ftp/user=chambjx/pass=xxxxxxx upenn2


There is another solution which works with put, but not with get:

$ date = f$extract(0,10,f$cvtime())
$ mo = f$extract(5,2,date)
$ da = f$extract(8,2,date)
$ yr = f$extract(2,2,date)
$ define file "dbt_''mo'''da'''yr'.dat"
$ ftp/user=chambjx/pass=xxxxxxx upenn2
put file


Bojan