Datei per FTP mit CR LF

[jogisarge]

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

[JonnyRico]

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

[Fuerchau]

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'

[jogisarge]

Ok !

Vielen Dank für die Hilfe