Daten von AS/400 zu As/400 per FTP

[wolf68]

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]

Funktioniert wie zu anderen Systemen auch. Nachzulesen im TCP/IP Konfiguration und Referenzhandbuch.

Gruß
Bruno

[RobertMack]

... 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]

Man kann natürlch auch unter Windoof ein grafisches Tool (CuteFTP) nehmen und dort beide Maschinen konfigurieren.

Peter

[Edgar]

[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)

[Edgar]

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

[wolf68]

Vielen Danke für die vielen Antworten, werd mal schauen ob ich damit zurecht komme. vielen danke !!

gruß wolf68

[Jörg]

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

[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

[JonnyRico]

Moin Jörn,

da (http://www.rlpforen.de/showthread.ph...ghlight=CL+FTP) werden sie geholfen

Gruß

Sascha