INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

FTP source code from I-series to PC

FTP source code from I-series to PC

(OP)
This can't be that hard. All of want is a copy of my source code downloaded to my pc. I have tried just about everything. I cannot get the files to my pc. Can anyone provide a real basic ftp sequence to get my source code to the pc?

RE: FTP source code from I-series to PC

http://publib.boulder.ibm.com/iseries/v5r2/ic2924/info/rzaiq/rzaiq.pdf

This is an IBM reference, you should be able to find the info you need..

RE: FTP source code from I-series to PC

(OP)
I've been there. It hasn't helped.

RE: FTP source code from I-series to PC

What kind of problems are you having???

RE: FTP source code from I-series to PC

(OP)
The only way I could get the source code to transfer was to ftp from the pc to the i-series. If I use get I can bring over single source pgms as a renamed .TXT file that I can send to the pc. Other wise the mget would not bring then over as .TXT. I would have to rename each pgm to .TXT after ftping and then send then to the pc.
used: ascii, cd mylibrary, ls, lcd C:\temp, mget source.*

I want to be able to use mget on all the source and download the group with an .TXT file type so that I do not have to rename each file or bring down each one individually. I have to work from home sometimes and having the homegrown source code on hand as a reference is helpful.

RE: FTP source code from I-series to PC

For example I have on public iSeries pub1.rzkh.de in my library MIKROM1 a REXX-Source File named QREXSRC.
Now I want to get all members, i.e. these 3 REXX-sources

CODE

Work with Members Using PDM PUB1 File . . . . . . QREXSRC Library . . . . MIKROM1 Position to . . . . . Type options, press Enter. 2=Edit 3=Copy 4=Delete 5=Display 6=Print 7=Rename 8=Display description 9=Save 13=Change text 14=Compile 15=Create module... Opt Member Type Text HALLO REXX MONTH REXX MONTHOFDAT REXX
to my local directory on PC named C:\work\as400_souces.

Then I can do following using FTP from my Windows:

CODE

C:\Users\mikl1071>ftp pub1.rzkh.de Connected to pub1.rzkh.de. 220-QTCP at PUB1.RZKH.DE. 220 Connection will close if idle more than 60 minutes. User (pub1.rzkh.de:(none)): mikrom 331 Enter password. Password: Here I enter my Password 230 MIKROM logged on. ftp> cd /QSYS.LIB/MIKROM1.LIB/QREXSRC.FILE 250 "/QSYS.LIB/MIKROM1.LIB/QREXSRC.FILE" is current directory. ftp> lcd C:\work\as400_sources Local directory now C:\work\as400_sources. ftp> ls 200 PORT subcommand request successful. 125 List started. HALLO.MBR MONTH.MBR MONTHOFDAT.MBR 250 List completed. ftp: 38 bytes received in 0,03Seconds 1,23Kbytes/sec. ftp> ascii 200 Representation type is ASCII nonprint. ftp> mget *.MBR 200 Representation type is ASCII nonprint. mget HALLO.MBR? y 200 PORT subcommand request successful. 150 Retrieving member HALLO in file QREXSRC in library MIKROM1. 250 File transfer completed successfully. ftp: 25 bytes received in 0,00Seconds 25000,00Kbytes/sec. mget MONTH.MBR? y 200 PORT subcommand request successful. 150 Retrieving member MONTH in file QREXSRC in library MIKROM1. 250 File transfer completed successfully. ftp: 111 bytes received in 0,00Seconds 111000,00Kbytes/sec. mget MONTHOFDAT.MBR? y 200 PORT subcommand request successful. 150 Retrieving member MONTHOFDAT in file QREXSRC in library MIKROM1. 250 File transfer completed successfully. ftp: 1040 bytes received in 0,03Seconds 32,50Kbytes/sec. ftp> quit 221 QUIT subcommand received.

Now I got the desired sources as *.MBR in local directory on my PC:

CODE

C:\Work\as400_sources>dir Volume in drive C is OS Volume Serial Number is 18C2-F7F3 Directory of C:\Work\as400_sources 22. 05. 2012 22:12 <DIR> . 22. 05. 2012 22:12 <DIR> .. 22. 05. 2012 22:12 25 HALLO.MBR 22. 05. 2012 22:12 111 MONTH.MBR 22. 05. 2012 22:12 1 040 MONTHOFDAT.MBR 3 File(s) 1 176 bytes 2 Dir(s) 13 075 226 624 bytes free
But *.MBR are ASCII text files. I can rename them to *.REXX if I want.

Above I used blue for commands I typed.
For example for path of the REXX-source file on iSeries I used IFS-naming convention:
/QSYS.LIB/MIKROM1.LIB/QREXSRC.FILE

Any other questions?

RE: FTP source code from I-series to PC

On iSeries if your source nembers are of type *.TXT or *.REXX,...etc, you can access them as *.MBR using the qualified names:

CODE

/QSYS.LIB/your_lib.LIB/your_file.FILE/your_mbr.MBR

RE: FTP source code from I-series to PC

(OP)
Worked like a charm. Thank you so much!

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close