Kopieren IFS > PF

[pwrdwnsys]

Hallo Gerd,

die schnelle aber unsaubere Lösung:

- DSPLNK OUTPUT(*PRINT)
- dann Spool in Datei kopieren
- Datei im CL durchgehen

Besser: API zum Auslesen des IFS verwenden oder über QSH mit einem passenden Script arbeiten.

Karsten

[Fuerchau]

Oder noch einfacher:

QSH CMD('ls /pfad/* >/qsys.lib/mylib.lib/myfile.file/myfile.mbr')
(Kann man auch im Dialog testen)

Die Datei MYFILE kann per CRTPF MYFILE RCDLEN(80) angelegt werden.

Nach dem QSH hast du die Namen in der Datei (mach ich i.Ü. auch so).

[Gerd/400]

Vielen Dank für die Tipps.

Ich hatte an QSH CMD('ls > DATEI') gedacht und die DATEI dann per CPYFRMSTMF in die Datenbank geholt. So spare ich immerhin einen Schritt.
Gerd