PDA

View Full Version : Aus dem IFS Excel-Datei auf Fileserver ablegen



Seiten : [1] 2

kagr
10-03-10, 12:37
..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
10-03-10, 12:52
Suche hier mal nach QNTC. Es gibt da genug Hinweise und Beispiele.

kagr
10-03-10, 13:03
..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
10-03-10, 13:26
wenn auf dem fileserver auch ein ftp-server installiert ist!? ...

kagr
10-03-10, 13:57
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
10-03-10, 13:59
auf dem Empfangsserver ist auch ein FTP-Server installiert....
karl.groh@scheurich.de

andreaspr@aon.at
10-03-10, 14:19
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
10-03-10, 14:54
werde mich morgen mal dran versuchen. Mit FTP kenn ich mich zwar nur ein bischen aus, vielleicht kriege ich's hin...

Fuerchau
10-03-10, 16:06
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
10-03-10, 17:57
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 ?