Carriage Return bei Write/Except in lokale Datei

[Kampi4]

Guten Tag allerseits,
habe mal wieder ein kleines Problem.

In meinem VARPG Programm schreibe ich bei "Write" in eine *.txt Datei, welche auf der lokalen Festplatte durch ein "Open" erstellt wird. Das klappt auch alles wunderbar, wenn nicht ein kleines Problem besteht:

Irgendwie setzt das VARPG beim "Write" immer noch ein Carriage Return (ein rechteckiges Kästchen) in die nächste Zeile der Datei. Also mein String steht in der ersten Zeile und er packt noch in die zweite Zeile ein Carriage Return. Leider darf das dort nicht sein, sondern wirklich nur der String drin stehen.

In der Hilfe zum "Write" habe ich nichts darüber gefunden. Hat wer von euch eine Idee dazu?
Danke schon mal für die Antworten!!

Mfg KAMPI

P.S. Except habe ich auch schon probiert. Da macht er das gleiche.



FCUSTOMER UF A F 176 DISK UsrOpn ExtFile(File)
Dd$cust DS
D d$custl 1 176 inz(*blanks)
C EVAL file = 'c:\forsout\'+d$ordernr+anhang+'.txt'
C EVAL d$custl = telel
C OPEN customer
C WRITE customer d$cust
C CLOSE customer

[Fuerchau]

Sequentielle Dateien enthalten in Windows immer automatisch ein CRLF (X'0D0A').
Dies scheint ein Problem des VARPG zu sein, da eigentlich von der Dateidefinition feste Satzlänge definiert ist.

Ggf. gibt es in den F-Bestimmungen für VARPG noch eine Ergänzung für festes Format (ohne CRLF).

[mk]

Hallo Kampi

das Handbuch gibt Auskunft

Mit dem Schlüsselwort EOFMARK(*NONE) wird angegeben, dass das Dateiendezeichen in lokalen Plattendateien übergangen werden soll. Der Parameter *NONE ist erforderlich.

Damit sollte es klappen.

Gruss
Michael

[Fuerchau]

Dann ist das noch nicht mal ein CR sondern das Zeichen EOF (X'04') was noch aus der guten alten DOS-Welt kommt, als man ein Dateiende nch mit STRG-D markieren musste.

[Kampi4]

Super danke Michael. Der Befehl hat geholfen. Auch danke an Baldur für seine Antwort.

Jetzt kann ich gleich beruhigt in den Feierabend gehen :)

Euch auch einen schönen Abend!

Mfg KAMPI