Aus dem IFS Excel-Datei auf Fileserver ablegen

[kagr]

..auf einer iSeries im IFS sind Excelsheets abgelegt. Wie kann ich diese aus einem CL heraus auf einen Fileserver im Firmennetz ablegen?
Ich denke das haben hier schon einige gemacht. Danke

[Fuerchau]

Suche hier mal nach QNTC. Es gibt da genug Hinweise und Beispiele.

[kagr]

..bin ich da ja nicht mehr, werde es probieren. Wenn ich den Befehl kenne, wenn es denn einen gibt, CPYTO... oder so was ... wo kann ich da was nachlesen. Im CL auf der AS400 kriege ich das dann schon hin...

[andreaspr@aon.at]

wenn auf dem fileserver auch ein ftp-server installiert ist!? ...

[kagr]

für einen Guru wie H.Fuerchau oder auch andere ist das vermutlich kein Problem mir mal den entspr. Befehl mit richtigem Syntax hier rein zuschreiben. Die entspr. Hilfe könnte in Keramik-Übertöpfen vergolten werden.
Also im IFS steht bei mir ein Excelfile
z.B. J:\scheurich\uebergabe\test.xls
dies soll nach
z.B. Fileserver(Scheuxx) P:\public\allgemein\test.xls
gebracht werden.
Danke.

[kagr]

auf dem Empfangsserver ist auch ein FTP-Server installiert....
karl.groh@scheurich.de

[andreaspr@aon.at]

dann kannst du das auch in ein CL packen:

OVRDBF     FILE(INPUT) TOFILE(FTP_INPUT) MBR(*FIRST) +
                          OVRSCOPE(*CALLLVL)
OVRDBF     FILE(OUTPUT) TOFILE(FTP_OUTPUT) MBR(*FIRST) +
                          OVRSCOPE(*CALLLVL)
OVRDBF     FILE(LSOUTPUT) TOFILE(FTP_LISTE) MBR(*FIRST) +
                          OVRSCOPE(*CALLLVL)

FTP        RMTSYS(&VSYSTEM) PORT(&VPRT) SECCNN(&VSSL)

in FTP_INPUT stehen dann die befehle drinnen:
USER PWD
CD /Fileserver-Dir/
lcd /local-Server-Dir/
bin
mput *.xls
quit

wenn der excel-name immer der gleiche ist, kannst du das skript in der tabelle so stehen lassen wie es ist.

lg andreas

[kagr]

werde mich morgen mal dran versuchen. Mit FTP kenn ich mich zwar nur ein bischen aus, vielleicht kriege ich's hin...

[Fuerchau]

Wenn du Laufwerksbuchstaben hast, befindest du dich (glaube ich) auf einem Windows-PC.
Das IFS kennt keine Laufwerksbuchstaben.

Mit QNTC ist es ganz einfach:
1. Zuordnen
MKDIR '/QNTC/Servername'
2. Kopieren
CPY OBJ('/Home/MyVerz/Myfile.xls')
TODIR('/QNTC/Server/Freigabename')

Voraussetzung:
Auf dem Server muss ein Profil mit identischem Namen und Kennwort des ausführenden AS/400-Users vorhanden sein (es gibt nämlich kein Logon-Fenster).

Wenn das nicht vorhanden ist, dann gehts nur mit FTP oder einer .BAT-Datei auf dem Server, die du per RUNRMTCMD aufrufst.
Ein .BAT ist erforderlich, da du vorher per "net use" die Laufwerke zuordnen musst.

[kagr]

Ist das richtig? Einfach im CL
MKDIR '/QNTC/Servername' = das der Name der As400 ?
dann z.B. in meinem Falle
CPY OBJ('/rootshare/scheurich/uebergabe/test.xls')
TODIR('/QNTC/NameZielserver/Freigabename?')

Profil müsste da sein, könnte man ja auch eins anlegen.

Wie würde das mit einem FTP aussehen ?

[prsbrc]

Hallo und guten Morgen

Also beim QNTC musst du die IP-Adresse oder den Namen des Zielservers eintragen.
Wenn du das gemacht hast kannst du mittels dem CL-Befehl CPY das Objekt ganz einfach kopieren.
Aber Achtung... nach einem IPL (Neustart) der AS/400 ist der QNTC-Link wieder weg und muss neu erstellt werden (MKDIR).

Beste Grüße!

[kagr]

..und wenn das funktioniert, dann waren die Ratschläge klasse. Gruß K.