Build FTP Parameters for FTP
Posted: Thu Apr 09, 2009 9:05 pm
We currently have the following commands being built thru REXX for FTPing files. However, we also need to be able to include the user name and password:
NEWSTACK
QUEUE ' PWD'
QUEUE ' ASCII'
QUEUE ' SENDSITE'
QUEUE ' CD '||PATH
DO I = 1 TO NUMBER_OF_LINES
COUNT = COUNT + 1
PARSE VAR FILELINE.COUNT X1 X2
QUEUE ' PUT '||X1
END
QUEUE ' QUIT'
RETURN
QUEUE ' PWD'
QUEUE ' ASCII'
QUEUE ' SENDSITE'
QUEUE ' CD '||PATH
DO I = 1 TO NUMBER_OF_LINES
COUNT = COUNT + 1
PARSE VAR FILELINE.COUNT X1 X2
QUEUE ' PUT '||X1
END
QUEUE ' QUIT'
RETURN