FTP AS/400->PC

[abornmann]

Ich habe ein Problem bei der Übertragung von PC-Dokumenten der AS/400 zum Windows-Rechner. Der Systemwert von QCCSID ist auf 65533 eingestellt. Bei der Übertragung gehen alle Umlaute verloren. Wie kann ich einen deutschen Zeichensatz einstellen? Gebe ich beim Befehl STRTCPFTP für den Parameter CCSID den Wert 00273 mit, ist der Code ungültig.
Es handelt sich um PC-Dokumente, die wie folgt erstellt wurden:
CPYSPLF ... TOFILE(<physische Datei>)
CPYTOPCD <physische Datei> <dokument> in einen Ordner.

[Bruno Jakob]

Wenn es sich auf der AS/400 um ein PC-Dokument handelt, führe den FTP mal ohne Umsetzung - sprich binary - aus und schau dir das Ergebnis mal an.

Gruß
Bruno

[abornmann]

Ich mache den FTP binary. In meinem FTP-Script steht:

bin
namefmt 1
mput ....

Was kann es noch sein?

[Bruno Jakob]

Gehen die Umlaute wirklich erst bei der Übertragung verloren oder schon beim CPYTOPCD?

Gruß
Bruno

[abornmann]

Vielen Dank schon einmal.

Die Umlaute gehen tatsächlich schon beim CYPTOPCD verloren. Das war schon ein echt guter Tipp. Jetzt habe ich nachgesehen, welche Umsetztabellen gibt. QSYS/QASCII und QUSRSYS/QTCPASC habe ich im Paramter von dem Befehl ausprobiert. Das Ergebnis ist aber immer noch nicht richtig. Welche von den ganzen Umsetztabellen kann nehmen?

Gruß

Anja

[Fuerchau]

Verwende doch mal lieber ein "/home"-Verzeichnis anstelle von QDLS.
Dort werden CCSID's unterstützt, bei PCD's leider nicht.
Die Befehle heissen dann CPYTOSTMF / CPYTOIMPF.
Der FTP kann dann mit den CCSID's der STMF besser umgehen.
Ggf. setze deinen Job auf die CCSID 273 und zwar bereits ab CPYSPLF !

[Andreas Herzfeldt]

Versuch doch mal beim CPYTOPCD diese Umsetztabelle : Q273A05A5U

Dann sollten eigentlich die Umlaute stimmen.

Andreas

[Bruno Jakob]

Und auch folgendes sollte gehen:

CPYTOSTMF FROMMBR('/qsys.lib/mylib.lib/myfile.file/mymember.mbr') TOSTMF('/qdls/myfolder/mystmf.txt')
STMFCODPAG(819)

Gruß
Bruno

[fred_hanau]

Also...
ich mache das immer so:

     d t1              ds
     d t1a                            7a   inz('äöüßÄÖÜ')
     d t2              ds
     d t2a                            7a   inz(x'CFE1FA3B207504')
     d txt             s             80a
     d cmd             s            500a
     d len             s             15p 5 inz(500)
.
.
     c     t1:t2         xlate     txt             txt
     c/exec sql insert into fwlib/fxtxt_01p values(:txt)
     c/end-exec
.
.
.
     c                   eval      cmd='CPYTOPCD FROMFILE(FWLIB/FXTXT_01P) '
     c                             +'TOFLR('''
     c                             +'FW/TXT'
     c                             +''') '
     c                             +'FROMMBR(FXTXT_01P) '
     c                             +'TODOC(FXTXT.TXT) '
     c                             +'REPLACE(*YES) TRNFMT(*TEXT)'
     c                   call(e)   'QCMDEXC' 
     c                   parm                    cmd 
     c                   parm                    len 
.
.

mfg
Fred

[Fuerchau]

@Fred

Boah, was kompliziert. Nutze doch einfach die Standardmöglichkeiten der AS/400.
Mit den CCSID's geht alles, vorausgesetzt der Job hat auch eine !

Dein Beispiel funktioniert nur mit einer einzigen CCSID, nähmlich der deiner Quelle !

[abornmann]

Also, ich habe jetzt den Befehl CPYTOSTMF verwendet. Dabei habe ich noch ein Problem:

Für die Parameter FROMMBR und TOSTMF setze ich Variablen ein. Die Werte werden wieder aus verschiedenen Variablen zusammengesetzt. Bei dem Befehl CHGVAR fehlt mir der richtige Aufruf für das trimmen. Es muss irgendwie so aussehen:

CHGVAR (&STMF) VALUE(trim(&FLR) *CAT &PCF)

Wie geht das richtig mit dem Unterbefehl TRIM?

Gruß

Anja

[abornmann]

Versuch doch mal beim CPYTOPCD diese Umsetztabelle : Q273A05A5U

Dann sollten eigentlich die Umlaute stimmen.

Andreas

Diese Umsetztabelle funktioniert. Vielen Dank allen Beteiligten.

Gruß

Anja