Callstackproblem(?) bei QMHRCVPM

[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