RPG-Pgm innerhalb CL-Pgm wird aus Java nicht aufgerufen

[hartmuth]

Stehe vor großem Rätsel und hoffe auf eure Hilfe.
Ich rufe aus Java ein CL-Pgm auf.
Dieses CL-Pgm enthält seinerseits ein RPG-Programm.
Wenn Aufruf aus Java erfolgt , wird dieses RPG-Pgm nicht aufgerufen ?!?!
Wenn Aufruf aus Befehlszeile erfolgt, dann schon. ?!?!
Das CL-Pgm wird in Java aber sehr wohl aufgerufen, das ist über DMPCLPGM beweisbar.

Hier die java-Zeilen für RPG-Aufruf.
(Java läuft übrigens am PC, nicht auf AS400)
------------------------------------------
// Create the path to the program.
programName = new QSYSObjectPathName("STONESOBJ",
"STONEPRLGC", "PGM");

// Create the program call object.
programCall = new ProgramCall(host);

// Create the parameter list (array).


programCall.setProgram(programName.getPath(), parmlist);
log.info("Programm wird aufgerufen:" + programName.getPath()); // findet sich im Log - siehe unten
if (programCall.run() != true)
{
AS400Message[] msgList = programCall.getMessageList();
String as400Msg = msgList[0].toString();
log.error("Fehler bei Verarbeitung:" + as400Msg); // kein Eintrag im Log
}
host.disconnectService(AS400.COMMAND);
}
------------------------------------------
Eintrag aus Log:
Programm wird aufgerufen:/QSYS.LIB/STONESOBJ.LIB/STONEPRLGC.PGM

Das CL-Programm STONEPRLGC besteht aus folgenden Zeilen

(Es findet sich im Log, wie erwähnt kein Hinweis auf Fehler bei Aufruf. )


ADDLIBLE LIB(STEINE_TST) POSITION(*AFTER STONESOBJ)
ADDLIBLE LIB(STEINE_95T) POSITION(*AFTER STONESOBJ)
ADDLIBLE LIB(QS36_TST) POSITION(*AFTER STONESOBJ)
ENDDO /* PMODE *EQ 'T' */

CALL PGM(STONEPROLG)

DMPCLPGM

ENDE: ENDPGM

Alles scheinbar so einfach.
Ich konnte es kaum glauben, als ich das "Phänomen" bemerkte.
?!?!?!
Vielen Dank im Voraus für Unterstützung

[Fuerchau]

Nach dem DMPCLPGM würde ich malnoch einen DSPJOBLOG machen.
Dann kannst du die Fehler besser nachsehen.
Im aktuellen Job läuft dein Programm nämlich nicht.

[BenderD]

... ich verfolge mit Interesse die diversen Fragen, scheinbar zum selben Problem: was soll dieser Wackelhaufen mal bezwecken, wenn er denn nicht mehr umfällt???

[Fuerchau]

Das Neuprogrammieren denke ich mal.

[B.Hauser]

Ist denn die Bibliotheksliste richtig gesetzt?

Birgitta

[ExAzubi]

Ich würde mal ganz stark darauf tippen das die LIBL nicht sauber ist, da wahrscheinlich eine andere JOBD verwendet wird.

[Fuerchau]

Die Libl wird im CLP ja geändert, der Aufruf direkt funktioniert ja auch.

Das problem ist, dass Java in einem eigenen Job läuft.
Da hilft dann nur das Joblog des Javajob's.

[camouflage]

Stellt sich die Frage ob der Job-Aufruf überhaupt auf der AS400 ankommt, da wie erwähnt, das Java-Programm auf dem PC läuft.

[Fuerchau]

So wie beschrieben wurde das CLP ja ausgeführt da der enthaltene Dump vorhanden ist.
Daran kann es also nicht scheitern.

Der Fehler muss in dem aufgerufenen RPG liegen.
Vielleicht wird es ja aufgerufen macht aber nicht das was es soll (z.B. Prüfungen auf User, Mandant u.ä.).

Dies kann man ggf. per
STRSRVJOB auf den Javajob
STRDBG auf das CLP und RPG
analysieren.

[tfroehlich]

Hallo zusammen,

sollte man nicht den addlible genauer definieren.
In seinem CL steht immer after stonesobj.

addlible lib(stonesobj)
addlible lib(steine_95) position(*after stonesobj)
addlible lib(steine_96) position(*after steine_95)
etc.
call pgm(stonesobj/stoneprlog)

vielleicht liegt es daran, dass die Libl nicht ganz sauber ist.

Gruss
Thomas
---------------------------------------------------------





Stehe vor großem Rätsel und hoffe auf eure Hilfe.
Ich rufe aus Java ein CL-Pgm auf.
Dieses CL-Pgm enthält seinerseits ein RPG-Programm.
Wenn Aufruf aus Java erfolgt , wird dieses RPG-Pgm nicht aufgerufen ?!?!
Wenn Aufruf aus Befehlszeile erfolgt, dann schon. ?!?!
Das CL-Pgm wird in Java aber sehr wohl aufgerufen, das ist über DMPCLPGM beweisbar.

Hier die java-Zeilen für RPG-Aufruf.
(Java läuft übrigens am PC, nicht auf AS400)
------------------------------------------
// Create the path to the program.
programName = new QSYSObjectPathName("STONESOBJ",
"STONEPRLGC", "PGM");

// Create the program call object.
programCall = new ProgramCall(host);

// Create the parameter list (array).


programCall.setProgram(programName.getPath(), parmlist);
log.info("Programm wird aufgerufen:" + programName.getPath()); // findet sich im Log - siehe unten
if (programCall.run() != true)
{
AS400Message[] msgList = programCall.getMessageList();
String as400Msg = msgList[0].toString();
log.error("Fehler bei Verarbeitung:" + as400Msg); // kein Eintrag im Log
}
host.disconnectService(AS400.COMMAND);
}
------------------------------------------
Eintrag aus Log:
Programm wird aufgerufen:/QSYS.LIB/STONESOBJ.LIB/STONEPRLGC.PGM

Das CL-Programm STONEPRLGC besteht aus folgenden Zeilen

(Es findet sich im Log, wie erwähnt kein Hinweis auf Fehler bei Aufruf. )


ADDLIBLE LIB(STEINE_TST) POSITION(*AFTER STONESOBJ)
ADDLIBLE LIB(STEINE_95T) POSITION(*AFTER STONESOBJ)
ADDLIBLE LIB(QS36_TST) POSITION(*AFTER STONESOBJ)
ENDDO /* PMODE *EQ 'T' */

CALL PGM(STONEPROLG)

DMPCLPGM

ENDE: ENDPGM

Alles scheinbar so einfach.
Ich konnte es kaum glauben, als ich das "Phänomen" bemerkte.
?!?!?!
Vielen Dank im Voraus für Unterstützung