AS400 Wert auslesen und in txt/ xls schreiben

[Fuerchau]

Für solche Aktionen setzt man sich mit der hauseigenen IT auseinander.
Die sollte in der Lage sein, dir die Daten irgendwie zur Verfügung zu stellen oder den Standort für ein MS-Query benennen können.

Was du alternativ machen kannst (das 5250-Makro ist ja VB-Script), vom aktuellen Screen die Funktion Screenshot aufzurufen (kann man per Makroaufzeichnung mal ausführen).
Der Screenshot wird in 2 Formaten in die Zwischenablage gelegt, 1x Bitmap, 1x Nur Text.
Per VBS kann man auf das Clipboard zugreifen und sich dann den Text aus der entsprechenden Zeile per "mid"-Funktion rausholen.

Wie gesagt: schön ist das nicht.

[AlexK*]

Habe ich probiert. Dort will keiner weiterhelfen...

Hab jetzt mit deiner vorgeschlagenen Alternative weitergemacht. Klappt leider nicht so.
Sobald ich die Screenshots gespeichert hätte wärs kein Problem den Rest mit VBA zu machen.
Am Ende der aufgenommene Code. Wie schätzt du die Lage ein?

Bevor "em80enal" gesendet wird, müsste das Makro an die Kursorpositione 04,019 wechseln.

dazu bin ich auf das gestoßen, funktioniert leider nicht...
Private Declare Sub SetCursorPos Lib "User32" (ByVal X As Long, ByVal Y As Long)
SetCursorPos 4, 19


Die iSeries Funktion Screenshot finde ich nicht. Habe im Menü jede Möglichkeit durchsucht.
Du meinst ja nicht den Print-Key oder?


[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)
REM This line calls the macro subroutine
subSub1_
sub subSub1_()
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "em80enal"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
end Sub


vg
Alex

[Fuerchau]

Da du ja mit den API's schon umgehst, musst du die Doku dazu mal beschaffen.
Dort findest du entsprechende Methoden für die Sitzungssteuerung.

SetCursorPos() ist eine Windows-Funktion und setzt den Mauszeiger auf die Pixel-Koordinaten.

Entschuldige bitte:
Bist du ein Azubi der hier Beschäftigungstherapie betreibt?
Die IT-Abteilung sollte gewisse Wünsche der Fachabteilungen respektieren.
In den meisten Betrieben gibt's da bestimmt entsprechende Formulare und Wege.
Datenbankabfragen, also Queries, sollten für die IT kein Problem darstellen.