IFS-Einträge auslesen

[rex447]

Hallo...u. Danke für die Info.

von einem PC (Server).
Dieser hat das IFS-Verzeichnis als ext. Laufwerk gemapt.

[BenderD]

Hallo,

aber auch von dort kann man Programme anstossen und als Parameter einen Dateinamen mitgeben.

mfg

Dieter Bender

Hallo...u. Danke für die Info.

von einem PC (Server).
Dieser hat das IFS-Verzeichnis als ext. Laufwerk gemapt.

[Rincewind]

Hi,

also ich lese mit den angegebenen C Routinen einfach immer das Verzeichnis aus.
Steht da was dann verarbeitet ich das und lösche es anschliessend.

Dann guck ich wieder von vorne, das ganze natürlich mit nem schönen Delay dabei damit ich nicht zu oft gucke.

Bei mir klappts gut, ich würde auch die Programme von Scott Klement weiterempfehlen, die sind so gut dokumentiert, das versteht sogar ein RPGler wie ich diese C Routinen.

Gruss

Rince

[BenderD]

Hallo Rince,

das klappt nur fast!!! Wenn Du gerade guckst, wenn gerade jemand was auf den Haufen wirft, dann bekommst Du jeden beliebigen Fehler, im liefernden Programm (wenn Du ihm die Datei unter dem selbigen wegziehst) oder im holenden Programm (wenn dieses zum einholenden wird). Tut mir Leid: Prädikat wenig empfehlenswert!

mfg

Dieter Bender

PS: auch Schraubereine am Delay machen solche Wackelhaufen nicht stabil, vom Verschwinden aller Spuren nicht zu reden!

Hi,

also ich lese mit den angegebenen C Routinen einfach immer das Verzeichnis aus.
Steht da was dann verarbeitet ich das und lösche es anschliessend.

Dann guck ich wieder von vorne, das ganze natürlich mit nem schönen Delay dabei damit ich nicht zu oft gucke.

Bei mir klappts gut, ich würde auch die Programme von Scott Klement weiterempfehlen, die sind so gut dokumentiert, das versteht sogar ein RPGler wie ich diese C Routinen.

Gruss

Rince

[JonnyRico]

Hi,

also wenn du das PC-Programm beeinflussen kannst, dann mach doch lieber einen Programmaufruf auf der AS/400 per PC-Programm (SQL, Remotecommand, Steuerelement von CA in VB,...)

Sascha

[Rincewind]

Dies Problem ist bei uns bisher nicht aufgetreten (würde ich bemerken, da ich auf bestimmte Ende Sätze angewiesen bin).

Man kann es auch dadurch umgehen dass man erst die Daten per PC dort bereitstellt und dann die Datei umbenennt. Und dann nur die Dateien mit einer gewissen Endung, Namensaufbau etc. verarbeitet.

An anderer Stelle habe ich pro datei eine Kontroll datei die nach kompletten bereitstellen erstellt wird, Kopiert wird erst dann wenn die passende Kontrolldatei da ist.


Ich werde unsere Prozesse mal im Auge halten, aber wie gesagt..das ganze läuft nun schon ein Jahr lang jede Nacht fehlerlos.

Rince

[BenderD]

Hallo Rince,

nicht jedes Problem, das da auftreten kann muss auffallen, da ja anschließemd auch noch übertragene Dateien gelöscht werden!!!
das mit dem umbenenne kann auch wieder schief gehen, wenn mehr als eine Datei gleichzeitig ankommen könnte!!!
Das mit der Kontrolldatei ist auch nicht Wasserdicht, das hat dieselbe Krankheit, der Fehler wird nur etwas unwahrscheinlicher, da die Datei kleiner ist.

Was ich mich allerdings frage ist: warum so umständlich, wenns auch einfacher geht und das einfachste und völlig Wasserdichte ist die Erstellung eindeutig benamter Dateien und dann anstoßen des Jobs zur Weiterverarbeitung mit Parameterübergabe des Dateinamens aus dem erstellenden Programm.

mfg

Dieter Bender

Dies Problem ist bei uns bisher nicht aufgetreten (würde ich bemerken, da ich auf bestimmte Ende Sätze angewiesen bin).

Man kann es auch dadurch umgehen dass man erst die Daten per PC dort bereitstellt und dann die Datei umbenennt. Und dann nur die Dateien mit einer gewissen Endung, Namensaufbau etc. verarbeitet.

An anderer Stelle habe ich pro datei eine Kontroll datei die nach kompletten bereitstellen erstellt wird, Kopiert wird erst dann wenn die passende Kontrolldatei da ist.


Ich werde unsere Prozesse mal im Auge halten, aber wie gesagt..das ganze läuft nun schon ein Jahr lang jede Nacht fehlerlos.

Rince

[Rincewind]

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.

[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