IFS-Einträge auslesen

[Rincewind]

*lol*

Der Vergleich hinkt meines Erachtens etwas, aber egal


Ich sehe es so:

1. Funktioniert die Lösung sicher
2. Ist die Lösung billiger als eine Änderung durch externe Leute (bei denen sowieso immer was schief geht)

-> Lösung zufriedenstellend

Eleganter gehts sicherlich, aber so ist die Lösung ausreichend.

Nen Freundlichen Gruss & *Diskussion beend*
Rince

[RobertPic]

Hier noch eine Alternative Möglichkeit via CL via QPASE-Umgebung:

QSH CMD('cd /tmp && ls | rfile -wQ lib/ifsdir')

Dieser Befehl listet alle Dateien aus dem IFS-Verzeichnis "tmp" in die AS/400 Datei IFSDIR in der Bibliothek LIB. Die AS/400 DB-Datei (sollte mindest. 128Byte lang sein) muss es schon geben.

Also das Verzeichnis /tmp und die Ausgabedatei nach belieben ändern, den QCMD-Aufruf in das Cobol/RPG (bei mir LANSA)-Programm einbauen und die Datei IFSDIR auslesen.

Ist das Verzeichnis leer, wird der Dateinhalt gelöscht. Eventuelle Unterverzeichnisse müssen überlesen werden.

Man könnte beim ls mit Filtern (z.B. ls *.TXT) arbeiten, dann gibt es aber einen Fehler, wenn nichts gefunden wird. Also wenn mit Filter dann im CL-Programm.


LG Rob