AS-400 Online-Anwendungen vom PC aus starten. -

[Jutta]

Hallo,
wir möchten gerne vom PC aus eine AS-400-Anwendung aufrufen. Wie ein CALL auf ein Batch-CL abgesetzt wird, haben wir, durch diverse Beiträge hier im Forum, schon geschafft. Wir kriegen aber keine Online-Anwendung vom PC aus geöffnet. Vielleicht hat das ja schon mal jemand von Euch gemacht. Über Tipps würden wir uns freuen.
Jutta

[Fuerchau]

Was verstehst du unter einer Online-Anwendung ?

Wenn du in einer 5250-Sitzung über Konfiguration das Häkchen für "Anmeldung umgehen" setzt und dem User-Profil ein Startprogramm gibst, dass die Dialog-Anwendung direkt startet, brauchst du nur eine Verknüpfung zur Session auf dem Desktop ablegen und dann auf diese doppelklicken. Du kannst diese Verknüpfung natürlich auch in das Menü Autostart eintragen.

Dies ist natürlich eine "Sicherheitslücke", da ja jeder, der zufällig an den ggf. ungeschützten PC kommt somit direkt in der AS/400 landet.
Allerdings kann man die Anmeldungsumgehung von der AS/400 aus unterdrücken (Systemwert QRMTSIGN = *FRCSIGNON), so dass nur ein Anmeldebild automatisch gestartet werden kann.

Per CALL aus dem PC geht das nicht, da damit grundsätzlich nur Batch-Jobs ausgeführt werden können.

[Jutta]

Danke für die schnelle Antwort. So wollten wir das aber nicht.

Wir wollen zum Beispiel direkt über bestehende PC-Anwendungen in eine Auftragsabwicklung. Diese soll nicht nur gestartet werden, sondern es sollte auch das weitere Arbeiten darin möglich sein.

Gruß Jutta

[Fuerchau]

Da gibt es nur die Möglichkeit, entsprechende PC5250-Makros zu erstellen und diese dann per DDE (EHLLAPI) an eine 5250-Sitzung zur Ausführung zu bringen.
Ich kenne zur Zeit keine geeignete Möglichkeit, eine 5250-Sitzung vernünftig zu steuern.

Vielleicht gibt es ja noch andere 5250-Produkte, die da mehr Komfort bieten, aber ohne eine 5250-Dialog-Sitzung gehts leider nicht.

[uwe]

Hallo,

eine Möglichkeit für euer Problem ist die Erstellung eines VB-Scriptes.
Hier ein kleines Beispiel:

Set WshShell = CreateObject("WScript.Shell")

' AS400-Anmeldung
wshshell.Run """D:\Programme\IBM\Client Access\Emulator\Private\AS400.WS"""
' Script wartet 3 sec.
WScript.Sleep 3000
' Sitzung wird aktiviert
wshshell.AppActivate "Sitzung A - [24 x 80]"
WScript.Sleep 3000
' evt. Nachrichten werden ign.
WshShell.SendKeys "{F12}"
WScript.Sleep 3000
WshShell.SendKeys "{F12}"
WScript.Sleep 3000
WshShell.SendKeys "{F12}"
WScript.Sleep 3000
' Befehl wird eingegeben
WshShell.SendKeys "call libtest/test"
WScript.Sleep 3000
' Datenfreigabe
WshShell.SendKeys "~"

Bei der Definition der AS400-Sitzung muss ein Makro zur automatischen Anmeldung hinterlegt werden. (Ganz einfach: -> Sitzung aufrufen -> Makroaufzeichnung starten -> Anmeldung durchführen -> Makroaufzeichnung beenden -> Makro über Bearbeiten/Einstellungen/Makro... zuordnen)
Vorsicht im Makro steht Passwort lesbar !!!

Uwe

[Jutta]

Hallo Uwe,
danke für deine tolle Idee. Es hat funktioniert. Genau das wollten wir machen.

Gruß Jutta