Druckerausgabewarteschlange per Makro aktualisieren

[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 .

[A_S400]

Genau sowas habe ich gesucht.

Vielen Vielen Dank :-)

Getestet habe ich es schon und es funktioniert. Muss mich jetzt nur noch schlau machen was die Befehle bedeuten und was da genau passiert, aber das dürfte mit google zu schaffen sein :-)

Nochmals Vielen Dank.