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


Zitat Zitat von 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