SAVF auf PC laden

[rr2001]

werte Gäste, kennt jemand eine Mglkt., eine AS/400 Bibliothek auf einen PC zu sichern.
Ich dachte an SAVLIB in *SAVF und dann mit
CPYTOPCD - funktioniert leider nicht.
Vielen Dank im Voraus

[mk]

Hey,

das ist schon soweit richtig.
Also erst eine SAVF erstellen,
diese dann mit FTP
auf den PC laden.
Nicht vergessen: Bei dem FTP auf bin umzustellen.
Kurzfassung:
ftp AS400System
anmelden
bin
cd Bibliothek der Savefile
get

und schon bekommst Du deine Savefile
auf deinem PC

gruss
Michael

[rmittag]

CPYTOSTMF nehmen

Auszug aus der Bedienerhilfe



Mit dem Befehl CPYTOSTMF (In Datenstromdatei kopieren) wird eine
Datenbankteildatei oder eine Sicherungsdatei in eine Datenstromdatei
kopiert. Wahlweise werden Datenumsetzung und Neuformatierung beim
Kopieren einer Datenbankteildatei durchgeführt. Dieser Befehl kann
nicht verwendet werden, um in eine oder aus einer Datenbankteildatei
zu kopieren, die sich in einem fernen System befindet.

[Gutmann]

CPYTOSTMF nehmen

Wo ist der Vorteil im Vergleich zum FTP Command? Für mich liest sich der Befehl so, dass ich die SAVF in eine StreamFile kopiere (doppelter Speicher) u. den dann hinterher per FTP übertrage? Warum also nicht gleich die SAVF mit FTP übertragen?

[andreaspr@aon.at]

ich glaube der Gedanke war, dass du dann auch mit Windows Share (Netserver Freigaben) das SAVF auch ohne FTP herunterladen kannst.

[Fuerchau]

Netserver-Freigaben auf Nicht-IFS sollte man besser lassen, das geht meist schief.
FTP ist halt unnötig da man ja IFS als Freigabe erhält.
Nach einem erfolgreichen CPYTOSTMF kann man die SAVF ja löschen um den Platz zu sparen.

[Gutmann]

Okay, fassen wir mal zusammen: Ich erstelle mittels SAVLIB/SAVOBJ eine SAVF u. würde diese mit CPYTOSTMF ins IFS schieben. Danach kann ich per XCOPY etc. diese auch abholen und spare mir FTP.

Kann der reine "SAV" Befehl auch LIBs direkt in eine zuvor erzeugte SAVF ins IFS schreiben, sodass der CPYTOSTMF entfallen könnte? Glaube mich zu erinnern, dass der SAV-Befehl für Sicherungen von IFS-Objekten bei uns verwendet wurde!?

[RobertMack]

Alt aber immer noch praktisch:



HDEBUG DECEDIT('0,') DATEDIT(*DMY.)

FFTPINP O A F 120 DISK USROPN

D DS
D Days 1 14 INZ('modimidofrsaso')
D Day 1 14 DIM(7)
D DoW S 1 0

C/EXEC SQL SET :DoW = DayOfWeek_ISO(current_date)
C/END-EXEC

C *DTAARA DEFINE SICHERUNG SYSNAM 8
C IN SYSNAM
C SELECT
C WHEN SYSNAM = 'TEST '
C EXSR SICHTEST
C WHEN SYSNAM = 'PROD '
C EXSR SICHPROD
C OTHER
C ENDSL
C EVAL *INLR = *ON

C SICHTEST BEGSR
C EVAL CMD = 'CLRSAVF MySAVF'
C EXSR RUNCMD
C EVAL CMD = 'SAVOBJ OBJ(*ALL) LIB(MyLIB) ' +
C 'DEV(*SAVF) OBJTYPE(*FILE) SAVF(QGPL/MySAVF)'
C EXSR RUNCMD
C EVAL CMD = 'CRTSRCPF QTEMP/FTPINP MBR(INPUT) ' +
C 'RCDLEN(120)'
C EXSR RUNCMD
C 50 EVAL CMD = 'CLRPFM QTEMP/FTPINP'
C 50 EXSR RUNCMD
C 50 LEAVESR
C EVAL CMD = 'OVRDBF FILE(INPUT) TOFILE(QTEMP/' +
C 'FTPINP)'
C EXSR RUNCMD
C 50 LEAVESR
C OPEN FTPINP 50
C 50 LEAVESR
C MOVE *BLANK SRCLINE 108
C EVAL SRCLINE = 'prf pwd'
C EXCEPT SRCADD
C EVAL SRCLINE = 'cd backup'
C EXCEPT SRCADD
C EVAL SRCLINE = 'mkdir testsystem'
C EXCEPT SRCADD
C EVAL SRCLINE = 'cd testsystem'
C EXCEPT SRCADD
C EVAL SRCLINE = 'bin'
C EXCEPT SRCADD
C EVAL SRCLINE = 'put MySAVF MySAVF' +
C Day(DoW) + '.savf'
C EXCEPT SRCADD
C EVAL SRCLINE = 'close'
C EXCEPT SRCADD
C EVAL SRCLINE = 'quit'
C EXCEPT SRCADD
C CLOSE FTPINP
C EVAL CMD = 'FTP RMTSYS(nnn.nnn.nnn.nnn)'
C EXSR RUNCMD
C ENDSR

C SICHPROD BEGSR
C ENDSR

C RUNCMD BEGSR
C CALL 'QCMDEXC' 50
C PARM CMD 160
C PARM 160 CMDLEN 15 5
C ENDSR

OFTPINP EADD SRCADD
O SRCLINE B 120

[Fuerchau]

Warum so kompliziert wenn es der CPYTOSTMF inzwischen (seit V5R2) auch kann?

Alle SAV-Befehle können nur auf entsprechende Geräte und eben SAVF's.
Du kannst allenfalls noch Zip für das IFS verwenden. Für "/QSYS" funktioniert zwar z.T. das Sichern aber garantiert nicht mehr das Wiederherstellen. Denn ZIP kommt nur an die nackten Daten eines Objekts aber nicht an die ganzen Attribute, die zur Wiederherstellung dienen.

Das schöne am CPYTOSTMF ist, dass ich mit CPYFRMSTMF wieder in eine SAVF direkt schreiben kann.
FTP oder ein RPG mit interner Datei ist nicht mehr nötig.

[holgerscherer]

Das schöne am CPYTOSTMF ist, dass ich mit CPYFRMSTMF wieder in eine SAVF direkt schreiben kann.

Ich habe immer noch nicht verstanden, warum Ihr CPY***STMF verwenden wollt. Das braucht mehr Platz auf der Platte, Zeit sowieso, und der Transfer per SMB Protokoll ist langsamer als (S)FTP oder SCP.