Callstackproblem(?) bei QMHRCVPM

[Fuerchau]

Das problem ist natürlich die richtige Ebene zu ermitteln. Wichtig ist jedoch, dass diese auch aktiv sein muss !
Es geht also nicht:

PGMA
:
CALL PGMB <= erzeugt Fehler
CALL PGMC <= Fehler aus PGMB lesen

PGMC muss aus PGMB aufgerufen werden.

Ansonsten geht nur noch das Auslesen des Joblog's (JOBMSGQ).

[BenderD]

da dürfte wohl ein ILE Condition Handler der richtige Ansatz sein, der wird pro Activation Group einmal registriert und bei nicht behandelten Fehlern (-> Escape Message) automatisch ausgeführt.

D*B

Das problem ist natürlich die richtige Ebene zu ermitteln. Wichtig ist jedoch, dass diese auch aktiv sein muss !
Es geht also nicht:

PGMA
:
CALL PGMB <= erzeugt Fehler
CALL PGMC <= Fehler aus PGMB lesen

PGMC muss aus PGMB aufgerufen werden.

Ansonsten geht nur noch das Auslesen des Joblog's (JOBMSGQ).

[ebschubert]

Danke für den Tipp mit dem
ILE Condition Handler

Aber das löst das Problem nicht.

Mein SRVPGM B ruft ja im Fehlerfall die entspr. Routine aus SRVPGM A - aber leider komme ich nicht an die Msg ran -> diese steht aber im Joblog.

Meinen Frage also.... es wurde empfohlen JOBLOG auszulesen?????

Grüße

[Fuerchau]

Wenn du deine Programmfolge debugst und vor dem Lesen der Nachricht deinen Callstack überprüfst und nachschaust, an wen die Nachricht gesendet wurde (F1->F9 auf der nachricht im Joblog), müsstest du die Ebene doch feststellen können.

Das Auslesen des Joblogs ist nicht das Problem sondern ggf. das Feststellen der richtigen Nachricht.

Viellicht sollte dein SRVPGM direkt die Dienste für QCMDEXC und CALL übernehmen, dann hast du ggf. weniger Schwierigkeiten.
Allerdings sind Stackabhängige Befehle wie OVRxxx dann auf OVRSCOPE(*JOB) anzupassen.

[ebschubert]

Viellicht sollte dein SRVPGM direkt die Dienste für QCMDEXC und CALL übernehmen, dann hast du ggf. weniger Schwierigkeiten.
Allerdings sind Stackabhängige Befehle wie OVRxxx dann auf OVRSCOPE(*JOB) anzupassen.

Genau so ist es auch!
Die Msg geht an mein SRVPGM !
ABER ... wenn ich DORT mein SRVPGM A mit QMHRCVPM aufrufe, kommt nix.

Gleiche Konstellation mit MainPgm und SRVPGM A funktioniert jedoch....

[ebschubert]

ergänzung:

Aufruf getErr aus SRVPGM A

....
Callp     RcvPgmMsg( rtnMsgInfo         
                   : %Size( rtnMsgInfo )
                   : 'RCVM0100'         
                   : InMsgQue           
                   : Stack              
                   : '*EXCP'            
                   : *Blanks            
                   : 0         
                   : '*SAME'   
                   : ApiError )

...........

InMsgQue ist das rufende PGM
Stack steht auf 0

[Fuerchau]

Nun ja, trotzdem nochmal:
Mach einen Break auf dem RcvPgmMsg mit dem Debugger und schau dir dann den Callstack an.
Die Routine GetErr ist ja in einer eigenen Stackebene (und 0 ist die Ebene selber) !

Prozeduren werden per CALL aufgerufen und sind nicht wie EXSR zu vergleichen.
Die Callstack-Ebene verschiebt sich daher.

[ebschubert]

Auszug WRKACTJOB
...

WRKJRNOB    WRKJRNOB     WRKJRNOB       Nein 
ISTSRMTJOB  RACIWRKSRV   RACIWRKSRV     Nein 
GETERR      RACIGENSRV   RACIGENSRV     Nein

WRKJRNKOB - MainPGM
RACIWRKSRV - SRVPGM wo duch Call CL der Fehler auftritt
RACIGENSRV - SRVPGM zum Auslesen Fehlermeldung

Ähnliche Konstellation doch Fehler in CL bei Aufruf aus MainPGM

WRKJRNOB    WRKJRNOB     WRKJRNOB       Nein 
GETERR      RACIGENSRV   RACIGENSRV     Nein

[Fuerchau]

Call stack counter

INPUT; BINARY(4) A number identifying the location in the call stack of the call stack entry from whose message queue the messages are to be received. The number is relative to the call stack entry identified by the Call stack entry parameter. It indicates how many calls up the call stack the target entry is from the one identified by the Call stack entry parameter. Valid values follow:

0	Receive the message from the message queue of the call stack entry specified in the Call stack entry parameter.
1	Receive the message from the message queue of the call stack entry that is one earlier than the entry identified by the Call stack entry parameter.
n (any positive number)	Receive the message from the message queue of the nth call stack entry up the stack from the call stack entry specified in the Call stack entry parameter. You can use any positive number that does not exceed the actual number of call stack entries in the call stack, excluding the external message queue.

0 = Du versucht die Nachricht deiner eigenen Aufrufebene zu lesen
1 = Die Ebene darüber
2 = die nächste Ebene
n = die n. Ebene

Du musst also nur die richtige Ebene identifizieren.

[B.Hauser]

Nur mal so eine Frage:
Du möchtest den Nachrichten-Text der Escape-Message ermitteln?
Reichen Dir dabei 80 Stellen?
Wenn Ja, bei einem Abbruch werden die ersten 80 Stellen der Nachricht (voll aufbereitet) in der Programm-Status Datenstruktur auf Stelle 91-170 ausgegeben.

Birgitta

[ebschubert]

Hallo Brigitta

.... genauso mache ich das jetzt auch... und gebe diesen ans MainPgm weiter... alles andere ist unnötiges gefummel

danke und Grüße