CPYTOIMPF

[CaddyMajor]

Hallo zusammen,

Folgendes Problem:

Ich möchte mittels CPYTOIMPF eine PF ins IFS als Textdatei konvertieren.

CPYTOIMPF FROMFILE(DECORADD/WSAMOUNT) TOSTMF('/Webshop/amount.dat')
STMFCODPAG(*PCASCII) RCDDLM(*LFCR)
STRDLM(' ')
FLDDLM(X'05')

Effekt ist folgender, das nach dem Datensatz, wo er eigentlich eine neue Zeile beginnen sollte, nur 2 eckige O's (so schauen sie aus) macht und dann weiterschreibt.

Hat jemand einen Tip für mich?

Vielen Dank

[tfroehlich]

Hallo zusammen,

Folgendes Problem:

Ich möchte mittels CPYTOIMPF eine PF ins IFS als Textdatei konvertieren.

CPYTOIMPF FROMFILE(DECORADD/WSAMOUNT) TOSTMF('/Webshop/amount.dat')
STMFCODPAG(*PCASCII) RCDDLM(*LFCR)
STRDLM(' ')
FLDDLM(X'05')

Effekt ist folgender, das nach dem Datensatz, wo er eigentlich eine neue Zeile beginnen sollte, nur 2 eckige O's (so schauen sie aus) macht und dann weiterschreibt.

Hat jemand einen Tip für mich?

Vielen Dank

------------------------------------------------------

Hallo,

mit dem Thema IFS habe ich nur probeweise zu tun.
Ich habe im Parameter DTAFMT(*fixed) stehen.

Vielleicht hilft Dir das?

Gruss Thomas

[CaddyMajor]

Vielen Dank,

habe es getestet, leider ohne Erfolg.

Er macht immer noch kein "Return" nach einen Datensatz.

Schade

[tfroehlich]

Vielen Dank,

habe es getestet, leider ohne Erfolg.

Er macht immer noch kein "Return" nach einen Datensatz.

Schade

----------------------------------------------------------
Hi,
probiere es mal hiermit!

0019.00 CHGJOB CCSID(1141)
0020.00 CPYTOIMPF FROMFILE(LIB/File) +
0021.00 TOSTMF('/yyyyy/xxx.txt') +
0022.00 MBROPT(*REPLACE) STMFCODPAG(850) + RCDDLM(*CRLF) DTAFMT(*FIXED) +
0024.00 DECPNT(*COMMA) DATFMT(*ISO) TIMFMT(*ISO) + 0025.00 /* kopieren der Datei ins IFS */
0026.00 CHGJOB CCSID(*SYSVAL)

Welche CCSID bzw Codepage hat Deine Datei im IFS.
Die Angaben müssen mit der Datei übereinstimmen.
Gruss Thomas

[CaddyMajor]

JAAAAAAAAAAAAAAA!

Es funktioniert.

Vielen Dank

[Fuerchau]

Als STMFCODPAG(850) solte für Windows-Ziele 1252 verwendet werden (Umlaute).

Ansonsten wird meisten *CRLF und nicht *LFCR erwartet (umdrehen der Hexwerte), das war eher das Problem.

[CaddyMajor]

Ein kleines Problem gibt es noch:


CHGJOB CCSID(1141)

CPYTOIMPF FROMFILE(DECORADD/WSAMOUNT) +
TOSTMF('/Webshop/amount.dat') +
MBROPT(*REPLACE) STMFCODPAG(1252) +
RCDDLM(*CRLF) DTAFMT(*FIXED) STRDLM('') +
FLDDLM(X'05')

CHGJOB CCSID(*SYSVAL)

Das ist das CL Programm.

Zwischen den einzelnen Spalten sollten Tabs sein, in der erzeugten Textdatei sind es aber leider nur Leerzeichen.

Weiß jemand ob und wie ich das ändern kann?

Vielen Dank

[kuempi von stein]

liegt evtl. an FLDDLM(X'05') ?
weiss aber nicht den code für TAB....

k.

[Fuerchau]

ASCII-Tab ist X'08', EBCDIC-Tab ist X'16'.
Folglich muss als FLDDLM(X'16') bei der Ausgabe werden.

[CaddyMajor]

Vielen Dank für die Info:

Habe es mit X'16' und X'08' getestet.

Leider ohne Erfolg, es sind immer leerzeichen und keine Tabs in der Textdatei im IFS