Hi All, I would like to issue a command to an AS/400 using Net:FTP -> quot(CMD [,ARGS]) but I'm having a little trouble. Has anyone ever done this before? Any help would be greatly appreciated. Here is what I would type on a 400 cmd line. quote rcmd pgm(kieth/quotetest) Below is what I have so far.... #!/usr/bin/perl use strict; use warnings; use Net::FTP; my $hostname = '10.3.1.3'; my $username = 'username'; my $password = 'password'; # Open the connection to the host
my $ftp = Net::FTP->new($hostname); $ftp->login($username, $password); # this does not work ftp->quot(rcmd pgm["kiethb", "quotetest"]); # I tried using the system cmd as well ...no luck system "quote rcmd pgm(kieth/quotetest)"; $ftp->quit; Thanks! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]
