View Full Version : Daten von AS/400 zu As/400 per FTP
Hallo
ich hätte eine Frage kann mir jemand erklären wie ich Daten von As/400 zur As/400 per FTP übertrag ?
Danke
wolf68
Bruno Jakob
05-08-04, 06:59
Funktioniert wie zu anderen Systemen auch. Nachzulesen im TCP/IP Konfiguration und Referenzhandbuch.
Gruß
Bruno
RobertMack
05-08-04, 12:10
... im Prinzip schon, wenn da die Members nicht wären. Ohne IFS geht's so:
FTP RMTSYS(*INTNETADR) INTNETADR('000.000.000.000')
dann Eingaben:
<USRPRF>
<KENNWORT>
EBCDIC
CD QGPL
LCD QGPL
PUT FILEA.MEMBER FILEB.MEMBER (REPLACE
QUIT
Gruß, Robert
peter.kinne
05-08-04, 12:18
Man kann natürlch auch unter Windoof ein grafisches Tool (CuteFTP) nehmen und dort beide Maschinen konfigurieren.
Peter
[Hallo,
ich mache das immer so:
Um alle Arten von Dateien (PF,LF,CMD usw) übertragen zu können muß der Weg über SAVF gehen.
1.erstellen Savefile auf der Quell-Maschine
crtsavf ledv/s_sidas400
2. erstellen Savefile auf der Ziel-Maschine
crtsavf ledv/s_sidlertu
3. laden in Savefile auf der Quell-Maschine
SAVOBJ
OBJ(QCBLSRC)
LIB(LEDV)
DEV(*SAVF)
SAVF(S_SIDAS400)
FILEMBR((QCBLSRC
(PPSIN005D PPSIN005B)))
4. auf der Zielmaschine ftp starten ftp sidas400
5 anmelden user passwort
6 Übertragungsart auf binär stellen binary
7 Daten holen get ledv/s_sidas400 ledv/s_sidlertu (replace
8 Daten aus dem Savefile in die Bibliothek bringen RSTOBJ
OBJ(*ALL)
SAVLIB(LEDV)
DEV(*SAVF)
SAVF(LEDV/S_SIDLERTU)
MBROPT(*NEW)
Hallo,
Um alle Arten von Dateien (PF,LF,CMD usw) übertragen zu können muß der Weg über SAVF gehen.
Hier ein Beispiel:
1. erstellen Savefile auf der Quell-Maschine
crtsavf ledv/s_sidas400
2. erstellen Savefile auf der Ziel-Maschine
crtsavf ledv/s_sidlertu
3. laden in Savefile auf der Quell-Maschine
SAVOBJ
OBJ(QCBLSRC)
LIB(LEDV)
DEV(*SAVF)
SAVF(S_SIDAS400)
FILEMBR((QCBLSRC
(PPSIN005D PPSIN005B)))
4. auf der Zielmaschine ftp starten
ftp sidas400
5 anmelden
user passwort
6 Übertragungsart auf binär stellen
binary
7 Daten holen
get ledv/s_sidas400 ledv/s_sidlertu (replace
8 Daten aus dem Savefile in die Bibliothek bringen
RSTOBJ
OBJ(*ALL)
SAVLIB(LEDV)
DEV(*SAVF)
SAVF(LEDV/S_SIDLERTU)
MBROPT(*NEW)
Wenn Du immer wieder das gleiche via ftp hin und her sendest empfehlen sich CL-Programme. Wenn du die benötigst einfach melden ich sende sie Dir und du kannst sie abändern.
Grüssle Edgar
Vielen Danke für die vielen Antworten, werd mal schauen ob ich damit zurecht komme. vielen danke !!
gruß wolf68
Hallo Edgar
Dein Beitrag ist schon etwas älter, ich hoffe aber, Du arbeitest immer noch im AS/400-Bereich (ich seit kurzem wieder).
Habe im Moment 2 Systeme und bin darauf angewiesen, über FTP zu transferieren. Wie man CL schreibt ist mir noch klar, wie man das FTP-Zeugs manuell machen auch. Nur wie kann man das in einem CL automatisieren?
Wenn Dein Angebot also noch gilt, wäre ich dankbarer abnehmer eines Beispiels.
Gruss und Danke
Jörg
Hallo,
Um alle Arten von Dateien (PF,LF,CMD usw) übertragen zu können muß der Weg über SAVF gehen.
Hier ein Beispiel:
1. erstellen Savefile auf der Quell-Maschine
crtsavf ledv/s_sidas400
2. erstellen Savefile auf der Ziel-Maschine
crtsavf ledv/s_sidlertu
3. laden in Savefile auf der Quell-Maschine
SAVOBJ
OBJ(QCBLSRC)
LIB(LEDV)
DEV(*SAVF)
SAVF(S_SIDAS400)
FILEMBR((QCBLSRC
(PPSIN005D PPSIN005B)))
4. auf der Zielmaschine ftp starten
ftp sidas400
5 anmelden
user passwort
6 Übertragungsart auf binär stellen
binary
7 Daten holen
get ledv/s_sidas400 ledv/s_sidlertu (replace
8 Daten aus dem Savefile in die Bibliothek bringen
RSTOBJ
OBJ(*ALL)
SAVLIB(LEDV)
DEV(*SAVF)
SAVF(LEDV/S_SIDLERTU)
MBROPT(*NEW)
Wenn Du immer wieder das gleiche via ftp hin und her sendest empfehlen sich CL-Programme. Wenn du die benötigst einfach melden ich sende sie Dir und du kannst sie abändern.
Grüssle Edgar
Hallo Jörg,
könntest Du mir bitte deine EMail-Adresse an edgar.kaltenbach@sidler.de senden. Ich schicke Dir dann die CL-Programme. mfg Edgar
Moin Jörn,
da (http://www.rlpforen.de/showthread.php?t=1132&highlight=CL+FTP) werden sie geholfen :D
Gruß
Sascha