Bildschirmanzeige als Text speichern

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