IFS-Einträge auslesen

[BenderD]

Hallo Rince,

Natürlich kann man sein Auto auch rückwärts in die Parklücke schieben, weil es keinen Rückwärtsgang hat, aber wer kauft sowas???
Wenn natürlich alle Leute schieben, dann wird der Hersteller nie einen Rückwärtsgang einbauen, warum auch!!!

mfg

Dieter Bender

Weil ich vermutlich dasselbe Problem wie so viele Leute habe,

keinerlei Einfluss auf externe gekaufte Software

Prinzipiell geb ich dir natürlich recht, aber wie gesagt, es läuft bei uns (eindeutig beweisbar da die Dateien ohne Ende Satz auffallen.

[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