Change line description was IFS and FTPing libraries

When we changed ours, I used a batch program. Then I scheduled it to run
during our next backup (when we kick users anyway). It isn't a life or death
change, so if it bombs out, you can start the line back up within the
program.

I can't find the clp we used, but generally...


Monmsg cpf0000 goto restart
CHGJOB LOG(4 00 *SECLVL) LOGCLPGM(*YES)
Endtcpsvr *all (this one will kill ya if you don't have access to the
console!)
(If you have other services using the line do them here. For example,
internal/external servers)

VRYCFG CFGOBJ(ETHLIN01) CFGTYPE(*LIN) STATUS(*OFF) RANGE(*NET)
FRCVRYOFF(*YES)
CHGLINETH LIND(ETHLIN01) LINESPEED(*AUTO) DUPLEX(*AUTO)

Vrycfg cfgobj(ehtlin01) cfgtype(*lin) status(*on)
strtcpsvr
Sndmsg 'Success' mikekr
Goto end:

Restart:
VRYCFG CFGOBJ(ETHLIN01) CFGTYPE(*LIN) STATUS(*OFF) RANGE(*NET)
FRCVRYOFF(*YES)
Strtcpsvr

End: endpgm



We use *AUTO in case someone moves the cable into a lesser switch at some
point. We have never gotten anything less than 1G full using *AUTO. If I
remember right, we built in small delays (DLYJOB) between each command and
it took about 10 minutes to run the whole program (assuming the services
close down without delay).

Good luck.

Mike Krebs



-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
Nick_Radich@xxxxxxxxxxxxxx
Sent: Monday, October 01, 2007 4:00 PM
To: Midrange Systems Technical Discussion
Subject: RE: IFS and FTPing libraries

Thanx, Paul.



Thanx,

Nick



Nick Radich
Sr. Programmer/Analyst
EPC Molding, Inc.
Direct (320) 679-6683
Toll free (800) 388-2155 ext. 6683
Fax (320) 679-4516
nick_radich@xxxxxxxxxxxxxx



"Paul Nelson" <nelsonp@xxxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
10/01/2007 03:58 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
"'Midrange Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
cc

Subject
RE: IFS and FTPing libraries






No. You have to wait until everybody is off the system.

Paul Nelson
Cell 708-670-6978
Office 512-392-2577
nelsonp@xxxxxxxxxxxxx


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
Nick_Radich@xxxxxxxxxxxxxx
Sent: Monday, October 01, 2007 3:28 PM
To: Midrange Systems Technical Discussion
Subject: RE: IFS and FTPing libraries

Hi Paul,

My Ethernet Line is set to *HALF. Can I change this to *FULL while
everyone and everything is up and running?



Thanx,

Nick



Nick Radich
Sr. Programmer/Analyst
EPC Molding, Inc.
Direct (320) 679-6683
Toll free (800) 388-2155 ext. 6683
Fax (320) 679-4516
nick_radich@xxxxxxxxxxxxxx



"Paul Nelson" <nelsonp@xxxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
10/01/2007 03:22 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
"'Midrange Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
cc

Subject
RE: IFS and FTPing libraries






Have you looked at your line description? You should have it set for full
duplex, whatever the card speed might be.

Paul Nelson
Cell 708-670-6978
Office 512-392-2577
nelsonp@xxxxxxxxxxxxx


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
Nick_Radich@xxxxxxxxxxxxxx
Sent: Monday, October 01, 2007 1:49 PM
To: midrange-l@xxxxxxxxxxxx
Subject: IFS and FTPing libraries

Hello everyone,

I would like to copy/save libraries from my IFS to a backup server we
have. This will replace the SAVLIB and SAVCHGOBJ we are currently using
for backupsk to tape.

What is the syntax I should use to copy a library from my IFS to the
Server? I haven't used the IFS much, we do most everything with QDLS. I
know, it's slower than dirt, but I am trying to learn more about the IFS
right now, after 25 years of programming.

Here is what I am currently trying to use to FTP the SAVF file I create
nightly. AMFLIB below is a SAVF that has my data in it. As stated above,


I would like to just copy the library from the IFS to the server, without
doing the "Save" stuff, to cut the down time for my Users. It works, but
extremely slow. About 2 1/2 hours for a SAVLIB for this library (Save
through FTP completion).


USER amapics password1
namefmt 0
binary
cd Monday
put QGPL/AMFLIB /Monday/AMFLIB
quit


Also, during my testing I can only get about 1Mg/sec transfer rate. My
Network guy thinks I should be getting about 10 Mg/sec. With my tape
drive, it is rated or about 7 Mg/sec. No one is on the System, nor
network, when this runs.

Thanx for any suggestions you can give me.

We have an AS/400e 9406-620 at V4R5.




Thanx,

Nick



Nick Radich
Sr. Programmer/Analyst
EPC Molding, Inc.
Direct (320) 679-6683
Toll free (800) 388-2155 ext. 6683
Fax (320) 679-4516
nick_radich@xxxxxxxxxxxxxx