Wieder einmal: FTP und CCS

[Fuerchau]

PS:
Hast du den Parameter für die Codepage auch korrekt definiert ?

[Hubert]

Der Codeschnipsel zum Öffnen incl. Codepage Definition:

d   CodePage      s             10i 0 inz(1252)   
                                                                     
 * Define open attributes                                            
                                                                     
c                   eval      oflag = O_WRONLY + O_Create +          
c                               O_TextData + O_TRUNC +               
c                               O_Codepage                           
                                                                     
 * Define Mode      attributes                                       
                                                                     
c                   eval      Mode = S_IRWXU + S_IRWXO               
                                                                     
c                   eval      fd = open(%trim(file):OFlag:           
c                                        Mode:CodePage)

Das File hat dann:

Coded character set ID . . . . . . . . : 5348

Ich habe auch schon versucht, Codepage mit dem Format "u" oder als Konstante zu definieren: mit dem gleichen Misserfolg.

CPYTOSTMF ... ENDLINFMT(*FIXED) bringt mich auch nicht weiter, weil dann im STMF durch Einfügen von Blanks alle Zeilen auf die Länge des DB Files gebracht werden.

[Fuerchau]

Codepage ist, glaube ich, nur 5U 0 !
Prüfe mal die Open-Definition, ob short oder integer definiert ist.

[Hubert]

Es ist integer definiert. Trotzdem hab ich mal versuchsweise mit 5U 0 gewandelt; dann gabs einen Laufzeitfehler.

Außerdem ist mir beim Prüfen der Daten aufgefallen, dass das File mit NULL beginnt und bei jedem write hinten 1 - 2 Stellen weglässt und ebenfalls NULL einfügt. Ist das normal?

[Fuerchau]

Wie ist die Variable zum Write denn definiert ?
Wenn du varying verwendest, hat diese ein 2-byte-Längeninformation vorher, und du schreibst dann natürlich diese 2 Byte am Ende zu wenig.

Verwende als Write-Puffer eine Variable fester Länge, da du die genaue Länge ja sowieso angeben musst.

5348 ist 1252 mit Euro (ab V5R4):
http://publib.boulder.ibm.com/infoce...gsccsidref.htm

[Hubert]

Danke, die variable Länge wars mit den "verschluckten" Zeichen.

Und jetzt geht's auch mit dem ftp - trotz CCS 37. Vielleicht hat sich FTP an den NULL's verschluckt.