Bildschirmanzeige als Text speichern

[petzi-mg]

Ja, sinnvoll ist sicher anders, aber wenn ich das über die IT-Abteilung machen(n lasse), warte ich in 5 Jahren noch, darum muss ich auch diesen kuriosen Umweg machen.
Mein Fachgebiet ist leider nicht AS-400 Programmierung, sondern Datenauswertung. Makros in VB-Script kann ich allerdings. Makros kann ich auch direkt in VB-Script aufzeichnen.
Jetzt mal kurz für Dummies -> wenn ich den Bereich markiere, ist er damit schon in der Zwischenablage?

[Fuerchau]

Erst über "Bearbeiten->Kopieren" wird die Zwischenablage gefüllt.
Allerdings ersetzt jedes Kopieren den Text.

Wenn du VB-Script kannst, kannst du auch auf das Clipboard-Object zugreifen und per FileSystem-Object eine Textdatei ausgeben.

[petzi-mg]

Erst über "Bearbeiten->Kopieren" wird die Zwischenablage gefüllt.
Allerdings ersetzt jedes Kopieren den Text.

Wenn du VB-Script kannst, kannst du auch auf das Clipboard-Object zugreifen und per FileSystem-Object eine Textdatei ausgeben.

...das kopieren - im zweifelsfall einfach den ganzen Bildschirm (filtern kann ich dann immer noch) - geht ja auch per Script, mach ich ja bereits. Muss das nur noch in VB übersetzen. Dann ein Schleifchen und seitenweise in die Ausgabedatei schaufeln? Klingt nach einem Plan.

[Pikachu]

Es gibt bei den Makros auch die Funktion "Bearbeiten - Kopieren, Anhängen". Vielleicht hilft das weiter.

Erst über "Bearbeiten->Kopieren" wird die Zwischenablage gefüllt.
Allerdings ersetzt jedes Kopieren den Text.

[AG1965_2]

Wenn Du Befehle eingeben darfst (z.B. WRKSPLF), dann geht auch ein CPYSPLF.

CPYSPLF FILE(Spooldatei)
TOFILE(*TOSTMF)
JOB(*)
SPLNBR(*LAST)
TOSTMF('/tmp/spool.txt')

Der Befehl kopiert die letzte Spoolausgabe meines Jobs ins sogenannte "IFS". Allerdings leider in EBCDIC, das kann man am PC nicht so leicht lesen.

CPY OBJ('/tmp/spool.txt')
TOOBJ('/tmp/spool2.txt')
TOCCSID(1252)
DTAFMT(*TEXT)

löst das Problem.

Und wenn man dann noch eine "Freigabe" definiert hat, z.B. "root", dann kann man im Windows Explorer mit \\deineMaschine\root\tmp\spool2.txt direkt darauf zugreifen.

Und wenn Deine EDVler das direkt hinter die Erstellung der Liste einbauen, hast Du in 5 Jahren überhaupt keine Arbeit mehr damit. :-)

[Fuerchau]

Aber nur, wenn die Anzeige ein Spool ist und keine Subfile-Anzeige, Stichwort "Weitere.../Ende".

[AG1965_2]

... As oben genanntem Grund kopiere ich einen meist mehrseitigen Druckauftrag ...

Das klingt für mich schon verdammt nach Spool-Datei.

[Fuerchau]

Stimmt, das ist hart.
Mit Kommandozeile würde ich tatsächliche einen CPYSPLF machen und mir die Daten dann per ODBC mit SQL holen.

[Pikachu]

Mit dem OpsNav (oder wie er derzeit heißt) kommt man doch auch an die Spooldateien und kann sie einfach als Textdatei kopieren.

[Fuerchau]

Je nach dem was ich machen will hilft mir ein

select substr(spoolfile, n, m) as f1, .... from spoolfile
where substr(spoolfile, n, m) "ist Datenzeile"

mehr, als den Spool erst in .TXT und anschließend mit VBA und Excel wieder auseinander nehmen.
Und für sowas gibt es dann Software wie z.B. Compleo (die kann natürlich auch mehr).

[holgerscherer]

Ja, sinnvoll ist sicher anders, aber wenn ich das über die IT-Abteilung machen(n lasse), warte ich in 5 Jahren noch, darum muss ich auch diesen kuriosen Umweg machen.
Mein Fachgebiet ist leider nicht AS-400 Programmierung, sondern Datenauswertung. Makros in VB-Script kann ich allerdings. Makros kann ich auch direkt in VB-Script aufzeichnen.
Jetzt mal kurz für Dummies -> wenn ich den Bereich markiere, ist er damit schon in der Zwischenablage?

Lass mich raten - Eure IT-Abteilung ist mit den ganzen Windows-Problemen beschäftigt? ;-)
Wie geschrieben - wenn Du Zugriff auf den iSeries-Navigator hast -> Export von Spools geht dort direkt in Text- oder PDF-Dateien.

-h

[Fuerchau]

Von der IT gerne vernachlässigt, aber ohne Opsnav gehst ja sowieso nicht (außer bei der Javaversion).
Und eigene Spools kann man eigentlich immer sehen und downloaden.
Gute Idee!