Hi Dave:
My answer to this would be to write a script to
write an FTP script.
I don't know if Perl is available on your mainframe but that would be my weapon of choice; you also get FTP error checking free of charge. Of course, you can reverse the sense of the operations and let HP-UX do a put or get as needed.
In the past, I used to do this stuff in the shell but now I NEVER do because I have found a much cleaner way to do it that makes error trapping duck soup. Do this stuff in Perl using the Net::FTP module which is available from
http://www.cpan.org .
Here's how simple it can be:
#!/usr/bin/perl -w
use English;
use Net::FTP;
use strict;
my $ftp = Net::FTP->new("remotehost",Debug => 0);
$ftp->login("cstephen","top_secret");
$ftp->cwd("/tmp");
$ftp->get("myfile");
my $stat = $ftp->status;
my $full_stat = $ftp->code;
# $stat contains the first digit; usually all
# that you need to do is test if it is equal
# to 2. $full_stat contains the full 3-digit
# value but is seldom needed
printf("Status: %d Full Status: %d\n",$stat,$full_stat);
# Sample Test
if ($stat == 2)
{
print "Get was good\n";
}
else
{
print "Get was bad\n";
}
$ftp->quit;
In the above example, suppose that we wanted to replace the hard-coded "myfile" with a value
determined at run time by reading the command line.
my $filename = $ARGV[0];
shift;
We then replace the "myfile" with the variable and we are done.
$ftp->get($filename);
Notice that this method easily handles the error checking. If you like, you can use the shell for most of your script and simply use a bit a perl for the actual FTP transfers. In that case add the statement exit($stat) to the perl script and then your shell script does have a valid status indication.
Regards, Clay
If it ain't broke, I can fix that.
