Aufruf CL-Programme aus MS-Access

[Franz Karl]

Hallo ,

ich habe hier aus dem Forum für dieses Thema die Lösung bekommen

CALL QSYS.QCMDEXC ('CALL LIB_CL/SIS@CL1', 0000000019.00000)


Funktioniert Tip-Top.

Meine Frage:

Wäre es auch noch möglich wenn das Programm auf der AS400 fertig ist, dass ich diese Nachricht im Access anzeigt bekäme oder geht das nicht ?

Danke

[andreaspr@aon.at]

Hallo,

Sobald dein CALL fertig ist, ist auch das Programm auf der AS/400 fertig. Wenn du in deinem CL kein Submit-Job machst.

lg Andreas

[Franz Karl]

hallo,

vielen Dank für die Antwort - die CL's werden mit SUBMIT JOB aufgerufen - ich möchte nur erreichen das der Anwender der nicht auf "grün" arbeitet eine entsprechende Meldung bekommt wenn der Job beeendet ist.

[andreaspr@aon.at]

Dann würde ich mal sagen, dass
*) entweder für den CALL aus Access kein SBMJOB gemacht wird
*) oder irgendwo (Bevorzugt in einer Tabelle) ein Flag gesetzt wird wenn das Programm fertig ist, dass später aus Access heraus abgefragt werden kann. Entweder durch den Benutzer (durch einen Aktualisieren-Button) oder durch das System selbst mittels Timer-Funktion in definierten Zeitabschnitten.

Oder jemand hat eine bessere Idee.

lg Andreas

[Franz Karl]

Hallo ,

wie gesagt rufe das ganze wie folgt auf

1. ACCESS- PASS-THROUGH Abfrage

CALL QSYS.QCMDEXC ('CALL LIB_CL/SIS@CL2', 0000000019.00000)

2. CL auf AS400

SBMJOB CMD(CALL PGM(LIB_CL/SISVER100))

[andreaspr@aon.at]

Ja das habe ich schon verstanden.
Meine vorherige Antwort basierte auf diese Tatsache.

Im PGM das übergeben wird (SISVER100) kannst du ein Flag in eine Tabelle setzen, wenn das Programm kurz bevor das PGM endet.

Du musst im Access nur Asynchron diese Tabelle abfragen ob das Flag gesetzt wurde.

[Franz Karl]

Hallo

ok danke. Dachte es gäbe eine andere Lösung - weil ja auf OS Seite eine Ende Meldung generiert wird - eben ob man die Richtung Access Oberfläche wie auch immer durchgeben könnte.

Aber das ist auch ein Weg

Danke

[andreaspr@aon.at]

Das was du gerne hättest, wäre dass die AS/400 sich irgendwie auf deinen PC verbindet und ein Programm?/Befehl? aufruft welches dann die Information an die aktive Accessanwendung schickt.
(Da durch den SBMJOB das Programm nicht direkt über den Kommunikationsweg etwas zurücksenden kann)

Ich glaube die andere Lösung ist einfacher

[Fuerchau]

Rufe das Programm direkt auf.
Wenn es fertig ist kommt der SQL zurück (incl. ggf. Fehlermeldungen).

Sollte der User nicht darauf warten müssen, kannst du per Asynchron-Aufruf aus ADO den Befehl absetzen.
Auf dem Connection-Objekt kannst du auf das Ergeignis warten, bis der befehl fertig ist.