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

[hartmuth]

Danke übrigens für die rege Beteiligung.(Über die neuesten Reaktionen habe ich keine Email-Verst. erhalten)

Das Problem hat sich tatsächlich verlagert.
Obwohl lt. CL-Dump die Variable PMod korrekt gesetzt ist, und somit das Ändern der *Libl auslösen müßte, wird die *Libl nicht verändert. Damit wird LEERE Datei verarbeitet und kein Ausdruck produziert, weil das Pgm im Zyklus läuft.

Warum die Bibl.liste nicth geändert wrid, ist mir noch "schleierhaft".
Aber dieses Problem ist mir lieber, weil es sich im CL-Pgm abspielt.

[Fuerchau]

Das Ändern der Libl findet wohl unter einer Bedingung statt.
Ggf. stimmt diese nicht oder die Parameterübergabe ist nicht korrekt.

Hier ist zu erwähnen, dass java in Unicode arbeitet und die AS/400 in EBCDIC.
In wie weit eine automatische Umsetzung in Java-Klassen erfolgt weiß ich nicht.

Empfehlenswert ist daher für solche Aktionen das Ganze mit SQL zu machen und ggf. CREATE PROCEDURE für diese Programme durchzuführen.
Die Datenumsetzung wird dann automatisch von SQL erledigt.
Außerdem gestalten sich die Aufrufe erheblich einfacher.
Wenn kein Rückgabewert benötigt wird kann jedes Programm einfach in SQL per CALL aufgerufen werden.