CL und SEU

[Seidenstücker]

Hallo zusammen,
ich habe direkt 2 Fragen auf einmal und bin voller Hoffnung das jemand das Problem schon einmal hatte.

Ich möchte aus einem CL heraus den SEU starten und F3 oder F12 abfangen.

.....  
STRSEU SRCFILE(&SRCLIB/&FILE) SRCMBR(&MBR) 
   OPTION(&OPTION)									   
/* F3 GEDRÜCKT */					 
 MONMSG MSGID(CPF6801) EXEC(DO)			  
		CHGVAR VAR(&RETCODE) VALUE('E')	  
 ENDDO
MONMSG MSGID(CPF0000)
.....

Dieser Code funktioniert aber nicht richtig. Wenn ich mit F3 den SEU verlassen dann bleibt die Variable RETCODE trotzdem auf ' '. ?? Wo sitzt der Fehler ??

Und dann zu meiner 2. Frage:
Wie übergebe ich dem SEU einen Parameter um diesen zu starten und direkt zB in die Zeile 110 springen zu lassen?

Danke
Tobias

[Fuerchau]

Der CPF6801 wird nur vom Command-Prompt ausgelöst, nicht von der Anwendung selbst.
Ansonsten kannst du nur die Parameter angeben, die der STRSEU von sich aus anbietet (F4).
Dein CLP macht dann nach dem MONMSG(CPF0000) weiter, wenn der SEU verlassen wird.

[Seidenstücker]

Dankeschön für deine Antwort!

Also gibt es keine Möglichkeit den strseu auf seine Beendigung zu überwachen?!? Ich frage mich nur wie IBM das macht, denn wenn ich dort über den pdm nach Strings in Sourcen suche und diese mittels seu dargestellt werden, macht es einen Unterschied ob dieser durch F3 oder nur durch strg beendet wird.
Die schaffen es auch im seu direkt sie Zeile xy anzuzeigen. Klar das diese nur die Übergabeparameter(F4) hat, aber in wie weit können diese eine solche Funktionalität bieten?

[Fuerchau]

Was heißt schon überwachen ?!
SEU ist beendet, wenn dein CLP mit dem nächsten Befehl weitermacht.

Und was die IBM angeht, sind die ja nicht verpflichtet alle Möglichkeiten offen zu legen.

[Seidenstücker]

:-)

Vielleicht habe ich mich etwas unglücklich ausgedrückt, ich habe die Absicht den SEU mittles eines clp zu starten und möchte innerhalb des clp auswerten ob der seu mit F3/F12 oder 'normal' beendet wurde.

Eigentlich hatte ich, wie ich jetzt weiß nur die falschen MSG-ID's.
Ein MONMSG auf EDT0229 sagt mir das die Teildatei geändert wurde, EDT0221 -> Teildatei wird verwendet.
Ich suche von daher noch die ID die einen Abbruch mittels der F-Tasten beschreibt.

[Robi]

Hi,
beim verlassen kann ich nicht helfen,
Positionieren geht mit FNDSTRPDM statt STRSEU
Du mußt nur wissen, was in der Zeile steht.
(geht zwar nicht immer, aber villeicht hilft es)
Robi

[Seidenstücker]

Hallo Robi,
der Befehl fndstrpdm ist/war mir bekannt. Ich weiß jedoch nicht ob dieser unter der Lizens des PDM steht. Weiß da jemand was bestimmtes?

Gibt es vielleicht eine Möglichkeit die vom System abgearbeiteten Nachrichten mit in ein Log-Flie zu schreiben? Also nicht nur diejenigen welche die Fehler beschreiben, sondern auch die 'guten'?

[Seidenstücker]

Falls es jemanden interessiert:

 DCL		VAR(&RTNVAR) TYPE(*CHAR) LEN(350)			  
 DCL		VAR(&B4) TYPE(*CHAR) LEN(4) VALUE(x'00000000') 
 DCL		VAR(&INTJOBIDF) TYPE(*CHAR) LEN(16) VALUE(' ') 
 DCL		VAR(&KEYF12) TYPE(*CHAR) LEN(01)			   
 DCL		VAR(&KEYF03) TYPE(*CHAR) LEN(01)			   
 DCL		VAR(&FULLJOB) TYPE(*CHAR) LEN(26) VALUE('*')   
									   
 CHGVAR	 VAR(%BIN(&B4)) VALUE(350) 														 
 
 CALL PGM(QUSRJOBI) PARM(&RTNVAR &B4 +		   
	 'JOBI0600' &FULLJOB &INTJOBIDF)			
 CHGVAR VAR(&KEYF03) VALUE(%SST(&RTNVAR 103 01)) 
 CHGVAR VAR(&KEYF12) VALUE(%SST(&RTNVAR 104 01))  
....

Hiermit fange ich jetzt nach dem Beenden F12, F3 ab