Re: Moving Source between AS/400 without tape...

[Vernon Hamberg <hambergv@xxxxxxxxxxxxxx>]

Chuck

At 10:45 PM 5/29/1998 -0400, you wrote:
>Hi Folks,
>
>As I've mentioned here previously, we acquired a 2nd AS/400 (and thanks
>for the info on sharing a 3590, I'm getting pricing info "as we
>speak"... need a 6501 for the 500 plus cable...).
>
>In the mean time I REALLY need to get a complete library of source from
>our 530 to the 500. They are both on our T/R LAN so you can SNDNETF but
>WHAT a pain to do for, for instance 300 members in QCLSRC !!!
>
>Is there some way I'm missing, a command or something to do this  -
>short of writung my own procedure, which I have a pretty good idea how
>to, just don't want to "reinvent the wheel" ?

Use straight ftp with wildcards. If on the machine with the source, once
into the ftp session, do the following:

cd remote_libname        /* Change Directory */
lcd local_libname        /* Local Change Directory */
bin                      /* BINary transfer */
mput q*.*                /* Multiple PUT with wildcards */

This changes your remote machine to the library where you want to put the
source members, changes your local machine to the library where the source
resides, makes the transfer binary (not ascii), and sends _ALL_ members in
_ALL_ files that start with Q to the remote machine.

Similar use of wildcards lets me delete all members of the same name from
all files in a library. I usually use this to do a mass delete of
performance data members.

Cheers

Vernon Hamberg
Systems Software Programmer
Old Republic National Title Insurance Company
400 Second Avenue South
Minneapolis, MN  55401-2499
(612) 371-1111 x480


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---