CPYTOSTMF

[Joe]

Hallo Forum.

Kann ich mit Cpytostmf Daten von der AS/400 in ein Verzeichnis eines Tobit-MAilservers auf einem PC kopieren?

Wie muss der Parameter TOSTMF aussehen und was ist an Freigaben erforderlich?

Gruss
Joe

[Martin]

Man kann über das Dateisystem QNTC auf SMB-Freigaben zugreifen. Der Parameter TOSTMF muß so aussehen: /QNTC/SERVERNAME/FREIGABENAME/DATEINAME

Auf dem Tobit-Server muss nur eine normale Windows-Freigabe erstellt werden.

Der AS/400-Job, der die Datei erzeugt, muß aber unter einem Benutzerkonto laufen, das auf dem Tobit-Server für die Freigabe und den Ordner berechtigt ist. AS/400-Kennwort und Windows-Kennwort müssen übereinstimmen.

Gruss,
Martin

[Fuerchau]

Der einzige Nachteil ist, dass die Codepage 1252 (ANSI-Zeichensatz, *PCASCII) auf /QNTC vom CPYTOSTMF/CPYTOIMPF nicht unterstützt wird (Stand V5R1) !

Ich habe mir damit beholfen, dass ich
1. Den CPYTOSTMF auf mein /Home-Verzeichnis durchführe und
2. Über QSH den cp-Befehl nutze: QSH CMD('cp /home/<Verz>/Datei /QNTC/<Server>/<Freigabe>/Datei')

Der cp interessiert sich nicht für Codepages.

[schatte]

Das selbe habe ich mal unter V4R5 ausprobiert und es hat wunderbar funktioniert.
Für automatische Übertragung von SAVFs auf eine Windows Freigabe habe ich einfach den CPYTOSMTF verwendet:
CPYTOSTMF FROMMBR('/qsys.lib/qgpl.lib/sav.file') TOSTMF('/qntc/pc/freigabe/sav.savf') STMFOPT(*REPLACE) STMFCODPAG(*PCASCII)

Damit wurde das SAVF ohne Probleme übertragen und ich konnte es auch ohne Probleme auf einer AS/400 wieder entpacken.

Gruß
Matthias Schatte

[Fuerchau]

Eine STMF mit CCSID 65535 (*HEX) kann auch problemlos auf QNTC kopiert werden. Eine SAVF darf ja auch keine CCSID haben !

[DVE]

Kleiner Hinweis zum Thema /QNTC. Solange es für CPY.. genutzt wird und das Zielverzeichnis voll qualifiziert angegeben wird .. wunderbar. Man sollte sich allerdings davor hüten ein WRKLNK "/QNTC/*' o. Ä. zu machen, dann ist "langes Warten" angesagt bis die Eingabe freigegeben ist.

Gruß
DVE

[Fuerchau]

Ist ja auch kein Wunder:
Die AS/400 versucht dann
1. alle PC's der Domäne (DSPNETA) zu ermitteln
2. sich an den gefundenen PC's dann auch anzumelden

Wenn man per MKDIR die Einträge für die bekannten PC's durchgeführt hat und dann per WRKLNK '/QNTC/PC-Name' direkt aufsetzt, braucht nicht mehr gesucht werden und der Zugriff erfolgt entsprechend schnell.

Die selbe Wartezeit habe ich auch im Windows-Explorer beim Zugriff auf die "Netzwerkumgebung" (wenn das Suchen beim Anmelden abgeschaltet ist).

[DVE]

@Furchau. Weiß ich, wollte es nur für die festhalten, die das nicht wissen. Hätte natürlich näher erläutern sollen.
Gruß
DVE

[DEVJO]

Hi, ich muss das Ding mal aus der Versenkung holen, ich steh nämlich vor einem ähnlichen Problem!

Ich habe ein Spoolfile, welches ich in eine Datenbank kopiere, dann pack ich noch ein paar Zeilen davor und will es in den QNTC Ordner packen. Vorher kopiere ich es per

CPYTOIMPF FROMFILE(QGPL/&DBFILE) TOSTMF(&PFAD) +
MBROPT(*REPLACE) STMFCODPAG(*PCASCII) +
RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM(' ') +
FLDDLM(',')

in /tmp/xxxx/

danach will ich es per QSH rüber kopieren
CHGVAR VAR(&CMD) VALUE('cp ' *CAT &PFAD *TCAT ' ' *CAT &ENDE)

QSH CMD(&CMD)

, aber irgendwie passt es nicht, kann mir vielleicht mal jemand einen Anstoß geben, ich hab schon alle möglichen Codepages probiert und werd allmählich bekloppt....

Danke schonmal im voraus für die Hilfe

[Fuerchau]

Versuchs mal mit
STMFCODPAG(1252), die gilt nämlich für Windows.

[DEVJO]

Hab ich auch schon versucht, aber hat auch nicht geklappt ....

[Fuerchau]

Tja, was genau klappt denn da nicht ?
Wie ist die CCSID deiner DBFILE ?
Wie ist deine JobCCSID ?