Kopieren IFS > PF

[Gerd/400]

Hallo,
ich bräuchte mal wieder einen Schubs in die richtige Richtung.
Also: Im IFS liegen Dateien deren Namen ich nicht kenne und deren Inhalt ich in eine oder mehrere physische Dateien kopieren möchte. Das Verzeichnis ist bekannt. Kann ich von der AS/400 aus die Namen der IFS-Dateien ermitteln und weiterverwenden? Die CPYFRM* Befehle sind mir bekannt.
Gerd

[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