Solved

Backup of AS400 w/o tape drive

Posted on 2004-08-27
3
709 Views
Last Modified: 2009-12-03
Hello,

I have a problem.  We have an As400 that needs to be backed up.  In the past we have only done this through the use of a tape drive.  However, the tape drive we have has failed and it turns out it was not under contract for repair.  Is there temporary solution to back up the AS400 without a tape drive (preferably FTP)?  I have tried to FTP for backup but I can only get the actual "data" to move over.  Maybe there is a way to make the backup destination(Windows 2000 Server) recognize the AS400 file structure?

Thanks!

Sorry if I am unclear im not the DB admin, just a programmer who is afraid of working without a net!
0
Comment
Question by:Navicerts
  • 2
3 Comments
 
LVL 18

Accepted Solution

by:
daveslash earned 500 total points
ID: 11917361
Here's what I would do. First, identify which libraries you'd like to back up. Then, create an empty save-file. Then, save the librarys to that save-file. Lastly, FTP the save-file to your PC desktop and burn it to CD.

e.g.
Let's assume I want to back up a library called CGIDemo

First, create the empty save-file:
CRTSAVF FILE(MYLIB/DELETEME)

Then, save the library to that save-file:
SAVLIB LIB(CGIDEMO) DEV(*SAVF) SAVF(MYLIB/DELETEME) SAVACT(*SYSDFN)

Lastly, FTP the save-file to your PC desktop:
C:\>ftp myAS400
Connected to myAS400.mydomain.com.
220-QTCP at MYAS400.ETHERLAN.
220 Connection will close if idle more than 5 minutes.
User (myas400.mydomain.com:(none)): myUserName
331 Enter password.
Password:
230 MYUSERNAME logged on.
ftp> bin
200 Representation type is binary IMAGE.
ftp> get mylib/deleteme c:\deleteme.savf
200 PORT subcommand request successful.
150 Retrieving member DELETEME in file DELETEME in library MYLIB.
250 File transfer completed successfully.
ftp: 515328 bytes received in 0.50Seconds 1030.66Kbytes/sec.
ftp> bye
221 QUIT subcommand received.

Burn c:\deleteme.savf to a CD, and (voila!) it's backed up.

Good luck!
Dave
0
 
LVL 7

Author Comment

by:Navicerts
ID: 11930091
Dave,
0
 
LVL 7

Author Comment

by:Navicerts
ID: 11930111
Dave,

Thank You,

Unfortunatly, i won't be able to test this as soon as I wanted to last week.  The good news...  Turns out i just needed to replace the fan in the tape drive now i have a working tape drive again.  But it seems very logical, why didn't I think of that!  I'll give it a shot later (I'm sure it will work fine).

Thanks Again!
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Suggested Solutions

Recursive SQL in UDB/LUW (you can use 'recursive' and 'SQL' in the same sentence) A growing number of database queries lend themselves to recursive solutions.  It's not always easy to spot when recursion is called for, especially for people una…
Recursive SQL in UDB/LUW (it really isn't that hard to do) Recursive SQL is most often used to convert columns to rows or rows to columns.  A previous article described the process of converting rows to columns.  This article will build off of th…
This video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're looking for how to monitor bandwidth using netflow or packet s…
You have products, that come in variants and want to set different prices for them? Watch this micro tutorial that describes how to configure prices for Magento super attributes. Assigning simple products to configurable: We assigned simple products…

747 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now