MVSFORUMS.com

[bvsbabu]

Hello,
Please help me in transferring a file from One Server to another server using PERL. I used the following script code to transfer.. but it is not working and throwing the following information...

Code:
my $FTP_Host = "it15247";
my $New_Src_File ="test.txt";
my $Target_File = "test1.txt";
my $FTP_Log_File = "test.txt";

my $FTP_Cmd = sprintf ("echo \"open %s\n %s\n %s\n verbose\n ascii \n site Lrecl=255 Recfm=FBA BlockSize=0 PRI=300 CY SEC=20 CY\n put %s %s\n verbose\n quit\"| ftp \n", $FTP_Host, "userid","pwss",$New_Src_File, $Target_File);
print "$FTP_Cmd";
print " End of the Command \n";
system($FTP_Cmd);


Login incorrect.
Login failed.
?Invalid command
Verbose mode on.
200 Type set to A.
?Invalid command
530 Please login with USER and PASS.
530 Please login with USER and PASS.
Verbose mode off.

Please do the need ful.

[kolusu]

bvsbabu,


This board is specifically for questions related to mainframe and its related products. My knowledge in perl is very poor and I really cannot help.

But looking at the error messages it is evident that you are login failed. check this link for FTP manual

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/F1A1B910/CCONTENTS

Thanks,

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu