View Full Version : Datei per FTP mit CR LF
Ok, ich muss am Ende jedes Datensatzes ein X'0D25' einfügen.
normal :
move 'Hallo' ergfeld
Wie kann ich X'0D25' am Ende einfügen.
Ich kenn mich mit RPG nicht so aus.
mfg
jogi
Ok, ich muss am Ende jedes Datensatzes ein X'0D25' einfügen.
normal :
Wie kann ich X'0D25' am Ende einfügen.
Ich kenn mich mit RPG nicht so aus.
mfg
jogi
Moin,
ich würde in deiner Datei ein Feld am Ende einfügen (2 CHAR). In dieses schreibst du dann in jedem Satz ein X'0D25'. Dann sollte es meine ich klappen.
DEnd S 2A INZ(X'0D25')
/Free
KDNR='XXXX';
Name='SAWI';
Ending=End;
Write SatzFMT;
/End-Free
Gruß Sascha
Zu beachten ist:
MOVE überträgt rechtsbündig
MOVEL linksbündig
Dabei wird das Zielfeld nur in der Länge das Quellfeldes überschrieben, der Rest bleibt erhalten.
MOVEL FELD ZIEL P
Das Zielfeld wird mit Leerzeichen (*blank) gefüllt.
Man kann also mittels:
MOVEL FELD ZIEL P <= linksbündig mit löschen
MOVE X'0D25' ZIEL <= rechtsbündig ohne löschen
das gewünschte Ergebnis erreichen.
In ILE kann man das auch so machen, es geht aber auch leichter:
D ZIEL S 256
D QUELLE S 254
EVAL ZIEL = QUELLE + x'0D25'
Ok !
Vielen Dank für die Hilfe