CL und SEU

[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