Scott Klement - RPG-Zugriff auf SQL-Server

[JIM]

Guten Morgen Fuerchau!

Super Tipp! Es scheint zu funktionieren mit den beiden OVRDBF-Befehlen. Da ja pro Job nur eine JVM gestartet werden kann, würde ja genügen, diese beiden Befehle einmal, z.B. gleich im Startprogramm, abzusetzen.

Das sieht echt gut aus. Vielen Dank Dir Fuerchau und auch an Günter!

Schönen Tag, Gruß,
JIM

[JIM]

Hallo zusammen!
ES FUNKTIONIERT - ich bin begeistert.
Den Ansatz mit dem Startprogramm musste ich verwerfen, da fast jeder User ein eigenens hat.
Aber ich rufe nun aus dem RPG-Programm, in dem der SQL-Server-Zugriff erfolgt, einfach am Anfang ein CL auf, in dem die beiden Commands
OVRDBF FILE(STDOUT) TOFILE(QPRINT) OVRSCOPE(*JOB)
OVRDBF FILE(STDERR) TOFILE(QPRINT) OVRSCOPE(*JOB)
ausgeführt werden. Selbst wenn die Überbschreibung schon existiert ist es dank MONMSG kein Problem.

Tritt nun ein Fehler auf, z.B. keine Verbindung zum Server möglich, so wird in der QPRINT ein Spool erzeugt, der die entsprechenden, kryptischen Fehlermeldungen enthält. That's it.

@Günter: Rufe ich das Programm OHNE die OVRDBF-Commands im BATCH auf --- passiert genau das Gleiche wie mit den OVRDBF. Dann erstellt das System (wohl mangels Alternative) auch diese Spoolfile! Das war also schon der richtige Ansatz.


Danke nochmal. Vielleicht kann sich der "Dino" mal revanchieren???
JIM

[JIM]

Es geht ja noch "einfacher":


D CMD PR EXTPGM('QCMDEXC')
D COMMAND 200A CONST
D LEN 15P 5 CONST

:
:
:

C CALLP CMD('OVRDBF FILE(STDOUT) TOFILE(' +
C 'QPRINT) OVRSCOPE(*JOB)': 200)

C CALLP CMD('OVRDBF FILE(STDERR) TOFILE(' +
C 'QPRINT) OVRSCOPE(*JOB)': 200)



Das freut mich jetzt so, dass das funktioniert, dass ich garnicht mehr von dem Thema ablassen kann.
Für Euch ist die obige Info vielleicht ein alter Hut?
Für mich "Dino" sind das neue Erkenntnisse. Aber vielleicht hat ja mal ein anderer Dino auch das Problem...
Gruß, JIM

[Fuerchau]

Wer zum Henker ist denn nun "Dino" ?

[JIM]

Oh, Fuerchau, das ist aber nett von Dir...