CPYTOPCD und CRLF beim letzten Satz in TXT-File

[dschroeder]

Vielleicht musst du ja gar nicht die ganze Dateierzeugung selbst programmieren. Es würde ja reichen, die per CPYTOPCS erzeugte Datei (Streamfile) zu modifizieren. Also die letzten beiden Steuerzeichen zu eliminieren. Das kann man per RPG machen (mit den Streamfile-APIs) oder mit eine PC-Programmiersprache.

Dieter

[KingofKning]

Hast Du dir das mit einem Hexeditor angesehen?

GG

[RWehrwein]

Nein. Nie davon gehört :-)

[malzusrex]

Im Notepad++ kann man sich die Steuerzeichen anzeigen lassen.
Ansicht-->Nicht druckbare Zeichen --> Alle anzeigen.
Dann wirst du sehen (wie Baldur schon sagte) das in der letzten Zeile ein CRLF steht und der Cursor zwar auf der nächsten Zeile, dort aber nichts ist.
Das ist aber eingentlich auch die gänige Praxis....

Gruß
Ronald

[TheDevil]

Hi,
oder ihr einigt euch mit dem externen auf einen Endesatz in dem z. B. in einem vorher definierten Feld (Bereich) ein entsprechend abgestimmter Wert (z. B. Kundennummer = 999999) steht. Dann ist das Ende erreicht, der Satz wird nicht verarbeitet und gut ist.
Gruß,
Ralf

[RWehrwein]

Aber warscheinlich nicht mit V5R4 ;-)

[BenderD]

Aber warscheinlich nicht mit V5R4 ;-)

... auch da geht DSPF bzw. WRKLNK und dann anzeigen -. danach F10

Nur mal zur Info: hinter einem Leersatz kommt nochmal eine Satzendekennung und wenn da am Schluss bei euch noch eine über wäre, dann fehlte euch ein PTF. Was habt ihr denn als Satzende ausgemacht?
CR oder LF oder CRLF oder noch was anderes?

D*B

[RWehrwein]

Notepad zeigt bei Anzeige nicht druckbare Zeichen bei jedem Satz CRLF

und bei dem allerletzten Satz ein SUB in einem Leersatz

Langsam werd ich auch das Gefühl nicht los, dass ein PTF fehlt.

[Fuerchau]

Lade mal das Programm "Notepad++", wie der Kollege oben schon sagte, kannst du nur damit Steuerzeichen sichtbar machen.
Das Notepad zeigt CRLF normalerweise gar nicht an sondern macht dann einen Zeilenumbruch.
Aus historischen Gründen (Unix/Linux/DOS) gibt es ggf. nach dem letzten Satz noch den Code x'04'.
Dieser muss als EOF interpretiert werden (kommt aus der alten DFÜ=Datenfernübertragung).
Normalerweise funktioniert dies auch, da "klassische" System den Code EOF (STRG+D) verstehen.

[RWehrwein]

Habs rausgefunden.

CPYTOSTMF FROMMBR('/qsys.lib/BIBLIOTHEKNAME.lib/DATEINAME.file/DATEINAME.mbr')
TOSTMF('/Home/ORDNER/DATEINAME.TXT')
STMFOPT(*REPLACE)
STMFCODPAG(*PCASCII)
ENDLINFMT(*CRLF)

Ist halt blöd, weil es inzwischen so viele Transfer-Befehle(auch alte Befehle) gibt.
In diesem Fall geht der Transfer ins IFS als Text-Datei.