Now, Get RPG Codes in all three formats only on this website on every RPGLE related programming article.

Fixed, /Free and Fully Free RPG


How do I transfer source member from Windows PC to IBM i using FTP?

How do I transfer source member from Windows PC to IBM i using FTP?
How do I transfer source member from Windows PC to IBM i using FTP?,upload source member using ftp from pc to ibmi,upload source member using ftp from windows to ibmi,uploading source member using ftp from pc to ibmi,transfer source member using ftp from pc to ibmi, ftp, file transfer protocol, ifs as400, ibmi ifs, upload source member using ftp from pc to as400,transfer source member using ftp from pc to as400,ascii, type ascii, open host, ftp commands, ftp commands on ibmi, ftp command in as400, run, cms, command prompt, cd, dos,as400,iseries, systemi, ibmi, as400 tutorial, ibmi tutorial, as400 and sql tricks
How do I transfer source member from Windows PC to IBM i using FTP?

Listed below the following steps to transfer any source member from Windows PC to IBM i (AS400).

Transfer steps:

  1. Open the DOS prompt by typing RUN command on start menu search bar and press Enter and then type cmd in OPEN field on the Run dialog and press Enter or click on OK button of the Run Dialog and start FTP file transfer by typing FTP and pressing Enter. After that in the FTP prompt, type OPEN pub400.com(IP address) and press Enter.
  2. or

  3. Open the DOS prompt and start FTP file transfer by typing FTP pub400.com(IP address) and press Enter. You can opt either 1st or 2nd step (anyone).
  4. In the IBM i(AS400) login prompt, type your IBM i (AS400) Userid and password to log in to the IBM i(AS400) FTP Server.
  5. Once logged in, type ascii or type ascii to set the file transfer type to network ASCII (default type) and press Enter.
  6. For transferring source member from windows PC to IBM i (AS400), type
  7. put C:\\Users\\Asus\\Desktop\\prtf1a.prtf /qsys.lib/easyclass1.lib/prtf.file/prtfupload.mbr 

    Here, we transferred/uploaded the source member prtfupload to the source file prtf in library easyclass1 into the IBM i from the windows PC location Desktop with file name prtf1a.prtf

Live Demo of transferring source member from Windows PC to IBM i (AS400) using FTP

Microsoft Windows [Version 10.0.19044.1645]
(c) Microsoft Corporation. All rights reserved.

C:\\Users\\Asus>cd desktop

C:\\Users\\Asus\\Desktop>ftp
ftp> open pub400.com
Connected to pub400.com.
220-QTCP at PUB400.COM.
220 Connection will close if idle more than 1666 minutes.
501 OPTS unsuccessful; specified subcommand not recognized.
User (pub400.com:(none)): easyclass
331 Enter password.
Password:
230 EASYCLASS logged on.
ftp> ascii
200 Representation type is ASCII nonprint.
ftp> put C:\\Users\\Asus\\Desktop\\prtf1a.prtf /qsys.lib/easyclass1.lib/prtf.file/prtfupload.mbr 
200 PORT subcommand request successful.
150 Sending file to member PRTFUPLOAD in file PRTF in library EASYCLASS1.
226 File transfer completed successfully.
ftp: 1365 bytes sent in 0.49Seconds 2.80Kbytes/sec.
ftp>

Source Member Uploaded from Windows PC to IBM i.

                           Work with Members Using PDM          
                                                                
 File  . . . . . .   PRTF                                       
   Library . . . .     EASYCLASS1           Position to  . . . .
                                                                
 Type options, press Enter.                                     
  2=Edit         3=Copy  4=Delete 5=Display       6=Print     7=
  8=Display description  9=Save  13=Change text  14=Compile  15=
                                                                
 Opt  Member      Type        Text                              
      PRTFUPLOAD
 Columns . . . :    1  80                                      Browse                                               EASYCLASS1/PRTF
 SEU==>                                                                                                                  PRTFUPLOAD
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8                                           
        *************** Beginning of data ***************************************************************************************  
0001.00      FPF1       IF   E           K DISK                                              000000                                
0002.00      FQSYSPRT   O    F  132        PRINTER OFLIND(*IN01)                             000000                                
0003.00       /Free                                                                          000000                                
0004.00          EXCEPT HEADER;                                                              000000                                
0005.00          setll *loval PF1;                                                           000000                                
0006.00          read PF1;                                                                   000000                                
0007.00          dow not%eof(pf1);                                                           000000                                
0008.00            if *in01 = *ON;                                                           000000                                
0009.00              EXCEPT DUMMY;                                                           000000                                
0010.00              EXCEPT HEADER;                                                          000000                                
0011.00              *IN01 = *OFF;                                                           000000                                
0012.00            endif;                                                                    000000                                
0013.00              EXCEPT DETAIL;                                                          000000                                
0014.00            read PF1;                                                                 000000                                
0015.00          enddo;                                                                      000000                                
0016.00          EXCEPT FOOTER;                                                              000000                                
0017.00          *inlr =  *ON;                                                               000000                                
0018.00          return;                                                                     000000                                
0019.00       /End-Free                                                                      000000                                

Post a Comment

© AS400 and SQL Tricks. All rights reserved. Developed by Jago Desain