Druckerausgabewarteschlange per Makro aktualisieren

[A_S400]

Hallo zusammen.

Ich bin neu hier und brauche Hilfe :-).

Ich möchte eine Druckerausgabewarteschlange aktualisieren lassen. Am Besten per Makro. Das Makro muss aber eine Schleife enthalten, dass es automatisch alle paar Sekunden oder Minuten erneut aktualisiert.

Ist das überhaupt möglich?

Vielen Dank schon mal im voraus.

[Fuerchau]

Macros werden in VB-Script geschrieben.
Per VB-Script lassen sich auch Schleifen programmieren.
Das Problem ist aber, dass während der Laufzeit des Macros die Sitzung gesperrt ist. Und ich weiß nicht, wie man ein laufendes Macro dann unterbricht.

Was hast du dagegen, bei Bedarf einfach F5 zu drücken ?

[A_S400]

Vielen Dank für die schnelle Antwort. Also ein Monitor mit integriertem ThinClient wird an die Wand montiert und per PowerTerminal eine Sitzung emultiert. Tastatur und Maus werden darauf hin abezogen. Mit dieser Sitzung soll nur die Druckerwarteschlange angezeigt werden. Daher muss das Macro nicht unterbrochen werden. Oder versteh ich das jetzt falsch und das aktualisierte Bild wird während des Ablaufs nicht angezeigt?

[KingofKning]

Das müßtest Du auch ob den OPSNerv machen können, in den Ansichten kannst Du wohl sagen das die Ansicht alle paar Minuten aktualisiert werden soll.

GG

[K_Tippi]

Wenn du eine "Grüne" Sitzung emulierst, dann nimm doch ein CL Pogramm mi DLYJOB Anweisung.

-Auch wenn ich den Sinn der Anzeige nicht ganz verstehe-

Klaus

[A_S400]

Ich meine die "grüne" Sitzung. Aber CL Programm und DYLJOB kann ich nichts mit anfangen. Genauso wenig OPsNerv.

Daher wollte ich vielleicht, wenn es nicht zuviele Umstände für jemanden macht, den Quellcode des Makros. Dürfte doch nicht viel sein oder?

[AS400.lehrling]

Warum nimmst du nicht einfach eine Logikeinheit und schließt dein Monitor da dran - mit automatisierten login und nie endender Sitzung hast du dein Kontroll Display

Vorausgesetzt du hast noch Twinax an der Maschiene.

Gruß AS400.lehrling

[Dschainers]

Man kann doch den Inhalt einer Ausgabewarteschlange in eine Datei ausgeben.
Diese Datei dann auslesen und als Bildschirmanzeige ausgeben.

Dies im Minutentakt wiederholen.

[AS400.lehrling]

Erst jetzt gelesen das du einen ThinClient nehmen möchtest

Warum aktivierst du nicht auf der AS/400 BooTP & TFTP

Dann kannst du auf den Client ein image das von der AS/400 bereit gestellt wird Starten und hast deine grüne Emulation - Ich meine das dann ein CA läuft

Gruß AS400.lehrling

[A_S400]

AS400.lehrling hab ich dich falsch verstanden oder versuchst du mir gerade zu erklären wie ich eine 5250 Emulation starten kann?

Wie gesagt ich starte über einen ThinClient eine Powerterminal Emulation 5250. Gehe dann in die Druckerausgabewarteschlange und möchte dann Tastatur und Maus entfernen. Das Bild muss sich dann immer aktualisieren, damit man sieht ob etwas in der Warteschlange ist oder nicht. Für mich als Laien ist jetzt der Gedanke gekommen, das es per Makro mit schleife am leichtesten geht. Nur leider weiß ich nicht wie ich das als Schleife programmieren kann. Wie auch bereits erwähnt muss diese Schleife auch kein Ende haben.

[KingofKning]

Ich meine die "grüne" Sitzung. Aber CL Programm und DYLJOB kann ich nichts mit anfangen. Genauso wenig OPsNerv.

Daher wollte ich vielleicht, wenn es nicht zuviele Umstände für jemanden macht, den Quellcode des Makros. Dürfte doch nicht viel sein oder?

OPSNerv = Operations Navigator (Iseries Navigator) = Neuere Bedieneroberfläche für den Qsecofr die auf Grund der früheren vielen Abstürze nur nervte....

GG

[Fuerchau]

Ein bisschen Goolgeln und testen, hier das Script:

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)
REM This line calls the macro subroutine
subSub1_
sub subSub1_()
dim wScript
set wScript = createobject("WScript.shell")
CreateSleepFile
autECLSession.autECLOIA.WaitForAppAvailable
do while true
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[pf5]"
Call wScript.Run ("C:\MySleep.vbs", ,true)
loop
end sub
Sub CreateSleepFile
Dim MyFSO, MyFile
Set MyFSO = CreateObject ("Scripting.FileSystemObject")
Set MyFile = MyFSO.CreateTextFile("C:\MySleep.vbs", True )
MyFile.WriteLine( "WScript.sleep 1000" )
MyFile.Close
End Sub

Erstelle ein Macro über CA, bearbeite diese Datei mit einem Editor und ersetze dieses mit obigem Inhalt.
Bei mir funktionierts.

Die 1000 ist die Wartezeit in Millisekunden die du natürlich anpassen kannst. 5000 = 5 Sekunden.

Das Macro ist dann über die Symbolleiste auch zu stoppen.
Meine Kontonummer erfährst du, wenn du mich anrufst .