FTP file

Here is a really great FTP command.

This tip was actually created from the source in the IBM Redbook AS/400 TCP/IP Cool Stuff. So I don't know if this is really "my tip". It is a really great FTP command consisting of 1 cmd/1 cl/2 RPG source files. It prompts for all pertinent information including 3 FTP commands, creates a copy of the script file, and the log file in qtemp. This information can then be copied anywhere, it also checks for errors. I am only sending the...

command source, if you would like the rest of the source please e-mail me and I will FTP to you. It is great!


 
  CMDSRC = 
FTPFILE: CMD PROMPT('START A FTP FILE TRANSFER')                   
           PARM       KWD(RMTSYS) TYPE(*CHAR) LEN(50) MIN(1) +     
                        PROMPT('REMOTE SYSTEM FOR FTP TRANSFER')   
           PARM       KWD(LCLFIL) TYPE(*CHAR) LEN(50) MIN(1) +     
                        PROMPT('LOCAL FILE''S NAME')               
           PARM       KWD(RMTFIL) TYPE(*CHAR) LEN(50) MIN(1) +     
                        PROMPT('REMOTE FILE''S NAME')              
           PARM       KWD(FUNCTION) TYPE(*CHAR) LEN(1) RSTD(*YES) +
                        VALUES(P G) SPCVAL((P P) (G G)) MIN(1) +   
                        PROMPT('FUNCTION (PUT/GET)')               
           PARM       KWD(USR) TYPE(*CHAR) LEN(10) MIN(1) +        
                        PROMPT('USER PROFILE IN REMOTE SYSTEM')    
           PARM       KWD(PWD) TYPE(*CHAR) LEN(30) MIN(1) +        
                                                   PARM       KWD(PWD) TYPE(*CHAR) LEN(30) MIN(1) + 
                        PROMPT('PASSWORD TO REMOTE SYSTEM') 
           PARM       KWD(OPT1) TYPE(*CHAR) LEN(20) +       
                        PROMPT('COMMAND 1')                 
           PARM       KWD(OPT2) TYPE(*CHAR) LEN(20) +       
                        PROMPT('COMMAND 2')                 
           PARM       KWD(OPT3) TYPE(*CHAR) LEN(20) +       
                        PROMPT('COMMAND 3')  
This was first published in July 2001

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close