RE: Copy source from the AS/400 to a PC for archival purposes...

[Winchester Terry <terry.winchester@xxxxxxxxxxxxxxx>]

Steve,

Personally, I use a FTP batch file on my PC to
download all of the members in a source file
into a specific directory.

Here's a script called QCLSRC.SCR:

user USERID PASSWORD
cd MYLIBRARY
prompt off
mget QCLSRC.*
bye

Here's the FTP command that launches it:

ftp -d -n -s:C:\SourceCode\QCLSRC.SCR  MYAS400

Terry

> -----Original Message-----
> From: Steve Landess [mailto:steve_landess@hotmail.com]
> Sent: Thursday, September 12, 2002 12:34 PM
> To: midrange-l@midrange.com
> Subject: Copy source from the AS/400 to a PC for archival purposes...
>
>
> This is a multi-part message in MIME format.
> --
> [ Picked text/plain from multipart/alternative ]
> Does anybody know an easy way to copy ALL source members from
> a given source file to a PC?
>
> I know that I can save the source to a save file and FTP that
> to my PC as a binary, but I would like to have BOTH save file
> AND text versions of the source on my PC.  This way I can
> view source on my PC without having to load it back on the AS/400.
>
>
> Back in the early days (circa 1989) of PC Support/400, I had
> written a batch file that:
>
> 1) Ran a remote command on the AS/400 which did a DSPFD
> *MBRLIST on the source physical file to an outfile.
>
> 2) Ran a file transfer request which download this file to the PC.
>
> 3) Ran a BASIC program which read this file and created the
> FDF and TFR files for each member to transfer.
>
> 4) As it created the FDF and TFR files, it wrote a record to
> another batch file with the appropriate RTOPCB command.
>
> 5)  When finished, it ran the batch file created in (4) to
> actually download all of the source members to individual
> files on the PC.
>
> I don't have this program any more, but I'm sure that there
> is an easier way to do this today, but I'm not sure.  Can
> anybody give me ideas as to how do this now?
>
> Thanks in advance for your help!
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion
> (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>