CL und SEU

[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